public function fillzero(l1)
if len(l1)=1 then
fillzero="0"l1
else
fillzero=l1
end if
end function

response year(now)month(now)day(now) 結(jié)果:201116
response year(now)fillzero(month(now))fillzero(day(now)) 顯示結(jié)果:20110106

%
function FillZero(str)
ttt=str
if len(str)=1 then
ttt="0" str
end if
FillZero=ttt
end function
'轉(zhuǎn)化日期，將 一位補(bǔ)上零 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
'輸入一個(gè)日期時(shí)間串，轉(zhuǎn)換成年四位，其他兩位的新的日期時(shí)間串
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
%>