На нашем сайте мы используем cookie для сбора информации технического характера и обрабатываем IP-адрес вашего местоположения. Продолжая использовать этот сайт, вы даете согласие на использование файлов cookies. Здесь вы можете узнать, как мы пользуемся файлами cookies.
Я согласен
логотип upread.ru

Текущая дата и разница дат в 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, макросы





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



Убираем повторения слов на C++
Протоколы TCP/IP


© upread.ru 2013-2023
При перепечатке активная ссылка на сайт обязательна.
Задать вопрос
письмо
Здравствуйте! Вы можете задать мне любой вопрос. Если не получается отправить сообщение через эту форму, то пишите на почу up777up@yandex.ru
Отправляя сообщение я подтверждаю, что ознакомлен и согласен с политикой конфиденциальности данного сайта.