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

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

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

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

Этот конкретный макрос вернет значения даты в диапазоне D2:D13 , используя значения года в столбце C, значения месяца в столбце B и значения дня в столбце A.

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

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

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

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

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

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

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

В столбце D отображается значение даты, полученное в результате использования значений дня, месяца и года из столбцов A, B и C соответственно.

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

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

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

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