改变当前日期格式
上一篇 /
下一篇 2013-09-27 10:13:48
/ 个人分类:QTP自动化测试
Rem定义变量
Dim s
Rem判断月份是否小于10同时日期小于10
If month(date) <10 and day(date)<10Then
Rem定义当前日期格式为“yyyy-mm-dd”
s= year(date) &"-"&"0"&month(date)&"-"&"0"&day(date)
Rem判断月份是否小于10同时日期大于等于10
ElseIf month(date) <10 and day(date)>=10Then
Rem定义当前日期格式为“yyyy-mm-dd”
s= year(date) &"-"&"0"&month(date)&"-"&day(date)
Rem判断月份是否大于等于10同时日期小于10
ElseIf month(date) >= 10 and day(date)< 10Then
Rem定义当前日期格式为“yyyy-mm-dd”
s= year(date) &"-"&month(date)&"-"&"0"&day(date)
Else
Rem定义当前日期格式为“yyyy-mm-dd”
s= year(date) &"-"&month(date)&"-"&day(date)
End If
收藏
举报
TAG: