|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Windows)
|
|
 |
Título da Dica: Gerar números aleatórios com várias opções
|
 |
|
|
|
Postada em 20/4/2007 por ¨Hennyere¨
Public Function gCODAleatorio(Optional sDelimiter As String = ".", Optional nCasas As Integer = 4, Optional nFormatoCasas As Integer = 99) As String
Dim i As Integer, e As String, a As String
For i = 0 To nCasas - 1
Randomize
a = Int(Rnd * nFormatoCasas)
e = IIf(i < nCasas - 1, e & a & _
sDelimiter, e & a)
Next
gCODAleatorio = e
End Function
|
|
|
|
|
