[VB6] Generazione di date casuali (random)

[TittyMail]

Ciao
mi serve creare una funzioncina che mi genera date random in formato yyyymmddhhmmss. Ovviamente date giuste.....qualcuno mi aiuta??

[alka]

Ho spostato la discussione nel forum dedicato a Visual Basic: posta qui le domande relative a questo linguaggio in futuro.

Ciao!

[Boolean]

prova questa funzioncina

Function GeneraDataRnd() As String

Dim AA As String
Dim MM As String
Dim GG As String
Dim H As String
Dim M As String
Dim S As String
Dim NumG As Integer

Randomize Timer

AA = 1900 + Int(Rnd * 101)
MM = Format(1 + Int(Rnd * 13), "00")
NumG = DateDiff("y", "01/" & MM & "/" & AA, DateAdd("m", 1, "01/" & MM & "/" & AA))
GG = Format(1 + Int(Rnd * NumG + 1), "00")

H = Format(1 + Int(Rnd * 25), "00")
M = Format(1 + Int(Rnd * 61), "00")
S = Format(1 + Int(Rnd * 61), "00")

GeneraDataRnd = AA & MM & GG & H & M & S

End Function

Boolean