Возвращает текущую системную дату и время в виде значения типа Date.
Now
Дата
Sub ExampleNow
msgbox "Сегодняшняя дата и время: " & Now
End sub