ASP下格式化时间和日期的函数

<%

'该函数作用：按指定参数格式化显示时间。

'NumFormat=1:将时间转化为yyyy-mm-dd hh:nn格式。

'NumFormat=2:将时间转化为yyyy-mm-dd格式。

'NumFormat=3:将时间转化为hh:nn格式。

'NumFormat=4:将时间转化为yyyy年mm月dd日 hh时nn分格式。

'NumFormat=5:将时间转化为yyyy年mm月dd日格式。

'NumFormat=6:将时间转化为hh时nn分格式。

'NumFormat=7:将时间转化为yyyy年mm月dd日 星期×格式。

'NumFormat=8:将时间转化为yymmdd格式。

'NumFormat=9:将时间转化为mmdd格式。

function FormatDate(LwpCmsDate,NumFormat)

dim YearStr,MonthStr,DayStr,HourStr,MinuteStr '变量含义分别为年字符串，月字符串，日字符串，时字符串，分字符串

if isnull(LwpCmsDate) then

NumFormat=0

else

YearStr=DatePart("yyyy",LwpCmsDate)

if DatePart("m",LwpCmsDate)>9 then 

MonthStr=DatePart("m",LwpCmsDate)

else

MonthStr="0"&DatePart("m",LwpCmsDate) 

end if

if DatePart("d",LwpCmsDate)>9 then 

DayStr=DatePart("d",LwpCmsDate)

else

DayStr="0"&DatePart("d",LwpCmsDate) 

end if

if DatePart("h",LwpCmsDate)>9 then 

HourStr=DatePart("h",LwpCmsDate)

else

HourStr="0"&DatePart("h",LwpCmsDate) 

end if

if DatePart("n",LwpCmsDate)>9 then 

MinuteStr=DatePart("n",LwpCmsDate)

else

MinuteStr="0"&DatePart("n",LwpCmsDate) 

end if

end if

select case NumFormat

case 0

FormatDate=""

case 1

FormatDate=YearStr&"-"&MonthStr&"-"&DayStr&" "&HourStr&":"&MinuteStr 

case 2

FormatDate=YearStr&"-"&MonthStr&"-"&DayStr

case 3

FormatDate=HourStr&":"&MinuteStr

case 4

FormatDate=YearStr&"年"&MonthStr&"月"&DayStr&"日 "&HourStr&"时"&MinuteStr&"分"

case 5

FormatDate=YearStr&"年"&MonthStr&"月"&DayStr&"日" 

case 6

FormatDate=HourStr&"时"&MinuteStr&"分"

case 7

FormatDate=YearStr&"年"&MonthStr&"月"&DayStr&"日 "&WeekdayName(Weekday(LwpCmsDate))

case 8

FormatDate=right(YearStr,2)&MonthStr&DayStr

case 9

FormatDate=MonthStr&"月"&DayStr&"日"

case 10

FormatDate=YearStr&"."&MonthStr&"."&DayStr

end select

end function

'now() 获取当前日期和时间 

'date()获取当前年月日 

'time()获取当前时分秒 

'year(date)获取给定日期的年份 

'month(date)取得给定日期的月份 

'day(date)取得给定日期是几号 

'hour(time)取得给定时间是第几小时 

'minut(time)取得给定时间是第几分钟 

'second(time)取得给定时间是第几秒 

'weekday(date)取得给定日期是星期几,1表示星期日,2表示星期一... 

'formatdatetime(date,vbshortdate)转化为短日期格式. 

'formatdatetime(date,vblongdate)转化为长日期格式. 

'formatdatetime(time,vbshorttime)转化为短时间格式 

'formatdatetime(time,vblongtime)转化为长时间格式 

'datediff("var","var1","var2")计算两个日期或时间间隔 

'var表示时间和日期的代码,如下: 

'年 yyyy 

'月 m 

'日 d 

'时 h 

'分 n 

'秒 s 

'周 ww 

'var1第一个日期或时间 

'var2第二个日期或时间

%>

<%= FormatDate(now(),10) %>