一个VBscript格式化日期的函数FormatDate

电子书下载（小说下载）站—提供计算机类、经济管理类、文化艺术类、小说类、休闲娱乐类、考试教育类、电脑杂志类等各类电子书免费下载(无需注册，免费下载）

当前位置：电子书下载网站→文章首页→计算机教程→Asp教程→一个VBscript格式化日期的函数FormatDate

一个VBscript格式化日期的函数FormatDate

作者：ebookdown 　来源于：电子书下载网站　发布时间：2008-7-19 13:54:00

程序代码： (代码标记 [code]...[/code] )

<script language="vbscript">
function FormatDate(strDate,fstr)
if isdate(strDate) then
dim i,temp
temp=replace(fstr,"yyyy",DatePart("yyyy",strDate))
temp=replace(temp,"yy",mid(DatePart("yyyy",strDate),3))
temp=replace(temp,"y",DatePart("y",strDate))
temp=replace(temp,"w",DatePart("w",strDate))
temp=replace(temp,"ww",DatePart("ww",strDate))
temp=replace(temp,"q",DatePart("q",strDate))
if len(DatePart("m",strDate))>1 then
temp=replace(temp,"mm",DatePart("m",strDate))
else
temp=replace(temp,"mm","0" & DatePart("m",strDate))
end if
if len(DatePart("d",strDate))>1 then
temp=replace(temp,"dd",DatePart("d",strDate))
else
temp=replace(temp,"dd","0" & DatePart("d",strDate))
end if
if len(DatePart("h",strDate))>1 then
temp=replace(temp,"hh",DatePart("h",strDate))
else
temp=replace(temp,"hh","0" & DatePart("h",strDate))
end if
if len(DatePart("n",strDate))>1 then
temp=replace(temp,"nn",DatePart("n",strDate))
else
temp=replace(temp,"nn","0" & DatePart("n",strDate))
end if
if len(DatePart("s",strDate))>1 then
temp=replace(temp,"ss",DatePart("s",strDate))
else
temp=replace(temp,"ss","0" & DatePart("s",strDate))
end if
FormatDate=temp
else
FormatDate=false
end if
end function

document.write FormatDate(now(),"yyyy年mm月dd日 hh:nn:ss")
</script>

[] [返回上一页] [告诉好友] [打印] [ 字体：大中小 ]

上篇文章：ASP生成静态Html文件技术杂谈　
下篇文章：已经没有了

∷相关文章∷

∷相关软件∷


本站提供的电子书下载、小说下载及txt小说下载，仅供学习交流之用，请购买正版电子书(小说) Copyright © 2005-2008 电子书下载（ebookdown） Email:ebook_down#163.com 辽ICP备06017213号