|
P>1． PB应用程序有2000问题
PB是我国近年来开发C/S应用程序使用最多的工具之一，包括相当多的大型应用系统，因此，清理2000年问题PB应用程序是重点。用PB开发的应用程序有没有2000年问题首先要看PB本身有没有2000年问题？按Sybase提供的资料，PB5.0.04，PB6.0没有2000年问题（certified,
compliant），换言之，PB5.0 及以前的版本有2000年问题。前几年用PB5.0开发的应用程序必须进行升级或用其它程序替代。可以使用PB5.0的升级版PB5.0.04，或用PB6.0
及以上的版本升级原有的软件。
那么，用PB5.0.04，PB6.0 升级或开发的应用程序就没有2000年问题了？回答同样是否。问题不在PB本身，而在开发人员，因为PB有个隐含的内部世纪日期规则和有个长短日期的表示方法，而以往的应用程序日期的年份一般都是取2位。如果使用2位年就很容易出错，可以造成2000年问题。
本文根据Sybase的资料分析和讨论PB应用程序由于2位年可能造成程序逻辑和日期显示的2000年问题。
2. 2位年是造成PB应用程序2000年问题的主要原因
由于思维的习惯，无能是开发人员还是用户都喜欢用2位年份，并且PB
的缺省年份是2位，开发人员使用2位年份便理所当然。为了识别这2位年份属于哪个世纪，PB设计了一个隐含的世纪识别规则。可是开发人员在使用2位年份的时候常不能全部顾及区分世纪，不能正确运用PB的隐含世纪规则，于是造成PB应用程序的2000年问题。PB的隐含世纪规则是：当2位年份是50-99时，PB认为是19xx年，当2位年份是0-49时，PB认为是20xx年。
3．可能出现2000年问题的方面
可以从5个角度考察PB应用程序可能出现2000年问题的方面。
缺省的2位年日期格式问题
PB日期数据类型是4位年，包括数据表内缺省定义的日期数据类型。但是PB在各种场合都使用缺省的2位年日期格式，包括Window
控件，DataWindow的列，计算列及图形等。为了避免2000年问题的发生，我们不应直接使用缺省日期格式。开发人员应当手工全部将2位年调整为4位年。下面分别说明：
Window控件的缺省日期格式年份是2位（mm/dd/yy），例如EditMask,
其Mask 若选Type为date, 它的属性便是00/00/00。为保证4位年份，必须手工将Mask的日期置为4位年份，例如：yyyy/mm/dd，而为
0000/00/00。
DataWindow的列和计算列的日期采用的是short
date格式（mm/dd/yy）。在DateWindow日期列的format中，缺省? 格式是[general]，[general]的格式是对应这一列的数据类型的。必须手工将其修改为4位的long
date格式，即yyyy/mm/dd, 可以用test来测试更改是否成功。
在有图形的DataWindow中， 日期的缺省格式也是[general]，也就是00/00/00形式。如果取X轴为日期轴，最为简单的方法是，在data
页的category 栏中用string()函数转换，如下：
string( bonus_date,"yyyy/mm/dd")
其中bonus_date是数据表的日期字段，可以使X轴的日期刻度为4位年。这个方法比较简单有效，因为PB在图形部分对日期format的更改操作不理想。
日期字符串函数问题
date()是开发人员最常用的日期字符串函数，
Date（date_string）
其中，date_string 是日期字符串。在使用date_string字符串时一定要清楚这个字符串日期是落在哪个世纪。如果是使用是2位年份表示日期，PB会根据其内部隐含世纪规则自动地判断是那个世纪。例如，如果开发人员心目中某个员工的出生日期是“1949/12/31”，那么应该写成：
Date（“1949/12/31”）
如果写成：
Date(“49/12/31”)
那么PB认为是“2049/12/31”，相差100年，两个不同世纪。
Date()函数另外一个用途时用来判断某个日期字符串是否有效，如果是无效日期，PB设计的Date()函数返回值是“1900-01-01”。“1900-01-01”是个真实日期，不注意正确使用这个返回值可以出现程序的逻辑错误。例如尽管"1999/2/29"这个日期不存在，但是下述程序的反馈是“ok”：
if isdate(string(date("1999/02/29"))) then
messagebox("response","ok")
else
messagebox("response","not ok")
end if
因此要特别注意无效日期的返回判断。
显示日期的string()函数问题
Sting() 函数是一个很有用的显示Window, DataWindow
或Rreport上的日期的函数。但是String() 函数与日期连用时要注意使用第二个说明日期格式的参数。第二个参数未说明的话，PB则使用
short date 格式， 也就是年份是2位。例如下面的用法年份将是2位：
String(today())
因此应当设定String()的第二个参数，例如作如下说明：
String(Today(), "yyyy/mm/dd")
世纪表达问题
PB提供了若干计算日期的函数，如year, relativedate,等。由于我们处于两个世纪之交的时期，世纪表达就变得突出。世纪的表达用代码比较安全，可以避免世纪错误，例如要表达当前世纪用下述方法较好：
Left(String(Year(Today())), 2)
不要用“19” 来表示当前的世纪。因为当时钟进入21世纪时，当前世纪是“20”了。不规范的世纪表达方法也是出现2000年问题的原因。
日期数据的录入问题
在DataWindow中如果有容许用户输入2位年份的话，那么出现2000年问题的可能性很大。如果开发人员用GetItemDate（）函数提取一个2位年的输入日期，PB即使用它隐含世纪判断规则，将输入日期转换为相应世纪的4位年份日期。例如用户输入的员工出生日期是45/10/01，则GetItemDate（）函数会将其转换为2045/10/01/，而不是1945/10/01。
GetText（）函数从DataWindow 返回的是日期字符串，形式同用户的输入日期，如45/10/01。当使用2位年的输入方法时，开发人员必须记住这2位年是那一个世纪。如果再由此进行日期的计算或比较，哪个世纪必须明确，否则PB将用它的隐含世纪规则转换日期。
SingleLineEdit和EditMask控件也有类似的问题。EditMask的format属性缺省是2位年。如果EditMask控件的mask属性用缺省的2位年份格式，则返回的日期是2位年。EditMask控件有一个函数GetData（），如果mask属性是2位年，那么其返回的日期也按PB自己的隐含世纪规则进行。下面是使用4位年日期的例子，其中em_date
是EditMask，sle_date 是SingleLineEdit。
date d
em_date.GetData(d)
sle_date.Text = String(d, "yyyy/mm/dd")
4. 关于short date 和long date
short date 和 long date源自Windows控制面板的区域设置，打开区域设置可以看到日期的这两种设置。由于PB的缺省日期取自Windows
的short date，因此可以用手工在控制面板中将区域设置中的 short date 改为 yyyy/mm/dd，但是PB中的缺省日期并不自动更改，例如，需要把EditMask的日期格式需要更改为[date]International。也有人建议使用PB的RegistryGet()
和RegisterSet()函数更改操作Windows 的注册表（HKEY_CURRENT_USER\Control Panel\International），重新定义short
date，这种方法不但操作复杂，而且不能替代每一处日期格式的检查，在网络应用环境下难以管理，因此不值得提倡。最安全和最可靠的方法是不要更动Windows的shortd
date和 long date的设置，把重点放在与日期有关的域格式，日期的输入输出，函数等的运用上。
5． 结论
由上讨论可以看到，PB应用程序的2000年问题主要产生于使用2位年份，包括用2位年份显示日期，容许用户输入2位年份，和用2位年份操作日期字符串。PB的1900-01-01的无效日期返回值也是造成日期逻辑判断错误的重要原因。因此如果开发人员遵循下述规则，则PB应用程序的2000年问题可以避免：
- 使用PB的扩充属性，所有显示和输入日期格式都设置为4位年
- 用String()函数操作日期时，要设第二个参数为4位年
- 在确定日期是否为有效日期时，注意1900-01-01
[办公软件]在sybase中插入图片、PDF、文本文件 [办公软件]安装Sybase ASE
[办公软件]linux指令大全(完整篇) [办公软件]Linux新手入门常用命令大全
[办公软件]在RedHat Linux 9里安装gaim0.80 [办公软件]浅谈Linux 下Java 1.5 汉字方块问题解决方法
[办公软件]Linux程序员必读：中文化与GB18030标准 [办公软件]linux指令大全
[办公软件]制作Linux启动盘的四种方法 [办公软件]Linux文件系统的反删除方法
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
