VBA DateSerial Function

In this Article

DateSerial Description

Returns a date given a year, month, and day value.

Here is a simple DateSerial example:

Sub DateSerial_Example()
    MsgBox DateSerial(2019, 4, 1)
End Sub

This code will return 04/01/2019.

In the VBA Editor, you can type “DateSerial(” to see the syntax for the DateSerial Function:

The DateSerial function contains 3 arguments:

Year: Integer value between 100 and 9999, or a numeric expression

Month: Integer value. Any numeric expression.

Day: Integer value. Any numeric expression.

MsgBox DateSerial(2019, 40, 1)

Result: 04/01/2022

Based on the example above, we can see that the 40th month is April 2022, starting in January 2019.

MsgBox DateSerial(2019, -5, 10)

Result: 07/10/2018

MsgBox DateSerial(2019, -5, -10)

Result: 06/20/2018