一个处理各种日期格式的函数

新客网 XKER.COM 2003-07-11 来源： 收藏本文

<%
'----日期转化函数-----   
function wf_DateToChar(datetime,l)
    '---------说明------------
    'datetime是你要转化的日期值
    'l是你要转化到的层次，可设为"d"、"n"和"s"
    '"d"是指转化为yyyy-mm-dd形式
    '"n"是指转化为yyyy-mm-dd hh:mm形式
    '"s"是指转化为yyyy-mm-dd hh:mm:ss形式
    '"long"是指转化为yyyy年mm月dd日的形式
    '"no"是指转化为yyyymmdd的形式
    '"short"是指转化为yymmdd的形式
    '"t"是指转化为yymmdd hh:mm的形式
    '-------------------------
    dim ls_date,ls_getstr
    if isnull(l) or trim(l)="" then l="s"
    if isdate(datetime) then  
        ls_date=cstr(datetime)   
        'writeln  ls_date
        ls_getstr=DatePart("yyyy",cdate(ls_date))
        ls_getstr=ls_getstr & "-" & wf_ctonstr(DatePart("m",cdate(ls_date)),2)
        ls_getstr=ls_getstr & "-" & wf_ctonstr(DatePart("d",cdate(ls_date)),2)
        if l="d" then wf_DateToChar=ls_getstr
        ls_getstr=ls_getstr & " " & wf_ctonstr(DatePart("h",cdate(ls_date)),2)
        ls_getstr=ls_getstr & ":" & wf_ctonstr(DatePart("n",cdate(ls_date)),2)
        if l="n" then wf_DateToChar=ls_getstr
        ls_getstr=ls_getstr & ":" & wf_ctonstr(DatePart("s",cdate(ls_date)),2)
        if l="s" then wf_DateToChar=ls_getstr
        if l="long" then wf_DateToChar=DatePart("yyyy",cdate(ls_date))&"年"&wf_ctonstr(DatePart("m",cdate(ls_date)),2)&"月"&wf_ctonstr(DatePart("d",cdate(ls_date)),2)&"日"
        if l="no"   then wf_DateToChar=DatePart("yyyy",cdate(ls_date))&wf_ctonstr(DatePart("m",cdate(ls_date)),2)&wf_ctonstr(DatePart("d",cdate(ls_date)),2)
        if l="short"   then wf_DateToChar=right(DatePart("yyyy",cdate(ls_date)),2)&wf_ctonstr(DatePart("m",cdate(ls_date)),2)&wf_ctonstr(DatePart("d",cdate(ls_date)),2)
        if l="t" then wf_DateToChar=wf_ctonstr(DatePart("m",cdate(ls_date)),2)&wf_ctonstr(DatePart("d",cdate(ls_date)),2)&" "& wf_ctonstr(DatePart("h",cdate(ls_date)),2)& ":" & wf_ctonstr(DatePart("n",cdate(ls_date)),2)
        
    else
        wf_DateToChar=Null
    end if
    
end function
'----把一位整数转化为两位整数----"1" to "01"
function wf_ctonstr(num,n)
if not IsNumeric(num) then
    wf_ctonstr=num
else
    if len(cstr(cint(num)))>=n then
        wf_ctonstr=cstr(cint(num))
    else
        wf_ctonstr="0"&cstr(cint(num))
        while len(wf_ctonstr)<n
            wf_ctonstr="0"&cstr(wf_ctonstr)
        wend
    end if
end if
end function
'-----------------------------------

%>

• ·ASP+ACCESS数据库中文乱码问题解决
• ·编程实例 字母+数字验证码程序
• ·ASP连接数据库错误解决办法新法
• ·初学:ASP内建对象Response
• ·ASP网站Server object error的解决办法
• ·ASP技巧：让Len,Left,Right函数识别中文
• ·把网页中的电话号码生成图片的ASP程序
• ·ASP如何实现IE地址栏参数的判断
• ·细化解析：ASP连接11种数据库语法集锦
• ·ASP实现网页打开任何类型文件都保存
• ·ASP代码直接增加、删除ACCESS表和字段
• ·ASP：判断访问是否来自搜索引擎的函数
• ·ASP技巧：禁用页面缓存的五种方法
• ·学习ASP关于与变量子类型相关的函数
• ·ASP开发中的(VBScript)类基础学习
• ·ASP访问Excel文件