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

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

posted on 2014-06-19 09:21  信平  阅读(374)  评论(0编辑  收藏  举报