120309 QTP 取得当前时间

COPY代码如下：

'获取当前时间 年月日时分秒
function GetDateTime()
                Dim Currentdatetime
                Dim YY   'Year
                Dim MM   'Month
                Dim DD   'Day
                Dim HH 'Hour
                Dim Min  'MInute
                Dim SS   'Second
                Dim Nowstr
                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=MM & DD & YY & HH & Min & SS
                Nowstr=YY & MM & DD & HH & Min & SS
                GetDateTime=Nowstr
end function