BOOL DosDateTimeToFileTime( WORD wFatDate, // 16-bit MS-DOS date WORD wFatTime, // 16-bit MS-DOS time LPFILETIME lpFileTime // 64-bit file time );
BOOL DosDateTimeToFileTime( WORD wFatDate, // 16-bit MS-DOS date WORD wFatTime, // 16-bit MS-DOS time LPFILETIME lpFileTime // 64-bit file time );
LONGLONG Int32x32To64( LONG Multiplier, // first signed 32-bit integer LONG Multiplicand // second signed 32-bit integer ); Parameters Multiplier [in] Specifies the first signed 32-bit integer for the multiplication. Multiplicand [in] Specifies the second signed 32-bit integer for the multiplication.
'Convert unix date using Julian days in the Gregorian Calendar 'The unix date is the number of seconds since Jan 1, 1970 ' 965916407 -> 08-10-2000, 9:06:47am #COMPILE EXE #DIM ALL DECLARE FUNCTION unixDate(unix AS LONG) AS STRING FUNCTION PBMAIN MSGBOX unixDate(965916407) END FUNCTION FUNCTION unixDate(unix AS LONG) AS STRING LOCAL a AS LONG, y AS LONG, m AS LONG LOCAL month AS LONG, day AS LONG, year AS LONG LOCAL hour AS LONG, minute AS LONG, second AS LONG LOCAL JD AS LONG, JD0 AS LONG, txt AS STRING LOCAL s AS STRING, s1 AS STRING, s2 AS STRING LOCAL numDays AS LONG, numSecs AS LONG LOCAL b AS LONG, c AS LONG, d AS LONG, e AS LONG 'month = 1 'day = 1 'year = 1970 'a = (14 - month)\12 'y = year + 4800 - a 'm = month + 12*a - 3 'JD0 = day + (153*m + 2)\5 + 365*y + y\4 - y\100 + y\400 - 32045 'MSGBOX STR$(JD0) unix = unix - 18000 numDays = unix\86400 numSecs = unix MOD 86400 JD = 2440588 + numDays a = JD + 32044 b = (4*a + 3)\146097 c = a - (146097*b)\4 d = (4*c + 3)\1461 e = c - (1461*d)\4 m = (5*e + 2)\153 day = e - (153*m + 2)\5 + 1 month = m + 3 - 12*(m\10) year = 100*b + d - 4800 + m\10 hour = numSecs\3600 numSecs = numSecs MOD 3600 minute = numSecs\60 second = numSecs MOD 60 IF hour > 12 THEN hour = hour - 12: s = "pm" ELSE s = "am" s1 = TRIM$(STR$(minute)): IF LEN(s1)=1 THEN s1 = "0" + s1 s2 = TRIM$(STR$(second)): IF LEN(s2)=1 THEN s2 = "0" + s2 txt = TRIM$(STR$(month))+"-"+TRIM$(STR$(day))+"-"+TRIM$(STR$(year))+", " txt = txt + TRIM$(STR$(hour)) + ":" + s1 + ":" + s2 + s FUNCTION = txt END FUNCTION
Tweet
#Include "Win32api.inc"
Union u_FILETIME
FT As Filetime
Q As Quad
End Union
Declare Sub UnixTimeToFileTime(UnixTime As Dword, WFT As FILETIME)
Function PbMain()As Long
Dim WFT As FILETIME
Dim ST As SYSTEMTIME
Dim UnixTime As Dword
UnixTime = 965916407
UnixTimeToFileTime UnixTime,WFT
Call FileTimeToSystemTime(WFT,ST)
Print ST.wYear
Print ST.wMonth
Print ST.wDay
Print ST.wHour
Print ST.wMinute
Print ST.wSecond
waitkey$
End Function
Sub UnixTimeToFileTime(UnixTime As Dword, WFT As FILETIME)
Local U_WFT As U_FILETIME
U_WFT.Q = (UnixTime * 10000000) + 116444736000000000
WFT = U_WFT.FT
End Sub
Comment