Time Since 1601 II

Date: 02-16-2022

Return to Index

 
'Compilable Example:  (Jose Includes)
#Include "win32api.inc"
Function PBMain()  'Age(temp$) As Dword    '2000 05-24 10:49
   Local ST As SystemTime, FT As FileTime, temp$
   temp$ = "2000 05-24 10:49"
   ST.wYear   = Val(Mid$(temp$,1,4))  'Year
   ST.wMonth  = Val(Mid$(temp$,6,2))  'Month
   ST.wDay    = Val(Mid$(temp$,9,2))  'Day
   ST.wHour   = Val(Mid$(temp$,12,2)) 'Hour
   ST.wMinute = Val(Mid$(temp$,15,2)) 'Minute
   SystemTimeToFileTime ST,FT
   ? Format$(FT.dwLowDateTime, "#,###,###,##0")
End Function
 
                   

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm