QTP日期格式化

第一种方法

’==========

'作用：将传入的日期参数进行格式转化，输入格式如：2017-01-02

’参数：strChangeDate

'返回值：无

'==========

 1 Function ShortDateToLongDate(strChangeDate)
 2    b=split(strChangeDate,"-")
 3     If Int(b(1))>=0 And Int(b(1))<=9 Then
 4         b(1)="0" & b(1)
 5     End If
 6     If Int(b(2))>=0 And Int(b(2))<=9 Then
 7         b(2)="0" & b(2)
 8     End If
 9     strChangeDate=b(0) & "-" & b(1) &"-" & b(2)
10 End Function

 

第二种方法

'==========
'名称：QTP_Date
'作用：把当前日期格式显示为：yyyymmdd
'参数：无
'返回值：yyyymmdd格式的当前日期
'调用：msgbox QTP_Date
'其他方法：msgbox year(date) & "/" & string(2-len(month(date)),"0") &month(date) & "/" & string(2-len(day(date)),"0") & day(date)
'可使用Right函数使日期格式显示为：yyyy-mm-dd
'==========

1 Function QTP_Date
2     myYear=year(now)
3     myMonth=string(2-len(month(now)),"0") &month(now)
4     myDay=string(2-len(Day(now)),"0") &Day(now)
5     QTP_Date=Cstr(myYear&""&myMonth&""&myDay)
6 End Function

 

posted @ 2017-12-10 16:33  chenzy01  阅读(560)  评论(0)  编辑  收藏  举报