asp之日期转化函数

日期转化函数<br>
<%
'----日期转化函数-----  
function wf_DateToChar(datetimes,longtype)
    '---------说明------------
    'datetimes是你要转化的日期值
    'longtype是你要转化到的层次，可设为"d"、"n"和"s"
    '"d"是指转化为yyyy-mm-dd形式
    '"n"是指转化为yyyy-mm-dd hh:mm形式
    '"s"是指转化为yyyy-mm-dd hh:mm:ss形式
    '"lon"是指转化为yyyy年mm月dd日的形式
    '"no"是指转化为yyyymmdd的形式
    '"shor"是指转化为yymmdd的形式
    '"t"是指转化为yymmdd hh:mm的形式
    '-------------------------
    dim ls_date,ls_getstr
     if isnull(longtype) or trim(longtype)="" then longtype="s"
     if isdate(datetimes) then 
         ls_date=cstr(datetimes)  
         'writeln  ls_date
         select case longtype
          case s
            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)
           wf_DateToChar=ls_getstr
          case d
            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)
           ls_getstr=ls_getstr & " " & wf_ctonstr(DatePart("h",cdate(ls_date)),2)
           ls_getstr=ls_getstr & ":" & wf_ctonstr(DatePart("n",cdate(ls_date)),2)
           wf_DateToChar=ls_getstr
          case n
           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)
           ls_getstr=ls_getstr & " " & wf_ctonstr(DatePart("h",cdate(ls_date)),2)
           ls_getstr=ls_getstr & ":" & wf_ctonstr(DatePart("n",cdate(ls_date)),2)
           ls_getstr=ls_getstr & ":" & wf_ctonstr(DatePart("s",cdate(ls_date)),2)
           wf_DateToChar=ls_getstr
          case lon
           wf_DateToChar=DatePart("yyyy",cdate(ls_date))&"年"&wf_ctonstr(DatePart("m",cdate(ls_date)),2)&"月"&wf_ctonstr(DatePart("d",cdate(ls_date)),2)&"日"
          case no
           wf_DateToChar=DatePart("yyyy",cdate(ls_date))&wf_ctonstr(DatePart("m",cdate(ls_date)),2)&wf_ctonstr(DatePart("d",cdate(ls_date)),2)
          case shor
           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)
          case t
           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)
         end select
     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
'-----------------------------------

%>

<br><hr>
<%=wf_DateToChar(now(),lon)%>