DATE$ function

[eoredson]

Maximum int64 seconds in years:

Code: (Select All)

Dim y As _Integer64
Dim s As _Integer64
Dim d As _Integer64

s = 86400 ' seconds
d = 365 ' days

Dim t As _Integer64
y = 292277026596 ' years
t = y * s * d
Print "Maxint="; t
Print "Overflow Maxint= "; t * 2