Posted on 2007-04-16 15:36
七郎歸來 閱讀(152)
評論(0) 編輯 收藏
我們有時候遇到的日期格式可能是2004-1-12 ,系統自動將月份中的0去掉了，但是有時候我們需要完整的日期格式 ，如：2004-01-12 那么怎么辦呢？下面的幾個函數可以輕松搞定。
'將一個一位的數字前面加零
function FillZero(str)
ttt=str
if len(str)=1 then
ttt="0" & str
end if
FillZero=ttt
end function
'轉化日期，將 一位補上零 2003-1-2 --> 2003-01-02
function ConvertDate(tDate)
ttt=tDate
if isdate(tDate) then
ttt=year(tDate) & "-" & FillZero(month(tDate)) & "-" & FillZero(day(tDate))
end if
ConvertDate=ttt
end function
'輸入一個日期時間串，轉換成年四位，其他兩位的新的日期時間串
function ConvertDateTime(tDateTime)
ttt=tDateTime
if isdate(tDateTime) then
ttt=year(tDateTime) & "-" & FillZero(month(tDateTime)) & "-" & FillZero(day(tDateTime)) & " " & FillZero(cstr(hour(tDateTime))) & ":" & FillZero(cstr(minute(tDateTime))) & ":" & FillZero(cstr(second(tDateTime)))
end if
ConvertDateTime=ttt
end function