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