ASPで短い日付を0から長い2つの日付に書式設定する

Function FStime(times)
  Dim years,months,days
   if len(times)=0 then exit function
   years=year(times)
   months=right("0"&months(times),2)
   days=right("0"&day(times),2)
   times=years&"-"&months&"-"&days
   FStime=times
End Function

Function FLtime(times)
  Dim years,months,days,hours,minutes,seconds
   if len(times)=0 then exit function
   years=year(times):months=right("0"&month(times),2)
   days=right("0"&day(times),2):hours=right("0"&hour(times),2)
   minutes=right("0"&minute(times),2):seconds=right("0"&second(times),2)
   FLtime=years&"-"&months&"-"&days&" "&hours&"":"&minutes& ":"&seconds
End Function

<%

Rem Pw_Sys date format conversion function

function DateTimeFormat(DateTime,Format)
select case Format
case "1"
DateTimeFormat=""&year(DateTime)&"year"&month(DateTime)&"month"&Right("0" & ; Day(DateTime),2)&"day"
case "2"
DateTimeFormat=""&month(DateTime)&"month"&Right("0" & Day(DateTime),2)&"day"
case "3"
DateTimeFormat=""&year(DateTime)&"-"&month(DateTime)&"-"&Right("0" & ; Day(DateTime),2)&""
case "4"
DateTimeFormat=""&year(DateTime)&"/"&month(DateTime)&"/"&Right("0" & ; Day(DateTime),2)&""
case "5"
DateTimeFormat=""&month(DateTime)&"/"&Right("0" & Day(DateTime),2)&""
case "6"
DateTimeFormat=""&year(DateTime)&"year"&month(DateTime)&"month"&Right("0" & ; Day(DateTime),2)&"Day<font color=red> "&FormatDateTime(DateTime,4)&"</font>"
case "7"
  temp="Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday"
  temp=split(temp,",")
  DateTimeFormat=temp(WeekRight("0" & Day(DateTime),2)-1)
case "8"
DateTimeFormat=""&month(DateTime)&"-"&Right("0" & Day(DateTime),2)&""
case "9"
if len(hour(DateTime)) = 1 then
str="0"&hour(DateTime)
else
str=hour(DateTime)
end if
DateTimeFormat=DateTimeFormat(DateTime,1)&" "&str&":"&Minute(DateTime)
case "10"
DateTimeFormat=""&year(DateTime)&"year"&month(DateTime)&"month"
case else
DateTimeFormat=DateTime
end select
end function

%>

function formatsn(getnum,getbit)
dim formatsnnum,formatsnpre,formatsnj
formatsnnum = getbit - len(getnum)
for formatsnj = 1 to formatsnnum
formatsnpre = formatsnpre & "0"
next
formatsn = formatsnpre & getnum
end function