7,763
社区成员
发帖
与我相关
我的任务
分享
unsigned uDate = ( ( uTime < <16)>>27);
Function DWord2Date(ByVal DWord As Long) As Date
Dim iYear As Integer, iMonth As Integer, iDay As Integer
Dim iHour As Integer, iMinute As Integer
iYear = DWord \ &H100000
iMonth = (DWord \ &H10000) And &HF&
iDay = (DWord \ &H800) And &H1F&
iHour = (DWord \ &H40) And &H1F&
iMinute = DWord And &H3F&
DWord2Date = DateSerial(iYear, iMonth, iDay) _
+ TimeSerial(iHour, iMinute, 0)
End Function