|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Gerar Data Aleatoria
|
 |
|
|
|
Postada em 22/9/2003 por Brexuega
Depois da Hora vem a Data
----------------------------------------------------------------------
Public Function RndData() As Date
Dim dia As Integer
Dim mes As Integer
Dim ano As Integer
Dim diaM As Integer
Dim DataDef As Date
Dim TmpData As String
Do
mes = Round((Rnd(Time) * 100), 0)
Loop Until mes > 0 And mes < 13
Do
ano = Round((Rnd(Time) * 10000), 0)
Loop Until ano > 1900 And ano < Year(Date)
' se em vez de 1900 for 2000 o processo torna-se um pouco lento
Select Case mes
Case 1, 3, 5, 7, 8, 10, 12
diaM = 3
Case 2
If (ano Mod 4) = 0 And (ano Mod 100) = 0 Or (ano Mod 400) = 0 Then
diaM = 1
Else
diaM = 0
End If
Case Else
diaM = 2
End Select
Do
dia = Round((Rnd(Time) * 100), 0)
Loop Until dia > 0 And dia < 28 + diaM
TmpData = dia & "/" & mes & "/" & ano
DataDef = CDate(TmpData)
RndData = DataDef
End Function
----------------------------------------------------------------------
¥ ADS
|
|
|
|
|
