ASP将日期格式化为必需的格式。
<******************************
功能：formatDate（dateandtime，对位）
参数：DateAndTime，要格式化的日期和时间段，风格。
作者：Ali Cici
日期：2007 7 12
说明：将日期格式化为所需格式
的例子：
******************************
公共职能formatDate（dateandtime，对位）
下次继续出错
昏暗的Y，M，D，H，S，strdatetime米河
dateandtime formatDate =
如果Not IsNumeric（准）然后退出功能
如果Not IsDate（dateandtime）然后退出功能
Y = CStr (Year (DateAndTime))
M = CSTR（月（dateandtime））
如果Len（m）＝1，则m＝0m
a CSTR（天（dateandtime））
如果Len（d）＝1，则d＝0d
H = CSTR（小时（dateandtime））
如果Len（h）＝1，则h＝0 h
米= CStr（分钟（dateandtime））
如果Len（MI）= 1，然后MI = 0 MI
S = CStr（二（dateandtime））
如果Len（s）＝1，则为s0
选择案例对
案例1
strdatetime = Y MH：我：S
案例2
strdatetime = Y 我D
案例3
strdatetime = Y / / D
案例4
strdatetime = Y年M月D日
案例5
strdatetime = M H：我
案例6
strdatetime = M / D
案例7
strdatetime = M 月天
案例8
strdatetime = Y年m月
案例9
strdatetime = Y M
案例10
strdatetime = Y /
案例11
strdatetime =右（Y，2）M-DH：我
案例12
strdatetime =右（Y，2）D M
案例13
strdatetime = M D
其他案件
strdatetime = dateandtime
最后选择
strdatetime formatDate =
端功能
%>