Gerar números aleatórios com várias opções

[ℛiqu∊ 13]

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

 

Hennyere~