DateValue 函数 (Visual Basic)

更新：2007 年 11 月

返回一个 Date 值，该值包含用字符串表示的日期信息，其时间信息设置为午夜 (00:00:00)。

Public Function DateValue(ByVal StringDate As String) As DateTime

参数

• StringDate
  必选。String 表达式，表示自元年 1 月 1 日 00:00:00 到 9999 年 12 月 31 日 23:59:59 之间的某个日期/时间值。

异常

如果正在升级使用无结构错误处理的 Visual Basic 6.0 应用程序，请参见“错误号”一列。（您可以根据 Number 属性（Err 对象）比较错误号。）然而，如果可能，应当考虑用 Visual Basic 的结构化异常处理概述替换这种错误控制。

备注

如果 StringDate 仅包括用有效日期分隔符分隔的从 1 到 12 的数字，DateValue 将根据为系统指定的短日期格式识别年月日的顺序。DateValue 使用 System.Globalization 命名空间中 CultureInfo 类的 CurrentCulture 属性的当前日历设置。默认 CurrentCulture 值由“控制面板”设置决定。可以通过设置 System.Globalization 命名空间中 DateTimeFormatInfo 类的 ShortDatePattern 属性重写短日期格式。

DateValue 可以识别完整形式、缩写形式和数字形式的月份名。例如，除了识别 12/30/1991 和 12/30/91 外，DateValue 还识别“December 30, 1991”和“Dec 30, 1991”。

如果 StringDate 的年份部分被省略，则 DateValue 使用取自计算机系统日期的当前年份。

如果 StringDate 参数包含时间信息，则 DateValue 不会将它包括到返回值中。但是，如果 StringDate 包含无效的时间信息（如“89:98”），则发生 InvalidCastException 错误。

示例

本示例使用 DateValue 函数将字符串转换为日期。也可以使用日期文本将日期直接分配给 Object 或 Date 变量，如 oldDate = #2/12/69#。

Dim oldDate As Date
oldDate = DateValue("February 12, 1969")

要求

命名空间：Microsoft.VisualBasic

**模块：**DateAndTime

**程序集：**Visual Basic 运行库（在 Microsoft.VisualBasic.dll 中）

请参见

参考

DateSerial 函数 (Visual Basic)

Day 函数 (Visual Basic)

Month 函数 (Visual Basic)

Now 属性

TimeSerial 函数 (Visual Basic)

TimeValue 函数 (Visual Basic)

Weekday 函数 (Visual Basic)

Year 函数 (Visual Basic)

Date 数据类型 (Visual Basic)

DateTime