access字符串转换为日期

在excel导入的数据中，或者其他录入的数据，看似是日期格式的字符，但是确实文本数据类型。

如何才能把文本转换成日期格式呢？当然可以使用CDate强行转换了。

由于显示的数据是类似日期格式的，所以我们用DateValue函数。

如下示例使用 DateValue 函数将字符串转换为日期。

也可以使用日期原义直接 给 Variant 或 Date 类型的变量赋值日期，例如 MyDate = #2/20/18# 。

Dim MyDate

MyDate = DateValue("February 20, 2018")'返回日期。

说明

如果 date 是一个字符串，且其内容只有数字以及分隔数字的日期分隔符，则 DateValue 就会根据系统中指定的短日期格式来识别月、日、年的顺序。DateValue 也识别明确的英文月份名称，全名或缩写均可。

如果 date 中略去了年这一部分，DateValue 就会使用由计算机系统日期设置的当前年份。

如果 date 参数包含时间信息，则 DateValue 不会返回它。但是，如果 date 包含无效时间信息（如 89:98），则会导致错误发生。

更多的access实例源码技巧，请关注Office交流网