Como fazer verificação de CPF e PIS - PASEP no Excel

Como fazer verificação de CPF e PIS - PASEP no Excel

CPF:

Abra o editor do Visual Basic (alt+F11) e adicione um novo módulo (menu inserir - módulo).

Copie e cole o código entre os traços:
------------------------------
unction Checa_cpf(TRIPA As String) As Boolean

Dim wcpf As String
Dim WCPF2 As String
Dim wi As Integer
Dim wpedaco As String
Dim wtot As Integer

wcpf = ""

For wi = 1 To Len(TRIPA)
wpedaco = Mid(TRIPA, wi, 1)
If wpedaco >= "0" And wpedaco <= "9" Then wcpf = wcpf & wpedaco
Next wi
If Len(wcpf) <> 11 Then
Checa_cpf = False
End If

For wi = 1 To 9
wtot = wtot + (11 - wi) * Val(Mid(wcpf, wi, 1))
Next wi

wdig1 = wtot Mod 11
If wdig1 < 2 Then
wdig1 = 0
Else
wdig1 = 11 - wdig1
End If
WCPF2 = Left(wcpf, 9) & wdig1

wtot = 0
For wi = 1 To 10
wtot = wtot + (12 - wi) * Val(Mid(WCPF2, wi, 1))
Next
wdig2 = wtot Mod 11
If wdig2 < 2 Then
wdig2 = 0
Else
wdig2 = 11 - wdig2
End If

Checa_cpf = (Right(wcpf, 2) = wdig1 & wdig2)

End Function

----------------------------------
Depois você verifica uma celular que contenha o CPF através da formula: =Checa_cpf(A1). Ele retorna Verdadeiro ou Falso.

Para verificar ou validar o PIS - PASEP:

Abra o editor do Visual Basic (alt+F11) e adicione um novo módulo (menu inserir - módulo).

Copie e cole o código entre os traços:
-------------------------------------

Public Function PISPASEP(numero As String)
Dim ftap As String
Dim total As String
Dim i As Integer
Dim resto As Integer

If Val(numero) = 0 Or Len(numero) <> 11 Then
  PISPASEP = False
  Exit Function
End If

ftap = "3298765432"
total = 0

For i = 1 To 10
  total = total + Val(Mid(numero, i, 1)) * Val(Mid(ftap, i, 1))
Next i

resto = Int(total Mod 11)

If resto <> 0 Then
  resto = 11 - resto
End If

If resto <> Val(Mid(numero, 11, 1)) Then
  PISPASEP = False
  Exit Function
End If

PISPASEP = True

End Function

----------------------------------

Depois você verifica uma celular que contenha o PIS através da formula: =PISPASEP(A1). Ele retorna Verdadeiro ou Falso.

Gigantes da alimentação industrial, APRENDAM:

Shrek Real

O Shrek realmente existiu. Foi um lutador de Luta livre realmente feio. Seu nome era Maurice Tillet - também chamado de The French Angel (O anjo francês). Clique nas imagens para ver mais fotos.

Novo Blog - Picdumps Brasil

Amigos,

Minha namorada começou um projeto novo - resolveu fazer a merda de virar blogueira, rsrsrs. Então peço que vocês deem uma ajudinha e acessem, comentem, Facebooquem, Orkutem, etc, etc!

É um blog de Coletânea de imagens, linkando sites externos.

E de presente (se isso for) prometo que estou voltando às atividades no Chucrutiz!! hehehe

Link do Blog: PICDUMPSBrasil

Abraços!!

Roma antiga

Meanwhile at ancient Rome...

Abduzido do excepcional The perry bible fellowship

Oi!

Olá amiguinhos!

O blog esteve (e meio que AINDA está) fora do ar por um longo tempo, devido a falta de tempo deste que vos escreve. Pretendo voltar às atividades na próxima semana e gostaria muito da ajuda de outras pessoas. Então, quem quiser ajudar aqui no Chucrutiz, é só enviar um e-mail para contato.chucrutiz arroba gmail.com.

Abs!

Obras

Estamos em obras.

Em breve o Chucrutiz voltará!

Desculpem-nos.

Nerd + Scanner velho =

Pergunta: O que um Nerd faz com um Scanner velho?

Resposta: O que todo mundo teve, tem ou terá vontade de fazer: Chamar uma gata e brincar de "sacanner". :D

Tá bom, essa foi horrível, mas as imagens compensam:

Só para +de 18, viu criançada?! Clique em:

My humps

O Black Eyed Peas acabou, mas deixou seu legado!

..

..

Hahahahahah!

Baixe o edital do concurso para Auditor Fiscal da Receita Federal - 2009

Saiu o edital para o concurso de auditor fiscal da Receita Federal 2009! Serão 450 vagas para todo o Brasil, com um salário inicial de R$ 13 mil. As inscrições serão feitas a partir do dia 28 de setembro até o dia 13 de outubro de 2009.

 

 

Resumo:

Cargo:

Auditor-Fiscal da Receita Federal do Brasil

Escolaridade: Curso Superior concluído, em nível de graduação

Remuneração inicial:  subsídio mensal no valor de R$ 13.067,00

Taxa de Inscrição : R$ 130,00

Número de vagas: 450

Período de Inscrição: Entre 10 horas do dia 28 de setembro de 2009 e 23h59min do dia 13 de outubro de 2009

Aplicação das provas: dias 5 e 6 de dezembro de 2009

 

 

 

 

 

Baixe o Edital de Abertura clicando AQUI.

Vídeo do governador Jaques Wagner

Assista (enquando estiver no ar) e tire suas próprias conclusões...
..

..

hehehehe

via @Ubaldinojr

Artista equilibrista

Bill Dan é um escultor bastante singular. Ele cria esclturas equilibrando objetos uns sobre os outros e, para isso, utiliza somente a força da gravidade; nada de cola, apoio ou algo parecido.

Geralmente, ele cria suas obras de arte no litoral de São Francisco, Califórnia.

..

..

Desafio Coca-Cola: Abra sua Felicidade

Tive uma surpresa legal quando cheguei do trabalho e vi um pacotão que tinha chegado pelo correio. Quando abri, vi uma caixa de madeira com uma garrafa de coca e um Pincel dentro:

não entendi nada! Aí, resolví ler para enteder, hehehe.

Trata-se da nova promoção da Coca: Desafio Abra Sua Felicidade. A coisa é simples. Você acessa Esse Site e ajuda um robô a abrir uma garrafa de Coca com coisas inusitadas, como um rolo de papel higiênico e uma galinha de borracha, por exemplo. Cada vez que você consegue fazer o robô abrir a garrafa, você ganha um cupom eletrônico que faz com que você possa concorrer a prêmios especiais customizados por Coca-Cola: 30 videogames Xbox 360, da Microsoft, e 30 aparelhos celulares Motorola, de um modelo inédito que em breve chegará ao mercado brasileiro. Você pode acumular até 20 cupons por dia. Eu já estou concorrendo!

No site de Coca-Cola, a campanha “Abra a Felicidade” disponibiliza também uma série de conteúdos interativos, como wallpapers, ringtones e emoticons.

E se lembram do "abridor" que me mandaram? Será se consegui abrir? Dá uma conferida no vídeo abaixo e veja a presepada! :D

..

..

Exemplo de cuidado com encomendas

Aposto como você sempre fica imaginando porque suas encomendas chegam tão amassadas, já que as empresas de transporte tem uma preocupação constante com a integridade física dos pacotes, né? Ou será que não?

..

..

Venda de ingressos para o jogo Brasil x Chile em Salvador

Compre Aqui seu ingresso para o jogo! (talvez você garimpe e ache algum perdido por lá. Eu não consegui ver nenhum...)

A venda de ingressos para o jogo Brasil x Chile que acontecerá no dia 09 de setembro no estádio de Pituaçu, em Salvador, começou no dia 30 de agosto e, após várias confusões nas bilheterias e a alta procura no site Futebolcard, já na manhã do dia 31, todos os ingressos já tinha sido esgotados.

Cada comprador só teve direito a adiquirir no máximo dois ingressos. Essa medida foi feita para coibir a ação de cambistas - o que acredito ser válido, porém insuficiente, pois quando um cambista vai compar ingressos, pega sua Kombi, coloca a família toda dentro do carro (umas 15 pessoas) e vai cedinho para a fila. Podem escrever. Jajá aparecem ingressos para ser vendidos fora da bilheteria e por um preço exorbitante.

Clássicos do cinema - k9 - Detetive Particular

k9 - Detetive Particular

• Título original: K-9 P.I (2002)


• Elenco: James Belushi, Gary Basaraba, Kim Huffman, Jody Racicot, Christopher Shyer e Barbara Tyson.


• Direção: Richard J. Lewis


• Gênero: Comédia

Sinopse: O tira Thomas Dooley está prestes a se aposentar. No entanto, por causa de seu pastor alemão, ele acaba se tornando o suspeito de um roubo armado a uma companhia de alta tecnologia na área informática. Agora, Thomas e seu fiel cão precisam se transformar em detetives particulares para descobrir quem são os verdadeiros culpados pelo golpe.

Veja abaixo o Trailler:

..

..

Clique Aqui e veja como fazer o Download grátis do filme " k9 - Detetive Particular"

Todo enfiado - O Troco

O Álcool, definitivamente, não é o melhor amigo do ser humano. E o danado é que a gente insiste em andar com as companhias erradas (e ainda gosta, rsrsrs). Uma professora de 28 anos foi filmada dançando no palco do Malagueta - uma casa de Shows aqui de Salvador - e esse vídeo foi "upado" no Youtube. A direção da escola que a professora trabalhaVA tomou conhecimento do fato e demitiu sumariamente a coitada... Ela colocou a culpa nesse amigo sacana - o Álcool.

Olha, como não sou imparcial e isso aqui não é jornal, posso expressar minha opinião. Acredito que o que a pessoa faz na sua vida pessoal não deve interferir na profissional e vice-versa. É claro que não condeno a decisão da escola - nem a maior prejudicada o fez, porque eu faria? - mas uma demissão assim, é até perigoso para a instituição.

O fato é que a professora literalmente dançou e está aí, desempregada. Mais uma.

Abaixo o vídeo que mostra a performance da professora no Malagueta, dançando a música "todo enfiado" da banda O Troco:

UPDATE: Novo vídeo com melhor resolução!

..

..

Nós do Chucrutiz desejamos que a Professora consiga um novo emprego logo.

Veja no site do Correio a reportagem completa. Clique Aqui.

Efeitos colaterais do twitter

Caros,

Muito, mas muito cuidado com o twitter... seus efeitos colaterais são de veras preocupantes!

Imagine

Imagine... somente... IMAGINE!

Imaginou?

Quer casar comigo?

Existem mil maneiras de pedir alguém em casamento: Colocando o anel no Sunday, pagando um avião para sobrevoar a praia com um cartaz imenso atrás, fazer o pedido ao vivo no meio de um estádio lotado (e as vezes receber um não) e, até mesmo, contratar um daqueles carros de mensagens e mandar o cara ir em frente ao prédio que a pretendida trabalha para fazer ela passar aquela vergonha... (esse, com certeza resultará em um NÃO em caixa alta e fonte 72pt). Realmente são várias opções para você escolher quando chegar aquela hora...

Abaixo, um vídeo com mais uma dica. O cara foi mestre nessa!

..

..

Inusitado, não?