第一种方法
’==========
'作用：将传入的日期参数进行格式转化，输入格式如：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