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

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

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

本文介绍了一个使用VBA编写的函数，该函数能够获取当前的日期和时间，并将其格式化为易于阅读的字符串形式。通过这个函数，可以方便地在各种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