prova questa funzioncina

codice:
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