| |
|
|
| |
Private Function uTimeToDateTime(uTime As Double) As Date
'uTimeToDateTime = 25569 + uTime / 86400
uTimeToDateTime = CDate(25569 + uTime / 86400)
End Function
|
Private Function uTimeToDateTime2(uTime As Double) As Date
'uTimeToDateTime2 = DateAdd("s", uTime, 25569)
uTimeToDateTime2 = DateAdd("s", uTime, CDate(25569))
End Function
|
Private Sub Test()
MsgBox uTimeToDateTime(1234567890)
MsgBox uTimeToDateTime2(1234567890)
End Sub
|
| |
| |
|
