Как из определенного набора цифр получить дату и время? - VB

Формулировка задачи:

Здравствуйте! Покажите пожалуйста как из этого набора цифр -

228945175440008000

получить нормальную дату. Что это за цифры не спрашивайт, сам не знаю, но точно знаю, что они показывают дату и время.

Решение задачи: «Как из определенного набора цифр получить дату и время?»

textual
                            Листинг программы 
                        

                            Public Sub Trans()
  ' Переменные
    Dim strDate As String ' строка с датой в числовом формате
    Dim dblDate As Double ' дата во внутреннем формате VB
  ' Код
    ' записываем число в строку
    strDate = Format(228945175440008000, "0")
    ' преобразовываем первые 10 символов строки к внутреннему представлению даты
    dblDate = Val(Left(strDate, 10)) / (10 ^ 5)
    ' получаем из числа дату
    MsgBox Format(dblDate, "dd.mm.yy hh:mm:ss")
End Sub
                        

Оцени полезность:

12 голосов , оценка 3.75 из 5

Похожие ответы