- Код: Выделить всё
Sub test()
Dim date1 As Date
Dim oldday As Integer
date1 = 300000
oldday = Microsoft.VisualBasic.DateAndTime.day(date1)
'oldday = DateAndTime.day(date1)
End Sub
При запуске программы возникает ошибка "424 Object required" на строке:
oldday = Microsoft.VisualBasic.DateAndTime.day(date1)
При использовании
oldday = DateAndTime.day(date1)
(Верхняя строчка в таком случае закомментирована)
результат тот же
Так как же использовать эту функцию?