Текущая дата и разница дат в 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 – то есть будет именно в днях. Все форматы отображения даты и времени можно узнать из таблицы ниже:



Если у вас есть вопросы по макросам – я могу помочь. Не бесплатно.
Автор этого материала - я - Пахолков Юрий. Я оказываю услуги по написанию программ на языках Java, C++, C# (а также консультирую по ним) и созданию сайтов. Работаю с сайтами на CMS OpenCart, WordPress, ModX и самописными. Кроме этого, работаю напрямую с JavaScript, PHP, CSS, HTML - то есть могу доработать ваш сайт или помочь с веб-программированием. Пишите сюда.

тегизаметки, vba, coreldraw, макросы




Отправляя сообщение я подтверждаю, что ознакомлен и согласен с политикой конфиденциальности данного сайта.




Уроки по Laravel
Что такое база данных?
Комментарии к SQLite