您的位置:首页 > 编程语言 > Qt开发

QTP获取系统时间并自定义格式

2012-08-03 16:47 387 查看
function GetDateTime(Nowstr)

Dim Currentdatetime

Dim YY 'Year

Dim MM 'Month

Dim DD 'Day

Dim HH 'Hour

Dim Min 'MInute

Dim SS 'Second

Currentdatetime=now()

YY=Year(Currentdatetime)

MM=Month(Currentdatetime)

If MM<10 Then

MM="0"&MM

End If

DD=Day(Currentdatetime)

If DD<10 Then

DD="0"&DD

End If

HH=Hour(Currentdatetime)

If HH<10 Then

HH="0"& HH

End If

Min=Minute(Currentdatetime)

If Min<10 Then

Min="0"&Min

End If

SS=Second(Currentdatetime)

If SS<10 Then

SS="0"&SS

End If

Nowstr=YY&"-"&MM&"-"&DD&" "&HH&":"&Min

end function
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: