在Foxpro下解决2000年问题的具体方法

陆嘉山
1997-01-01

　　１．将日期字段全部定义为字符字段，长度为１０。
　　２．若要使用中国日期格式，可在程序开头加一句：
　　ＳＥＴ　ＤＡＴＥ　ＡＮＳＩ
　　３．输入日期数值时，年份一律用４位数。如：
　　１９９９．１２．３１，２０００．０１．０１。
　　４．运算时，把ＣＴＯＤ（）函数写入表达式，即先把该字符型字段转换为日期型再进行运算。如：
　　ＤＡ１＝＇１９９９．１２．３１＇
　　ＤＡ２＝＇２０００．０１．０１＇
　　年份值：ＹＥＡＲ（ＣＴＯＤ（ＤＡ１））＝１９９９，ＹＥＡＲ（ＣＴＯＤ（ＤＡ２））＝２０００
　　ＣＴＯＤ（ＤＡ２）－ＣＴＯＤ（ＤＡ１）＝１（天）
　　结果正确。至此，完满地解决了２０００年问题。
　　而如果仍把ＤＡ１、ＤＡ２定义为日期型字段，则长度自动固定为８，如：
　　ＤＡ１＝ＣＴＯＤ（＇９９．１２．３１＇）
　　ＤＡ２＝ＣＴＯＤ（＇００．０１．０１＇）
　　年份值：ＹＥＡＲ（ＤＡ１）＝９９，ＹＥＡＲ（ＤＡ２）＝００
　　ＤＡ２－ＤＡ１＝－３６５２３（天）
　　结果出错！
　　（此法在不支持２０００年的３８６微机上启动Ｆｏｘｐｒｏ　２．６的情况下运算通过。）

 