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