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

最新推荐文章于 2022-04-17 10:17:37 发布

最新推荐文章于 2022-04-17 10:17:37 发布 · 203 阅读

本文介绍了一个使用VBA函数获取当前日期时间的详细步骤，包括年、月、日、时、分、秒的提取与格式化。

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