DateAndTime.DateSerial(Int32, Int32, Int32) Method

public:
 static DateTime DateSerial(int Year, int Month, int Day);

public static DateTime DateSerial (int Year, int Month, int Day);

static member DateSerial : int * int * int -> DateTime

Public Function DateSerial (Year As Integer, Month As Integer, Day As Integer) As DateTime

Parameters

Returns

A value that represents the specified year, month, and day, with the time information set to midnight (00:00:00).

Examples

This example uses the DateSerial function to return the date for the specified year, month, and day.

' DateSerial returns the date for a specified year, month, and day.
Dim aDate As Date
' Variable aDate contains the date for February 12, 1969.
aDate = DateSerial(1969, 2, 12)
Console.WriteLine(aDate)

' The following example uses DateSerial to determine and display
' the last day of the previous month.
' First, establish a starting date.
Dim startDate = #1/23/1994#
' The 0 for the day represents the last day of the previous month.
Dim endOfLastMonth = DateSerial(startDate.Year, startDate.Month, 0)
Console.WriteLine("Last day in the previous month: " & endOfLastMonth)

' The following example finds and displays the day of the week that the 
' 15th day of the following month will fall on.
Dim fifteenthsDay = DateSerial(Today.Year, Today.Month + 1, 15)
Console.WriteLine("The 15th of next month is a {0}", fifteenthsDay.DayOfWeek)

Remarks

Two-digit values for the Year argument are interpreted based on user-defined computer settings. The default settings are that values from 0 through 29 are interpreted as the years 2000-2029, and values from 30 through 99 are interpreted as the years 1930-1999. To signify all other years, use a four-digit year, for example, 1924.

The following example demonstrates negative, zero, and positive argument values. Here, the DateSerial function returns a Date representing the day before the first day of March in the year 10 years before the current year; in other words, the last day of February ten years ago.

Dim EndFeb As Date = DateSerial(-10, 3, 0)  

If either Month or Day exceeds its normal range, it is applied to the next larger unit as appropriate. For example, if you specify 32 days, it is evaluated as one month and from one to four days, depending on the value of Month. If Year is greater than 9999, or if any argument is outside the range -2,147,483,648 through 2,147,483,647, an ArgumentException error occurs. If the date specified by the three arguments is earlier than 00:00:00 on January 1 of the year 1, or later than 23:59:59 on December 31, 9999, an ArgumentOutOfRangeException error occurs.

The Date data type includes time components. DateSerial sets all of these to 0, so the returned value represents the beginning of the calculated day.

Since every Date value is supported by a DateTime structure, its methods give you additional options in assembling a Date value. For example, you can use one of the overloaded DateTime constructors to populate a Date variable using the desired combination of components. The following example sets NewDateTime to May 6, 1978 at one tenth of a second before 8:30 in the morning:

Dim NewDateTime As Date = New Date(1978, 5, 6, 8, 29, 59, 900)  

Applies to

See also

• DateValue(String)
• Day(DateTime)
• Month(DateTime)
• Now
• TimeSerial(Int32, Int32, Int32)
• TimeValue(String)
• Weekday(DateTime, FirstDayOfWeek)
• Year(DateTime)
• System
• Data Type Summary (Visual Basic)