Блог

У меня есть два простых модуля VBA. Один работает нормально (WorksOK). Один из них выдает ошибку переполнения (DoesntWork). Разница между ними заключается в том, что WorksOK вызывает MsgBox. Оба вычисляют дату 2 января 2021 года, добавляя единицу к CDate(«1 января 2021 года»). Может кто-нибудь, пожалуйста, объяснить, почему WorksOK работает нормально, а DoesntWork не работает?

Я наблюдаю такое поведение только в:

• Excel Mac Catalina 16.44 VBA 7.1
• Word Mac Catalina 16.44 VBA 7.1.

Excel VBA в Windows, кажется, в порядке.

 Sub WorksOK()
    Dim j As Integer, y As Date
    j = 1
    y = CDate("January 1, 2021")   j
    Debug.Print y
    MsgBox y
    Debug.Print CDate("January 1, 2021")   j
End Sub

Sub DoesntWork()
    Dim j As Integer, y As Date
    j = 1
    y = CDate("January 1, 2021")   j
    Debug.Print y
    Debug.Print CDate("January 1, 2021")   j  'Overflow
End Sub
 

Не могу сказать, но всегда обрабатывайте даты как даты, а не строки, а не числа, без исключений.

Это выполняется:

 Sub DoesntWork()
    Dim j As Integer, y As Date
    j = 1
    y = DateAdd("d", j, #1/1/2021#)
    Debug.Print y
    Debug.Print DateAdd("d", j, #1/1/2021#)
End Sub