Метод 1: использование функции «Год».
Один из самых простых способов получить текущий год в VBA — использовать функцию «Год». Эта функция возвращает компонент года заданной даты. Вот пример:

Dim currentYear As Integer
currentYear = Year(Date)

Dim currentDate As String
Dim currentYear As Integer
currentDate = "2024-03-04"
currentYear = Year(DateValue(currentDate))

Метод 3: использование функции Now
Функция Now возвращает текущую дату и время. Если вам нужен только год, вы можете извлечь его с помощью функции «Год». Вот пример:

Dim currentYear As Integer
currentYear = Year(Now)

Метод 4: использование функции форматирования
Функция форматирования позволяет форматировать значение даты или времени определенным образом. Используя строку формата, содержащую «гггг», вы можете получить текущий год. Вот пример:

Dim currentYear As String
currentYear = Format(Now, "yyyy")

Метод 5: получение года из значения ячейки
Если у вас есть ячейка на листе Excel, содержащая дату, вы можете извлечь год с помощью функции «Год» вместе с объектом «Диапазон». Вот пример:

Dim currentYear As Integer
currentYear = Year(Range("A1").Value)

В этой статье мы рассмотрели несколько методов получения текущего года в VBA. Предпочитаете ли вы использовать такие функции, как «Год», или объекты «Формат» или «Диапазон», существуют различные подходы, соответствующие вашим потребностям. Освоив эти методы, вы будете лучше подготовлены к работе с датами и автоматизации задач в программировании VBA. Приятного кодирования!