关于API（GetFileTime)谢谢！

[legate_cn]

我用GETFILETIME得到了一个长整型的日期（UTC格式）可是不知道怎样转换成这样的格式（年、月、日、小时、分）有什么函数吗？能帮帮我吗？

[legate_cn]

To: Bardo(巴顿)
谢谢了，马上送分！

[Bardo]

使用FileTimeToSystemTime
函数！！

[legate_cn]

在VB下怎么用，我不会，帮帮我！谢谢！一定给分。

[Bardo]

Public Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long

Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Public 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 Type


Function ChangeTime(mFiletime As FILETIME) As Date
Dim mSystemTime As SYSTEMTIME
FileTimeToSystemTime mFiletime, mSystemTime
ChangeTime = Format(mSystemTime.wYear & "-" & mSystemTime.wMonth & "-" & mSystemTime.wDay, "YYYY-MM-DD")

End Function