|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic (Datas/Números/Strings)
|
|
![](images/box01esqsup.gif) |
Título da Dica: Gerar Hora Aleatoria
|
![](images/box01dirsup.gif) |
|
|
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
|
|
|
|
![](images/hosted.gif)
|