文件系统时间UTC格式转为yyyy-mm-dd,hh-ss

Question

Type FILETIME                       '文件系统时间UTC格式 
        dwLowDateTime As Long       '文件系统时间的低字节段 
        dwHighDateTime As Long      '文件系统时间的高字节段 
End Type 
                                   
Debug.Print Format(WFD.ftLastWriteTime.dwHighDateTime) 
结果为  29889516 
问UTC的29889516如何转换yyyy-mm-dd 

Answer 1

Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End TypePublic Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As LongDim stcSysDateTime As SYSTEMTIME
'
'------------------------------------
FileTimeToSystemTime(WFD.ftLastWriteTime, stcSysDateTime)
'调用这个函数后，stcSysDateTime的成员中就是UTC对应的GMT 0时区日期/时间了。
'如果有需要，再换算成本地时间就行了。
'