电脑爱好者,提供IT资讯信息及各类编程知识文章介绍,欢迎大家来本站学习电脑知识。 最近更新 | 联系我们 RSS订阅本站最新文章
电脑爱好者
站内搜索: 
当前位置:首页>> Asp>>一个处理各种日期格式的函数:

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

来源:远方网络 | 2005-7-16 10:24:59 | (有1972人读过)



<%
''----日期转化函数-----
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热门文章排行
网站赞助商
购买此位置

 

关于我们 | 网站地图 | 文档一览 | 友情链接| 联系我们

Copyright © 2003-2024 电脑爱好者 版权所有 备案号:鲁ICP备09059398号