Good evening
and please put me on the right track.
to do:
Config Date = Ymd, Separator = / ' ANSI-Format
Dim Strdate As String * 8
Dim Lsyssec As Long
Nb_sec = time unix - 946684800
This gives us the time from 1/1/2000
then apply the formula:
Lsyssec = Nb_sec
StrDate = Date (lsyssec)
Print "Second System"; Lsyssec; "is"; StrDate
......
↧