说明
基于指定的范围将日期值转换为 21 世纪日期值。
参数
Date：只接受有效日期字段，年份为 2 位数或 4 位数。
定义为日期字段的数据库字段。“文件|报表选项”应设置为“将日期时间字段转换为日期”。
CDate 函数 (CDate(yyyy, MM, dd))。该函数要求一个 4 位数年份。如果输入两位数字，则使用 00xx（例如，98 AD）。
Number：一个对应于所需时限年份的 0 到 99 之间的数字。
操作
2 位数年份 (xx)
如果 Year 值大于时限数字，将在这个 2 位数之前添加 19（即 19xx）。如果 Year 值小于或等于时限数字，将在这个 2 位数之前添加 20（即 20xx）。
4 位数年份 (19xx)
如果 Year 值中的最后两位大于时限数字，则 Year 保持为日期字段中所找到的那个值（即 19xx）。如果 Year 值中的最后两位小于或等于时限数字，则前两位数字改为 20 (20xx)。如果年份字段的前两位是 20，则 Year 保持为日期字段中所找到的那个值（即 20xx）。
注意:
示例
此处的时限值比年份大，因此它将更改为 20XX。
DateTo2000(CDate(1993,12,12), 99)
应返回 2093/12/12
此处的时限值比年份小，因此不更改年份。
DateTo2000(CDate(1993,12,12), 92)
应返回 1993/12/12
其他示例
下面是一个不受该函数影响的日期示例。
DateTo2000(CDate(1899,12,12), 99)
应返回 1899/12/12
下面是一个不受该函数影响的日期示例。
DateTo2000(CDate(100,12,12), 99)
应返回 100/12/12
一些数据库以两位字段保存日期的年份部分，这将模拟上述的日期字段。
DateTo2000(CDate(98,12,12), 99)
应返回 2098/12/12
DateTo2000(CDate(98,12,12), 97)
应返回 1998/12/12
DateTo2000(CDate(9,12,12), 10)
应返回 2009/12/12
DateTo2000(CDate(1,12,12), 0)
应返回 1901/12/12