|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Gerar Hora Aleatoria
|
 |
|
|
|
Postada em 19/9/2003 por Brexuega
aki vai o codigo para gerar Hora aleatoria
----------------------------------------------------------------------
Public Function RndHora() As Date
Dim hora As Integer
Dim min As Integer
Dim seg As Integer
Dim HoraDef As Date
Dim TmpHora As String
Do
hora = Round((Rnd(Time) * 100), 0)
Loop Until hora <= 23
Do
min = Round((Rnd(Time) * 100), 0)
Loop Until min <= 59
Do
seg = Round((Rnd(Time) * 100), 0)
Loop Until seg <= 59
TmpHora = hora & ":" & min & ":" & seg
HoraDef = CDate(TmpTime)
RndHora = HoraDef
End Function
----------------------------------------------------------------------
¥ ADS
|
|
|
|
|
