Ребята, всем привет! 👋
Продолжаем изучать VBA. В прошлом уроке мы рассмотрели тип данных Double. Пришло время изучить как объявить переменную как дату.
В этом уроке мы рассмотрим:
- как присвоить переменной сегодняшнюю дату
- как присвоить переменной сегодняшнюю дату и время
- как назначить время переменной
- как присвоить дату переменной с помощью DateSerial
- как присвоить время переменной с помощью TimeSerial, а также многое другое.
✨ А прежде, чем мы начнем 📣 напомню, теперь у нас на канале есть удобный рубрикатор 👉 Быстрый поиск решения. Путеводитель по Excel, а все видео 📽 предыдущих уроков доступны и на YouTube.
☑️ Переменная даты VBA
В VBA тип данных даты хранится как десятичный.
В этом типе данных могут храниться как даты, так и время.
⚠️ Тип данных даты VBA может хранить значения в диапазоне от 1 января 100 года до 31 декабря 9999 года.
Переменная объявляется как дата с помощью ключевого слова Dim:
🔘 Dim dateOne as Date
Затем вы можете назначить дату переменной date.
🔔 Существует несколько способов создания дат для назначения переменным:
✔️ Присвоить переменной сегодняшнюю дату
Данная функция даты вернет сегодняшнюю дату:
🔘 Dim dtToday
🔘 dtToday = Date
✔️ Присвоить переменной сегодняшнюю дату и время
Функция Now вернет сегодняшнюю дату и текущее время:
🔘 Dim dNow
🔘 dNow = Now
Функция Now возвращает текущую системную дату и время.
Функция Now не содержит аргументов
Вот простой пример функции Now:
Результат:
✔️ Назначить время переменной
Функция Время вернет текущее время:
🔘 Dim tTime
🔘 tTime = Time
Функция Время возвращает текущее системное время.
Функция времени не содержит аргументов:
Вот простой пример функции времени:
Результат: выше приведенный код вернет текущее системное время.
✔️ Присвоить дату переменной с помощью DateSerial
Функция DateSerial вернет дату на основе введенных года, месяца и дня:
🔘 Dim dsDate
🔘 dsDate = DateSerial(2022, 10, 1)
DateSerial Возвращает дату, заданную значением года, месяца и дня.
В редакторе VBA вы можете ввести “DateSerial (”, чтобы увидеть синтаксис функции DateSerial:
Функция DateSerial содержит 3 аргумента:
Год: целочисленное значение от 100 до 9999 или числовое выражение
Месяц: Целочисленное значение. Любое числовое выражение.
День: целочисленное значение. Любое числовое выражение.
Вот простой пример DateSerial:
Результат:
✔️ Присвоить время переменной с помощью TimeSerial
Функция TimeSerial вернет время на основе введенных часов, минут и секунд:
🔘 Dim tsTime
🔘 tsTime = TimeSerial (6, 30, 0)
Функция TimeSerial возвращает время с заданным значением в час, минуту и секунду.
В редакторе VBA вы можете ввести “TimeSerial (”, чтобы увидеть синтаксис функции TimeSerial
Функция TimeSerial содержит 3 аргумента:
Час: числовое значение между 0 (12:00 утра) и 23 (11:00 вечера).
Минута: числовое значение, представляющее минуту.
Секунда: числовое значение, представляющее секунду.
Вот простой пример временной последовательности:
Результат: этот код вернет 6:30:00 утра.
☑️ Функция VBA DateValue
Функция DateValue VBA может использоваться для инициализации даты. Для инициализации даты в VBA можно использовать следующий код:
🔘 MsgBox DateValue("29/10/2022")
Функция DateValue возвращает серийный номер даты.
В редакторе VBA вы можете ввести “DateValue (”, чтобы увидеть синтаксис функции DateValue:
Функция DateAdd содержит аргумент:
Дата: строка текста, представляющая дату (напр. “29 октября 2022 года”)
Вот простой пример DateValue:
Результат: этот код вернет 29.10.2022
Вы можете ссылаться на ячейку, содержащую дату:
☑️ Функция VBA TimeValue
Функция TimeValue генерирует время:
🔘 MsgBox TimeValue("21:30:57")
В редакторе VBA вы можете ввести “TimeValue (”, чтобы увидеть синтаксис функции TimeValue:
Функция TimeSerial содержит аргумент:
Время: строка текста, представляющая время (например, “12:00:00 утра”).
Вот простой пример TimeValue:
Результат: этот код вернет значение 6:30:10 утра.
⏩ Пример переменной даты VBA в Excel
Эта процедура демонстрирует, как создавать переменные даты, присваивать им значения и выводить их на лист Excel:
А на этом сегодня все. 👏 Продолжение следует...
Подписывайтесь на канал, чтобы не пропустить новые уроки и полезные фишки Excel. Следите за нашими новостями и вы узнаете больше о VBA и Excel в частности.
📝 Нам очень важна Ваша обратная связь. Отзыв по уроку и любые вопросы пишите в комментариях.
💝 А если у Вас пока нет вопросов, но вы дочитали данную статью до конца оставьте в комментариях просто смайлик 😉 (автору будет приятно)
И конечно же, за лайк 👍 и репост 🔁 данного поста благодарочка 💖 и респект 🤝 каждому!