好记性不如烂笔头,日志中记录了本人学习时遇到的知识点,方便自己回顾所学,也给有需要的童孩提供参考。欢迎大家阅读,并提出宝贵意见。

QTP:获取当前日期,并按格式输出

上一篇 / 下一篇  2013-04-16 10:23:34 / 个人分类:QTP技术

QTP获取当前日期可以通过date取得,但是一般取到的日期格式都是与你当前系统的日期格式是一至的,非常不方便,下面方法可以任意改变日期格式输出:
'========================================
'名称:QTP_Date
'作用:把当日期格式显示为:yyyy-mm-dd
'参数:无
'返回值:yyyy-mm-dd格式的当前日期
'调用:msgbox QTP_Date
'========================================
Function QTP_Date
    myYear=year(now)
    myMonth=month(now)
    myDay=Day(now)
    Mydate=Cstr(myYear&"-"&myMonth&"-"&myDay)
End Function
如果想要其他格式的日期,只要稍稍修改一下以上涵数即可.
以上涵数,会输出yyyy-m-y格式,有风险,如下为yyyy-mm-dd格式输出加强版
'========================================
'名称:QTP_Date
'作用:把当日期格式显示为:yyyy-mm-dd
'参数:无
'返回值:yyyy-mm-dd格式的当前日期
'调用:msgbox QTP_Date
'其他方法:msgbox year(date) & "/" & string(2-len(month(date)),"0") &month(date) & "/" & string(2-len(day(date)),"0") & day(date)
'========================================
Function QTP_Date
    myYear=year(now)
    myMonth=string(2-len(month(now)),"0") &month(now)
    myDay=string(2-len(Day(now)),"0") &Day(now)
    QTP_Date=Cstr(myYear&"-"&myMonth&"-"&myDay)
End Function




TAG:

 

评分:0

我来说两句

Open Toolbar