DateSerial 函数

返回指定年月日的变量（日期）。

语法

DateSerial (年、 月、 日)

DateSerial 函数语法具有以下三个命名参数：

Part	说明
year	必需；类型为 Integer。 介于 100 和 9999 之间（含 100 和 9999）的数字或者数字表达式。
month	必需；类型为 Integer。 任何数字表达式。
一天	必需；类型为 Integer。 任何数字表达式。

备注

若要指定日期（如 1991 年 12 月 31 日），每个 DateSerial参数 的数字范围应位于单位的接受范围内;即，1–31 天，1–12 个月。 但是，还可以通过使用表示某个日期之前或之后的天数、月数或年数的任何数值表达式来指定每个参数的相对日期。

以下示例使用数值表达式而不是绝对日期数字。 在这里 ，DateSerial 函数返回一个日期，即 () 1 - 1 的第一天，即 (年 8 月) 8 - 2 日之前的两个月，即 1990 (1990 - 10) 之前的 10 年;换句话说，1980 年 5 月 31 日。

在 Windows 98 或 Windows 2000 中，根据用户定义的计算机设置将 year 参数解释为两位数的年份。 默认设置值介于 0 到 29 之间（含 0 和 29）时，解释为 2000–2029 年。 默认值介于 30 到 99 之间时解释为 1930–1999 年。 对于所有其他 year 参数，使用四位数的年份（例如 1800）。

早期版本的 Windows 根据前面所述的默认值解释两位数年份。 为确保函数返回正确的值，请使用四位数的年份。

当任何参数超出该参数接受的范围时，它根据需要递增到下一个更大的单位。 例如，如果您指定了 35 天，那么根据在一年中所处的时间段，将其计算为一个月又过了几天。 如果任何单个参数超出了 -32,768 - 32,767 范围，将发生错误。 如果这三个参数指定的日期超出了日期的可接受范围，将发生错误。

注意

对于 年、 月和 日，如果 Calendar 属性设置为 Gregorian，则假定提供的值为 Gregorian。 如果 Calendar 属性设置为 Hijri，那么提供的值也假定为 Hijri。

返回的日期部分采用当前 Visual Basic 日历的时间单位。 例如，如果当前日历为 Hijri，而要返回的日期部分为年份，那么年份值为 Hijri 年份值。 对于参数 年，介于 0 和 99（含）之间的值被解释为 1400-1499 年。 对于所有其他 year 值，请使用完整的四位数年份（例如 1520）。

示例

此示例使用 DateSerial 函数返回指定年月日的日期。

Dim MyDate
' MyDate contains the date for February 12, 1969.
MyDate = DateSerial(1969, 2, 12)    ' Return a date.

另请参阅

• 函数 (Visual Basic for Applications)

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。