USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Gerador de CPF
Postada em 27/3/2007 por Edimo Aguiar      Clique aqui para enviar email para o autor  tej346@gmail.com
Private Sub Command1_Click()
Dim pcpf As String
Dim co As Integer
Dim t As Boolean
Do

For co = 1 To 11
  pcpf = pcpf + Trim(Str(Int(Rnd * 11) + 1))
Next co
   t = isCPF(pcpf)
If t Then: Exit Do
pcpf = ""
Loop

txt.Text = pcpf


End Sub
Function isCPF(ByVal pcpf As String) As Boolean
    
    Dim Conta As Integer, Soma As Integer, Resto As Integer, Passo As Integer
    
    isCPF = False: pcpf = Trim(pcpf)
    
    If Len(pcpf) <> 11 Then
        Exit Function
    End If
    
    For Passo = 11 To 12
        Soma = 0
        For Conta = 1 To Passo - 2
            Soma = Soma + Val(Mid(pcpf, Conta, 1)) * (Passo - Conta)
        Next
        
        Resto = 11 - (Soma - (Int(Soma / 11) * 11))
        
        If Resto = 10 Or Resto = 11 Then Resto = 0
        
        If Resto <> Val(Mid(pcpf, Passo - 1, 1)) Then
            Exit Function
        End If
    Next
    
    isCPF = True

End Function
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página