Postada em 14/02/2012 15:39 hs
Amigo,
Número randômico use a função RND, sendo que para cinco dígitos seria o máximo 99999.
Dim NumAleatorio as Double
NumAleatorio = int(RND * 99999)
Retire o INT se não quiser que seja número inteiro (sem o INT ficariam também números com vírgula)
Se quiser que fique formatado, preenchendo com zeros à esquerda, use:
Dim NumAleatorio as Double
Dim StrNumeroFormatado as String
NumAleatorio = int(RND * 99999)
StrNumeroFormatado = ltrim(rtrim(str(NumAleatorio)))
StrNumeroFormatado = string(5 - len(StrNumeroFormatado),"0") & StrNumeroFormatado
Abraços,
Euzébio.
|
