quinta-feira, março 16, 2017

Fórmula Macarrônica de Cálculo do CPF Libre Office ou Excel

Criei esta fórmula macarrônica para cálculo do CPF. Criei no Calc do Libre Office, porque não tenho excel, mas acho que funcionaria também :)

Considerando que o CPF sem os dois dígitos do DV está na célula A1, colar na B1 a seguinte fórmula:
=CONCATENAR(
SE(MOD((EXT.TEXTO(TEXTO(A1;"000000000");1;1)*10)+
(EXT.TEXTO(TEXTO(A1;"000000000");2;1)*9)+
(EXT.TEXTO(TEXTO(A1;"000000000");3;1)*8)+
(EXT.TEXTO(TEXTO(A1;"000000000");4;1)*7)+
(EXT.TEXTO(TEXTO(A1;"000000000");5;1)*6)+
(EXT.TEXTO(TEXTO(A1;"000000000");6;1)*5)+
(EXT.TEXTO(TEXTO(A1;"000000000");7;1)*4)+
(EXT.TEXTO(TEXTO(A1;"000000000");8;1)*3)+
(EXT.TEXTO(TEXTO(A1;"000000000");9;1)*2)
;11)<2; 
0; 
11-MOD((EXT.TEXTO(TEXTO(A1;"000000000");1;1)*10)+
(EXT.TEXTO(TEXTO(A1;"000000000");2;1)*9)+
(EXT.TEXTO(TEXTO(A1;"000000000");3;1)*8)+
(EXT.TEXTO(TEXTO(A1;"000000000");4;1)*7)+
(EXT.TEXTO(TEXTO(A1;"000000000");5;1)*6)+
(EXT.TEXTO(TEXTO(A1;"000000000");6;1)*5)+
(EXT.TEXTO(TEXTO(A1;"000000000");7;1)*4)+
(EXT.TEXTO(TEXTO(A1;"000000000");8;1)*3)+
(EXT.TEXTO(TEXTO(A1;"000000000");9;1)*2);11)) ;  

SE(MOD((EXT.TEXTO(TEXTO(A1;"000000000");1;1)*11)+
(EXT.TEXTO(TEXTO(A1;"000000000");2;1)*10)+
(EXT.TEXTO(TEXTO(A1;"000000000");3;1)*9)+
(EXT.TEXTO(TEXTO(A1;"000000000");4;1)*8)+
(EXT.TEXTO(TEXTO(A1;"000000000");5;1)*7)+
(EXT.TEXTO(TEXTO(A1;"000000000");6;1)*6)+
(EXT.TEXTO(TEXTO(A1;"000000000");7;1)*5)+
(EXT.TEXTO(TEXTO(A1;"000000000");8;1)*4)+
(EXT.TEXTO(TEXTO(A1;"000000000");9;1)*3+  
SE(MOD((EXT.TEXTO(TEXTO(A1;"000000000");1;1)*10)+
(EXT.TEXTO(TEXTO(A1;"000000000");2;1)*9)+
(EXT.TEXTO(TEXTO(A1;"000000000");3;1)*8)+
(EXT.TEXTO(TEXTO(A1;"000000000");4;1)*7)+
(EXT.TEXTO(TEXTO(A1;"000000000");5;1)*6)+
(EXT.TEXTO(TEXTO(A1;"000000000");6;1)*5)+
(EXT.TEXTO(TEXTO(A1;"000000000");7;1)*4)+
(EXT.TEXTO(TEXTO(A1;"000000000");8;1)*3)+
(EXT.TEXTO(TEXTO(A1;"000000000");9;1)*2)
;11)<2; 
0; 
11-MOD((EXT.TEXTO(TEXTO(A1;"000000000");1;1)*10)+
(EXT.TEXTO(TEXTO(A1;"000000000");2;1)*9)+
(EXT.TEXTO(TEXTO(A1;"000000000");3;1)*8)+
(EXT.TEXTO(TEXTO(A1;"000000000");4;1)*7)+
(EXT.TEXTO(TEXTO(A1;"000000000");5;1)*6)+
(EXT.TEXTO(TEXTO(A1;"000000000");6;1)*5)+
(EXT.TEXTO(TEXTO(A1;"000000000");7;1)*4)+
(EXT.TEXTO(TEXTO(A1;"000000000");8;1)*3)+
(EXT.TEXTO(TEXTO(A1;"000000000");9;1)*2)
;11))*2  )
;11)<2; 
0; 11-MOD((EXT.TEXTO(TEXTO(A1;"000000000");1;1)*11)
+(EXT.TEXTO(TEXTO(A1;"000000000");2;1)*10)
+(EXT.TEXTO(TEXTO(A1;"000000000");3;1)*9)
+(EXT.TEXTO(TEXTO(A1;"000000000");4;1)*8)
+(EXT.TEXTO(TEXTO(A1;"000000000");5;1)*7)
+(EXT.TEXTO(TEXTO(A1;"000000000");6;1)*6)
+(EXT.TEXTO(TEXTO(A1;"000000000");7;1)*5)
+(EXT.TEXTO(TEXTO(A1;"000000000");8;1)*4)
+(EXT.TEXTO(TEXTO(A1;"000000000");9;1)*3+  
SE(MOD((EXT.TEXTO(TEXTO(A1;"000000000");1;1)*10)+
(EXT.TEXTO(TEXTO(A1;"000000000");2;1)*9)+
(EXT.TEXTO(TEXTO(A1;"000000000");3;1)*8)+
(EXT.TEXTO(TEXTO(A1;"000000000");4;1)*7)+
(EXT.TEXTO(TEXTO(A1;"000000000");5;1)*6)+
(EXT.TEXTO(TEXTO(A1;"000000000");6;1)*5)+
(EXT.TEXTO(TEXTO(A1;"000000000");7;1)*4)+
(EXT.TEXTO(TEXTO(A1;"000000000");8;1)*3)+
(EXT.TEXTO(TEXTO(A1;"000000000");9;1)*2)
;11)<2; 
0; 
11-MOD((EXT.TEXTO(TEXTO(A1;"000000000");1;1)*10)+
(EXT.TEXTO(TEXTO(A1;"000000000");2;1)*9)+
(EXT.TEXTO(TEXTO(A1;"000000000");3;1)*8)+
(EXT.TEXTO(TEXTO(A1;"000000000");4;1)*7)+
(EXT.TEXTO(TEXTO(A1;"000000000");5;1)*6)+
(EXT.TEXTO(TEXTO(A1;"000000000");6;1)*5)+
(EXT.TEXTO(TEXTO(A1;"000000000");7;1)*4)+
(EXT.TEXTO(TEXTO(A1;"000000000");8;1)*3)+
(EXT.TEXTO(TEXTO(A1;"000000000");9;1)*2)
;11))*2  );11)))


quarta-feira, janeiro 18, 2017

To revoltada!

Data - 16 de janeiro de 2017.
Local - São Paulo
Horário - em torno de 18:30

Há 16 dias, estava feliz e contente esperando dar 23:59... pensando no que poderia pedir para o ano que iria começar. Coisas como alegria e felicidade.

Hoje às 18:30, estava com vontade de ter poderes... não de força ou o quer que seja, queria mesmo aquele poder de jogar praga que pega. Como a mão de alguém cair, ou que tenha uma dor de barriga tremenda.

Mas por quê isso? Hoje fui furtada. Desço em um ponto não muito movimentado, mas o que ocorre é que estranhamente, um monte de gente levantou para descer após eu levantar. O ônibus estava vazio, mas isso fez com que a região da porta ficasse cheia (cheia de ladrão). Quadrilha desgraçada.

Dos males o menor, poderia ter sido abordada. O que seria bem pior... aí, com certeza não estaria revoltada. Estaria é com muito medo.

Lembrei de uma publicação da Miriam Leitão contando sobre como foi ser furtada no aeroporto. Senti a mesma coisa que ela falou. O sentimento de "onde está?", a tentativa de sensibilizar alguém próximo, e esses alguém (duas pessoas) nem ligam, não se importam... você vira para pessoa e fala, "fui furtada!" - A pessoa te olha com aquele olhar de "e daí?" "ah tá..." vontade de também jogar uma praga... Mas pensa no mundo egoísta que vivemos, se conforma e se sente só em meio à humaninhos desumanizados.

E a sensação de ter falado com a pessoal que provavelmente estava com os ladrões? E não poder falar: "olha, abre essa bolsa que você está com o meu celular". Mas não poderia acusá-la, não vi, não tenho provas, só sei que estava atrás de mim.

Mas enfim. Que a minha praga pegue!!!👿