Почему моя дата и время выглядят так? "9132128677"

Question

Данные в ячейке Excel выглядят так:

5/17/05 19:23:14

Тогда я использовал этот код:

Dim strString As String
Dim strDate As String
Dim strTime As String

strString = Sheet5.Range("A" & x)   'Where Range(A,x) contain the time stamp mentioned above

Результат в окне Locals такой:

strString = "9132128677"

Почему это происходит?

Как я могу получить strDate равным 17.05.05 и strTime равным 19: 23: 14?

Моя идея состояла в том, чтобы сделать это:

Sub SplitValue(strString As String, strDate As String, strTime As String)

    Dim varSplit As Variant

    varSplit = Split(strString, " ")

    strDate = varSplit(0)
    strTime = varSplit(1)

End Sub

Но сначала мне нужно понять, почему дата и время отображаются как «9132128677».Кто-нибудь может объяснить?

Answer 1

Вы можете щелкнуть правой кнопкой мыши -> форматировать ячейки, чтобы установить явный формат, или использовать .Text, чтобы получить значение в качестве отображаемого значения.

Answer 2

http://www.vb6.us/tutorials/formating-dates-and-times-vb6

Формат $ (теперь "мм / дд / гггг ч: мм: сс")

Answer 3

Похоже на отметку времени, это количество секунд, прошедших с предварительно определенной даты, обычно 1 января 1970 года.