转化如“2010/08/19”格式为“20100819” 或转为 中文 方式

Version:0.9 StartHTML:00000107 EndHTML:00007546 EndFragment:00007506 EndFragment:00000000

'************************************
'鍔熻兘:鑾峰彇褰撳墠骞存湀鏃ユ椂鍒嗙鐨勮繛缁暟瀛楀瓧绗︿覆
'鍙傛暟:鏃�
'璋冪敤鏂瑰紡: 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

 

c=FormatDateTime(date,1)
    msgbox c