|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
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
ReDim a(0 To nCasas)
a:
For i = 0 To nCasas - 1
Randomize
a(i) = Int(Rnd * nFormatoCasas)
e = IIf(i < nCasas - 1, e & a(i) & _
sDelimiter, e & a(i))
Next
gCODAleatorio = Trim$(e)
End Function
|
|
|
|
|
