VBA вызывает ошибку 6 Переполнение при использовании DateSerial после 1989 г.

Question

Я пытался использовать DateSerial в следующих ситуациях:

myDate = SerialDate(1969, 2, 12) в качестве примера, приведенного здесь: DateAndTime

Однако, когда я пытаюсь использовать егопосле 1990 это дает мне ошибку переполнения.

myDate = SerialDate(1990, 1, 1)

Answer 1

Вам нужно Dim myDate правильно.

Это:

Sub ThisFail()
    Dim myDate As Integer
    myDate = DateSerial(1990, 1, 1)
End Sub

переполнится. Это:

Sub ThisWorks()
    Dim myDate As Date
    myDate = DateSerial(1990, 1, 1)
End Sub

не будет.

Answer 2

Ссылка, которую вы предоставляете, предназначена для DotNET, а не для VBA.

И функция в VBA называется DateSerial(year, month, day), а не SerialDate.
См. Функция DateSerial .

Option Explicit

Public Sub TestDate()
    Dim myDate As Date
    myDate = DateSerial(1969, 2, 12) 'February 12ᵗʰ 1969

    Debug.Print myDate 
End Sub