在使用QTP创建表格检查点时，由于录制页面表格中日期是动态更新的，而使用旧的脚本运行就会出现检查点通不过的问题，我主要是想把这个表格中的日期用函数变量来代替，让它能够自动获取到系统的日期。QTP中的那个日期的格式是mar 17，2008，而我们日常获取到的日期方式3/17/2008,不知道如何才能转换成那种形式。不转换的话，检查点通过不了，可以使用一下方法解决：
Dim MyYear,MyMonth,MyDay,original,currentLocale,MyCdate
MyYear=Year(Now)
MyMonth=Month(Now)
MyDay=Day(now)
currentLocale = GetLocale'获取当前的区域设置
riginal = SetLocale("en-ca")'将区域设置设置为“加拿大英语”。
MyMonth=monthname（MyMonth,true)'把日期型格式化为长日期型
riginal = SetLocale(currentLocale)'使用 currentLocale 变量将区域设置设置为“加拿大英语”。
MyCdate=cstr(MyMonth&" "&MyDay&","&MyYear)
DataTable.Value ("sysdate1","Global")=MyCdate