Code:
[font=Consolas][color=#0000FF]#Compile Exe[/color] [color=#0000FF]#Dim All[/color] [color=#0000FF]#Include[/color] [color=#FF0000]"win32api.inc"[/color] [color=#0000FF]Union[/color] FILETIME_DWORD_UNION_TYPE FT [color=#0000FF]As[/color] FILETIME DW [color=#0000FF]As Quad[/color] [color=#0000FF]End Union[/color] [color=#0000FF]Sub[/color] UnixTimeToFileTime[color=#FF0000]([/color][color=#0000FF]ByVal[/color] dwUnixTime [color=#0000FF]As Dword[/color], [color=#0000FF]ByRef[/color] ftFileTime [color=#0000FF]As[/color] FILETIME[color=#FF0000])[/color] [color=#0000FF]Local[/color] TimeUnion [color=#0000FF]As[/color] FILETIME_DWORD_UNION_TYPE TimeUnion.DW [color=#FF0000]=[/color] [color=#FF0000]([/color]dwUnixTime [color=#FF0000]*[/color] [color=#400000]10000000[/color][color=#FF0000])[/color] [color=#FF0000]+[/color] [color=#400000]116444736000000000[/color] ftFileTime [color=#FF0000]=[/color] TimeUnion.FT [color=#0000FF]End Sub[/color] [color=#0000FF]Function[/color] FileTimeToUnixTime[color=#FF0000]([/color][color=#0000FF]ByRef[/color] ftFileTime [color=#0000FF]As[/color] FILETIME[color=#FF0000])[/color] [color=#0000FF]As Dword[/color] [color=#0000FF]Local[/color] TimeUnion [color=#0000FF]As[/color] FILETIME_DWORD_UNION_TYPE TimeUnion.FT [color=#FF0000]=[/color] ftFileTime [color=#0000FF]Function[/color] [color=#FF0000]=[/color] [color=#FF0000]([/color]TimeUnion.DW [color=#FF0000]-[/color] [color=#400000]116444736000000000[/color][color=#FF0000])[/color] [color=#FF0000]/[/color] [color=#400000]10000000[/color] [color=#0000FF]End Function[/color] [color=#0000FF]Function PBMain[/color] [color=#008000]' ---------------------------[/color] [color=#008000]' Converting UTC to Unix time[/color] [color=#008000]' ---------------------------[/color] [color=#0000FF]Local[/color] dwUnixTime [color=#0000FF]As Dword[/color], ftCoordinatedTime [color=#0000FF]As[/color] FILETIME [color=#8000FF]GetSystemTimeAsFileTime[/color][color=#FF0000]([/color]ftCoordinatedTime[color=#FF0000])[/color] [color=#008000]' The system time is expressed in Coordinated Universal Time (UTC)[/color] dwUnixTime [color=#FF0000]=[/color] FileTimeToUnixTime[color=#FF0000]([/color]ftCoordinatedTime[color=#FF0000])[/color] [color=#0000FF]? Format$[/color][color=#FF0000]([/color]dwUnixTime,[color=#FF0000]"#,###"[/color][color=#FF0000])[/color] [color=#008000]' ---------------------------[/color] [color=#008000]' Converting Unix time to UTC[/color] [color=#008000]' ---------------------------[/color] [color=#0000FF]Local[/color] systemtimeLOCAL, systemtimeUTC [color=#0000FF]As[/color] SYSTEMTIME, filetimeLOCAL, filetimeUTC [color=#0000FF]As[/color] FILETIME UnixTimeToFileTime[color=#FF0000]([/color]dwUnixTime,filetimeUTC[color=#FF0000])[/color] [color=#8000FF]FileTimeToSystemTime[/color][color=#FF0000]([/color][color=#0000FF]ByVal VarPtr[/color][color=#FF0000]([/color]filetimeUTC[color=#FF0000])[/color], [color=#0000FF]ByVal VarPtr[/color][color=#FF0000]([/color]systemtimeUTC[color=#FF0000])[/color][color=#FF0000])[/color] [color=#0000FF]? Format$[/color][color=#FF0000]([/color]systemtimeUTC.wYear[color=#FF0000])[/color][color=#FF0000]+[/color][color=#FF0000]"[color=#FF0000]-[/color]"[/color][color=#FF0000]+[/color][color=#0000FF]Format$[/color][color=#FF0000]([/color]systemtimeUTC.wMonth[color=#FF0000])[/color][color=#FF0000]+[/color][color=#FF0000]"[color=#FF0000]-[/color]"[/color][color=#FF0000]+[/color][color=#0000FF]Format$[/color][color=#FF0000]([/color]systemtimeUTC.wDay[color=#FF0000])[/color][color=#FF0000]+[/color][color=#FF0000]" "[/color][color=#FF0000]+[/color][color=#0000FF]Format$[/color][color=#FF0000]([/color]systemtimeUTC.wHour[color=#FF0000])[/color][color=#FF0000]+[/color][color=#FF0000]":"[/color][color=#FF0000]+[/color][color=#0000FF]Format$[/color][color=#FF0000]([/color]systemtimeUTC.wMinute[color=#FF0000])[/color][color=#FF0000]+[/color][color=#FF0000]":"[/color][color=#FF0000]+[/color][color=#0000FF]Format$[/color][color=#FF0000]([/color]systemtimeUTC.wSecond[color=#FF0000])[/color][color=#FF0000]+[/color][color=#FF0000]" UTC"[/color] [color=#0000FF]End Function[/color] [/font]
Leave a comment: