获取当前年月日时分秒的连续数字字符串

'************************************
'功能:获取当前年月日时分秒的连续数字字符串
'参数:无
'调用方式: ret = GetCurrentTime()
'返回值:返回年月日时分秒的连续数字字符串如:20130808080808
'作者:HF
'日期:2013-08-19
'************************************
Function GetCurrentTime()
Datetime = Now
Parameter = Array("yyyy","m","d","h","n","s")
For Each P In Parameter
Temp = DatePart(P,Datetime)
If Len(Temp) = 1 Then
Temp = "0"&Temp
End If
strTime = strTime & Temp
Next
GetCurrentTime = strTime
End Function

'-------------没有时分秒--------------
Function GetCurrentDate()
Datetime = date
Parameter = Array("yyyy","m","d")
For Each P In Parameter
Temp = DatePart(P,Datetime)
If Len(Temp) = 1 Then
Temp = "0"&Temp
End If
strTime = strTime & Temp
Next
GetCurrentTime = strTime
End Function

MsgBox GetCurrentTime()