Gerar número de sessão em VB

previous page next page

Public Function numSessao()

Randomize

' Gera um número randomico de 5 dígitos.

Dim value As Integer

'Dim sessao As Integer

sessao = CInt(Int((9999 * Rnd()) + 10000))

' Mostra o valor da sessão em um campo do tipo Text.

Text1.Text = CInt(sessao)

numSessao = Abs(sessao)

End Function

previous page start next page