Текущая дата и разница дат в VBA

В этой заметке я покажу, как получать текущую дату в разных форматах и вычислять разницу дат в VBA. Примеры для Corel DRAW, но будет работать например и в Excel.

Получить текущую дату в обычном формате несложно

Dim dat As Date
dat = Date
MsgBox dat

Обратите внимание, что для разных настроек системы (корела) результат может отличаться – в разных странах свой форматы даты по умолчанию.

Можно получить текущую дату со временем

Dim dat As Date
dat = Now()
MsgBox dat

Также есть возможность в VBA и другие форматы даты текущей:

Dim dat As String
dat = Format (Date, "dd mmmm yyyy")
MsgBox "Сегодня " & dat

Разница между датами вычисляется несложно

Dim dat As Date
Dim datNewYear As Date
Dim dayDiff As Integer
dat = Date
datNewYear = "01.01.2024"
dayDiff = DateDiff("d", dat, datNewYear)
MsgBox "До нового года осталось " & dayDiff & " дня!"

Здесь мы первый аргумент функции задали как d – то есть будет именно в днях. Все форматы отображения даты и времени можно узнать из таблицы ниже:



Если у вас есть вопросы по макросам – я могу помочь. Не бесплатно.
заметки, vba, coreldraw, макросы