asp下格式化時間和日期的函數

我們有時候遇到的日期格式可能是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