Referência: Gerador de CPF Válidos por MS Access e VBA
Opa! Esse já foi para o meu baú de pesquisas!!!
Obrigado Dilson!
Opa! Esse já foi para o meu baú de pesquisas!!!
Obrigado Dilson!
For i = 0 To 8
nRand = Int((9 * Rnd) + 1)
If i = 0 Then
nAleatorio = nRand
Else
nAleatorio = nAleatorio & "." & nRand
End If
Next i
nAleatorio = "0"
For i = 0 To 7
nRand = Int((9 * Rnd) + 1)
nAleatorio = nAleatorio & "." & nRand
Next i