Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: pashulka
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
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.