asp日期时间格式化函数
作者:davc 来源:51js 发布时间:2009-12-14 12:56:00
时间格式化函数,代码简单但较实用
代码很简单,谁都能看懂
Function fmstr(str, str1, Lens)
Dim str2
For I = 1 To Lens - Len(str)
str2 = str2 & str1
Next
fmstr = str2 & str
End Function
Function formattime(times, str) '时间格式化(要格式化的时间,格式)
str=Replace(str,"yyyy",year(times))
str=Replace(str,"yy",right(year(times),2))
str=Replace(str,"mm",fmstr(month(times),0,2))
str=Replace(str,"m",month(times))
str=Replace(str,"dd",fmstr(Day(times),0,2))
str=Replace(str,"d",Day(times))
str=Replace(str,"hh",fmstr(Hour(times),0,2))
str=Replace(str,"h",Hour(times))
str=Replace(str,"nn",fmstr(Minute(times),0,2))
str=Replace(str,"n",Minute(times))
str=Replace(str,"ss",fmstr(Second(times),0,2))
str=Replace(str,"s",Second(times))
formattime=str
End Function
例:
formattime(now(), "yyyy-mm-dd hh:nn:ss")---2009-01-05 13:05:50
formattime(now(), "yy-m-d h:n:s")---09-1-5 13:5:50
formattime(now(), "mm-dd hh:nn")---01-05 13:05
formattime(now(), "yyyymmddhhnnss")---20090105130550
formattime(now(), "现在是yyyy年m月d日,当前时间:hh时nn分ss秒")---现在是2009年1月5日,当前时间:13时05分50秒 刚想到,如果有英文的话,会产生误替换,改了一下。。。。
Function fmstr(str)
if str<10 then
fmstr="0"&str
else
fmstr=str
end if
End Function
Function formattime(times, str) '时间格式化(要格式化的时间,格式)
str=Replace(str,"$yyyy$",year(times))
str=Replace(str,"$yy$",right(year(times),2))
str=Replace(str,"$mm$",fmstr(month(times)))
str=Replace(str,"$m$",month(times))
str=Replace(str,"$dd$",fmstr(Day(times)))
str=Replace(str,"$d$",Day(times))
str=Replace(str,"$hh$",fmstr(Hour(times)))
str=Replace(str,"$h$",Hour(times))
str=Replace(str,"$nn$",fmstr(Minute(times)))
str=Replace(str,"$n$",Minute(times))
str=Replace(str,"$ss$",fmstr(Second(times)))
str=Replace(str,"$s$",Second(times))
formattime=str
End Function
例:
formattime(now(), "$yyyy$-$mm$-$dd$ $hh$:nn$:$ss$")---2009-01-05 13:05:50
formattime(now(), "$yy$-$m$-$d$ $h$:$n$:$s$")---09-1-5 13:5:50
formattime(now(), "$mm$-$dd$ $hh$:$nn$")---01-05 13:05
formattime(now(), "$yyyy$$mm$$dd$$hh$$nn$$ss$")---20090105130550
formattime(now(), "现在是$yyyy$年$m$月$d$日,当前时间:$hh$时$nn$分$ss$秒")---现在是2009年1月5日,当前时间:13时05分50秒
formattime(now(), "year:$yyyy$,month:$m$,date:$d$,time:$hh$时$nn$分$ss$秒")
像最后一句,以原来的方法会把date中的d,month中的m等等替换掉
猜你喜欢
- 第一步肯定是打上SQL SERVER最新的安全补丁.如果这一步都没有做好,那我们也没有继续下去的必要了。 第二步是修改默认的1433端口,并
- 翻译:ShiningRay @ Nirvana Studio作者:Douglas Crockford来源:http://www.crockf
- 以下是IE7中新支持的属性:min-height,max-height,min-width,max-width这个hack还可以使最大高度兼
- ajax 同步请求和异步请求的差异分析,需要的朋友可以参考下。代码一:Synchronize = function(url,param) {
- //设置已存在表中字段为auto_incrementALTER TABLE tablename change id id int(2) no
- 之前写过一篇文章《EmEditor代码片段插件介绍》,现在项目越来越多,越来越大,不再用EmEditor,而用IntelliJ IDEA。这
- CSS 3 + HTML 5 是未来的 Web,它们都还没有正式到来,虽然不少浏览器已经开始对它们提供部分支持。本文介绍了 5 个 CSS3
- 我们在网页中使用CSS来设置网页、表格和字体大小,一般使用的是网络上较流行的9磅字:<STYLE type=TEXT/CSS
- 很久没有上过天极网,今天偶然兴起跑上去看了一下,看到消息说天极网深圳站隆重上线,于是也顺便去溜了一把,打开页面的时候差点有种不知所措的感觉,
- 事务日志(Transaction logs)是数据库结构中非常重要但又经常被忽略的部分。由于它并不像数据库中的schema那样活跃,因此很少
- 大部分数据库管理员拥有某种形式的数据库元数据库,他们依赖其来跟踪范围很广的Microsoft SQL Server环境。我利用连接的服务器和
- 今天在日常维护一个网站时,发现该网站的留言程序没有经过严格的验证过滤,导致了将近十万条垃圾数据。而其中又不乏重要信息,需要清理数据,以及增加
- 本文通过实例代码介绍了如何在jscript和vbscript中使用操作FileSystemObject(fso)对象模式来编程.
- SQL*Plus system/manager 2、显示当前连接用户 SQL> show user 3、查看系统拥有哪些用户 SQL&
- 或许马上,或许几年之后,但是有迹象显示IE浏览器占统治地位的时代即将结束。在数据分析公司Net Applications的排名中,IE的市场
- 对于网页制作者来说,最烦琐的事情可能就是给页面中的图片或文字加链接了。假如页面内容很多的话,那么所做的
- 【实用系列】-- 胖页面载入,加载JavaScript效果整理了一下代码,做了一些优化,算是最终版了。完全不需要对其他文件做任何修改,就是所
- 在ACCESS中更改控件的默认属性 Lisa Friedrichsen, 欧弗兰帕克,堪萨斯州 如果您在设计一个Microsoft ACCE
- 现在网页设计师除了把页面做的漂亮以外,越来越注重“用户体验”,就是要做“别让用户思考”的网页,使网站真正做到“可用性”。望望结合几年的工作经
- 在中文网页中最常见的网页编码就是GB2312和UTF-8了,本文介绍了ASP实现GB2312编码转换为UTF-8编码的函数:Function