Текущая дата и разница дат в VBA
В этой заметке я покажу, как получать текущую дату в разных форматах и вычислять разницу дат в VBA. Примеры для Corel DRAW, но будет работать например и в Excel.
Получить текущую дату в обычном формате несложно
Dim dat As Date dat = Date MsgBox dat
![](img/art1099-1.png)
Обратите внимание, что для разных настроек системы (корела) результат может отличаться – в разных странах свой форматы даты по умолчанию.
Можно получить текущую дату со временем
Dim dat As Date dat = Now() MsgBox dat
![](img/art1099-2.png)
Также есть возможность в VBA и другие форматы даты текущей:
Dim dat As String dat = Format (Date, "dd mmmm yyyy") MsgBox "Сегодня " & dat
![](img/art1099-3.png)
Разница между датами вычисляется несложно
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 & " дня!"
![](img/art1099-4.png)
Здесь мы первый аргумент функции задали как d – то есть будет именно в днях. Все форматы отображения даты и времени можно узнать из таблицы ниже:
![](img/art1099-5.png)
Если у вас есть вопросы по макросам – я могу помочь. Не бесплатно.
![](https://upread.ru/img/pret11.jpg)
Автор этого материала - я - Пахолков Юрий. Я оказываю услуги по написанию программ на языках Java, C++, C# (а также консультирую по ним) и созданию сайтов. Работаю с сайтами на CMS OpenCart, WordPress, ModX и самописными. Кроме этого, работаю напрямую с JavaScript, PHP, CSS, HTML - то есть могу доработать ваш сайт или помочь с веб-программированием. Пишите сюда.
![теги](https://upread.ru/img/tag-309129_640.png)
Отправляя сообщение я подтверждаю, что ознакомлен и согласен с политикой конфиденциальности данного сайта.