Как использовать функцию datevalue в vba (с примером)

Вы можете использовать функцию DateValue в VBA, чтобы вернуть значение даты из заданной строки.

Вот общий способ использования этой функции на практике:

 Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = DateValue(Range(" A " & i))
Next i
    
End Sub

Этот конкретный макрос извлечет значение даты из дат и времени в диапазоне A2:A7 и вернет это значение даты в соответствующем диапазоне B2:B7 .

В следующем примере показано, как использовать этот синтаксис на практике.

Пример: как использовать функцию DateValue в VBA

Предположим, у нас есть следующий столбец даты и времени в Excel:

Предположим, мы хотим извлечь дату из каждой даты и времени в столбце A и отобразить ее в столбце B.

Для этого мы можем создать следующий макрос:

 Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = DateValue(Range(" A " & i))
Next i
    
End Sub

Когда мы запускаем этот макрос, мы получаем следующий вывод:

В столбце B отображается значение даты для каждого значения даты и времени в столбце A.

Например:

• Функция DateValue возвращает 01.01.2023 от 01.01.2023 10:15:34
• Функция DateValue возвращает 03.01.2023 от 03.01.2023 12:34:18
• Функция DateValue возвращает 05.01.2023 от 05.01.2023 8:23:00

И так далее.

Примечание . Полную документацию по функции DateValue в VBA можно найти здесь .

Дополнительные ресурсы

В следующих руководствах объясняется, как выполнять другие распространенные задачи в VBA:

VBA: как сравнивать даты
VBA: как получить название месяца из даты
VBA: число больше даты