ASP 日期处理

日期类型转换

cdate 函数

如 cdate(" 2008-10-24 ")

 

日期增减

Dateadd函数

如 增加一天：Dateadd("d", 1, " 2008-10-24 ")

   减少一天：Dateadd("d", -1, " 2008-10-24 ")

 

日期比较

Datediff函数 datediff("d", 当前时间, 需要比较时间) 返回时间差，如1, 0 , -1等

如    datediff("d"," 2008-10-24 " , " 2008-10-24 ") 返回 0

         datediff("d"," 2008-10-24 " , " 2008-10-25 ") 返回 1

         datediff("d"," 2008-10-24 " , " 2008-10-23 ") 返回 -1

 

日期格式化

    注：此方法来自于网络，我只更改了函数名，除此之外无其他修改 

<%

'==================================================================  

'函数：FormatDT

'作者：Abo(wupwu@qq.com)  

'日期：2008.09.07  

'功能：日期时间格式化  

'参数：DateTime,日期时间  

'　　　Template,格式化模板  

'返回：格式化后的字串  

'备注：模板标签注释  

'　　　{Y}:年  

'　　　{y}:2位年  

'　　　{M}:月  

'　　　{m}:补位月，例：01,02  

'　　　{ME}:英文月份  

'　　　{Me}:英文月份缩写  

'　　　{D}:日  

'　　　{d}:补位日  

'　　　{H}:时  

'　　　{h}:补位时  

'　　　{N}:分  

'　　　{n}:补位分  

'　　　{S}:秒  

'　　　{s}:补位秒  

'　　　{W}:星期几英文  

'　　　{w}:星期几英文缩写  

'修改记录：  

'==================================================================  

 

Function FormatDT(DateTime,Template)  

    If (Not IsDate(DateTime)) or Template = "" Then 

        FormatDT = Template  

        Exit Function 

    End If 

    Dim dtmY,dtmM,dtmD,dtmH ,dtmN,dtmS,dtmW  

    Dim arrFW,arrSW,arrFM,arrSM  

    dtmY = Year(DateTime)  

    dtmM = Month(DateTime)  

    dtmD = Day(DateTime)  

    dtmH  = Hour(DateTime)  

    dtmN = Minute(DateTime)  

    dtmS = Second(DateTime)  

    dtmW = WeekDay(DateTime)  

    arrFW = Array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday")  

    arrSW = Array("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat")   

    arrFM = Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")  

    arrSM = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")  

 

    Template = Replace(Template,"{Y}",dtmY)  

    Template = Replace(Template,"{y}",Right(dtmY,2))  

    Template = Replace(Template,"{M}",dtmM)  

    Template = Replace(Template,"{m}",Right("00"&dtmM,2))  

    Template = Replace(Template,"{ME}",arrFM(dtmM-1))  

    Template = Replace(Template,"{Me}",arrSM(dtmM-1))  

    Template = Replace(Template,"{D}",dtmD)  

    Template = Replace(Template,"{d}",Right("00"&dtmD,2))  

    Template = Replace(Template,"{H}",dtmH )  

    Template = Replace(Template,"{h}",Right("00"&dtmH ,2))  

    Template = Replace(Template,"{N}",dtmN)  

    Template = Replace(Template,"{n}",Right("00"&dtmN,2))  

    Template = Replace(Template,"{S}",dtmS)  

    Template = Replace(Template,"{s}",Right("00"&dtmS,2))  

    Template = Replace(Template,"{W}",arrFW(dtmW-1))  

    Template = Replace(Template,"{w}",arrSW(dtmW-1))  

    FormatDT = Template  

End Function 

 

%>

用法 如 FormatDT(cdate(" 2008-10-24 "),"{Y}~{m}~{d}") 返回 2008~10~24