ASP时间操作专题

1、介绍一个函数实现ASP里面的时间格式化显示输出功能
function formatdate(shijian,numformat)
    dim ystr,mstr,dstr,hstr,nstr '变量含义分别为年字符串，月字符串，日字符串，时字符串，分字符串

    if isnull(shijian) then
    numformat=0
    else
    ystr=DatePart("yyyy",shijian)

    if DatePart("m",shijian)>9 then
    mstr=DatePart("m",shijian)
    else
    mstr="0"&DatePart("m",shijian)
    end if

    if DatePart("d",shijian)>9 then
    dstr=DatePart("d",shijian)
    else
    dstr="0"&DatePart("d",shijian)
    end if

    if DatePart("h",shijian)>9 then
    hstr=DatePart("h",shijian)
    else
    hstr="0"&DatePart("h",shijian)
    end if

    if DatePart("n",shijian)>9 then
    nstr=DatePart("n",shijian)
    else
    nstr="0"&DatePart("n",shijian)
    end if
    end if

    select case numformat
    case 0
    formatdate=""
    case 1
    formatdate=ystr&"-"&mstr&"-"&dstr&" "&hstr&":"&nstr
    case 2
    formatdate=ystr&"-"&mstr&"-"&dstr

    case 3
    formatdate=hstr&":"&nstr
    case 4
    formatdate=ystr&"年"&mstr&"月"&dstr&"日 "&hstr&"时"&nstr&"分"

    case 5
    formatdate=ystr&"年"&mstr&"月"&dstr&"日"
    case 6
    formatdate=hstr&"时"&nstr&"分"
    case 7
    formatdate=ystr&"年"&mstr&"月"&dstr&"日 "&WeekdayName(Weekday(shijian))
    case 8
    formatdate=right(ystr,2)&mstr&dstr
    case 9
    formatdate=mstr&dstr
    end select
end function

'该函数作用：按指定参数格式化显示时间。
'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格式。

测试的示例：
dim mytime : mytime=now()
with response
 .write("当前系统时间_1："&mytime&"
")
 .write("当前系统时间_2："&formatdatetime(mytime,1)&"
")
 .write("当前系统时间_3："&formatdatetime(mytime,2)&"
")
 .write("当前系统时间_4："&formatdatetime(mytime,3)&"
")
 .write("当前系统时间_4："&formatdatetime(mytime,4)&"
")
end with

以后如果想要使用ASP的时间函数，就可以好好去参考一下这个了！

2、ASP里面的时间比较操作