格式：

Format_Date_List(Byval t,Byval ftype)

參數：

t：傳遞要格式化的時間

ftype：傳遞要格式化的樣式

代碼：

Function Format_Date_List(Byval t,Byval ftype) 
 dim y, m, d, h, mi, s 
Format_Date_List=""
If IsDate(t)=False Then Exit Function
y=cstr(year(t)) 
m=cstr(month(t)) 

If len(m)=1 Then m="0" & m 
d=cstr(day(t)) 

If len(d)=1 Then d="0" & d 
h = cstr(hour(t)) 

If len(h)=1 Then h="0" & h 
mi = cstr(minute(t)) 

If len(mi)=1 Then mi="0" & mi 
s = cstr(second(t)) 

If len(s)=1 Then s="0" & s 

select case cint(ftype) 

case 1 
' yyyy-mm-dd 
Format_Date_List=y & "-" & m & "-" & d 

case 2 
' yy-mm-dd 
Format_Date_List=right(y,2) & "-" & m & "-" & d 

case 3 
' mm-dd 
Format_Date_List=m & "-" & d 

case 4 
' yyyy-mm-dd hh:mm:ss 
Format_Date_List=y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s 

case 5 
' hh:mm:ss 
Format_Date_List=h & ":" & mi & ":" & s 

case 6 
' yyyy年mm月dd日 
Format_Date_List=y & "年" & m & "月" & d & "日"

case 7 
' yyyymmdd 
Format_Date_List=y & m & d 

case 8 
'yyyymmddhhmmss 
Format_Date_List=m & "月" & d & "日"

case 9 
'MMDD 月日
Format_Date_List=m&d

end select 

End Function

應用：response.Write Format_Date_List(now(),6)

返回：2020年08月22日