我会定期把我的测试心得和体会发表在这里,希望来阅览的每位朋友都有所获。即使没有,有一点启发,我也心满意足。我也欢迎您的留言,哪怕是对我的批评,或者是指出我的错误。

如何把已有的日期转换成特定的格式

上一篇 / 下一篇  2008-03-24 21:55:25

Function MyCdate(oDate)

        currentLocale = GetLocale

        original = SetLocale("en-ca")

        mon=left(cstr(FormatDateTime(oDate,1)),3)

        original = SetLocale(currentLocale)

        MyCdate=cstr(day(odate))+"-"+mon+"-"+cstr(year(odate))

End Function

点评:

此方法把原来的日期转换成成了dd-mm-yyyy 的格式。根据需要,你也可以转化成其它任何你需要的格式。此方法简单有效,非常值得学习。值得一提的是,原作者解决问题的思路和方法也值得学习。下面是作者的思路:

前几天的时候,用QTP别一个AX日期控件对象的时候,不知道是对象的关系还是QTP的关系,不可以用SET方法,只可以用SETdate来设置,而且格式只有d-M-yyyy,如"7-Mar-2007",而日期只有2007-3-7  yyyy-m-d。先是有FormatDateTime,cdate(vbs没format)来转换,我用的是简体中文系统,所以无果。看来只好自己做,如果自己做的话就要拼字符串,日-短英月-长年,日和年可以用day和year取出来。

月的话就要写select来做吗? 我发现短英月就是英文月份的前3个字符,这样的话,我就只要取出一个英文月份名就可以了。如何取出英文月份名呢?我想了,日期格式是和区域设置有关。幸好vbs中有GetLocale和SetLocale,我就方便了。这样我先设置美国英文"en-gb",得到"07 March 2007"(dd MM yyyy)。看来月份是有了。不过这个在中间,不太方便。我就是试了试别的英语国家。终于在加拿大"en-ca"中有了"March 07, 2007" ,这样我就只要取左3个字符了。

 Fromhttp://bbs.51testing.com/viewthread.php?tid=108937      http://www.114study.com/d0710190929060806


TAG:

 

评分:0

我来说两句

日历

« 2024-03-26  
     12
3456789
10111213141516
17181920212223
24252627282930
31      

数据统计

  • 访问量: 35802
  • 日志数: 47
  • 建立时间: 2006-12-15
  • 更新时间: 2013-09-06

RSS订阅

Open Toolbar