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等等替换掉


猜你喜欢
- 本文详细列出了HTML中使用到的各种鼠标事件,如onclick,onmouseover等;页面相关事件如:onerror,onload等;h
- 本文利用python opencv进行图像的边缘检测,一般要经过如下几个步骤:1、去噪如cv2.GaussianBlur()等函数;2、计算
- 本文实例讲述了Python实现螺旋矩阵的填充算法。分享给大家供大家参考,具体如下:afanty的分析:关于矩阵(二维数组)填充问题自己动手推
- 前言:看本教程,必须先仔细看前言的内容,否则会进入误区!最近在做个性休闲服装内网站的设计课程,过程中发现,个性元素的应用成为最难的问题,第一
- 问题:这里只解决一个问题,到底什么是Access?设计一个数据库管理系统,用access在access里面设计好表,查询,然后再用vb做窗体
- 考察对于知识的理解,除了实际的代码运用,还有一种方法就是问答类的题型。不同于普通的概念叙述,小编认为即使是面试题也会带有一些数学题目的影响,
- Mysql replace与replace into都是经常会用到的功能;replace其实是做了一次update操作,而不是先delete
- 在删除每个字典的时候有些方法和删除其他拥有独立内存的数据使用的方法是一样的,比如del,直接清空内存,clear()是值清除变量值。字典的删
- 1、Linux主机重定向 Godaddy的Liunx主机,Godaddy本身已经支持Apache,所以直接创建一个.htaccess文件就可
- 没怎么用过这个新特性,其实也不算新啦,试试吧,现在静态类的继承很方便了<?phpclass A { protected static
- #! /usr/bin/env python ##python2.7-批量下载壁纸 ##壁纸来自桌酷网站,所有权归属其网站 ##本代码仅做为
- 下面是ThoughtBot 的Git使用规范流程。我从中学到了很多,推荐你也这样使用Git。第一步:新建分支首先,每次开发新功能,都应该新建
- 简介这是一个操作数据库(sqlite3)的项目,用PyQt5进行界面封装。此次项目最主要的是,主界面与子界面的交互,一个主界面与三个子界面交
- 如下所示:plt.subplots_adjust(left=None,bottom=None,right=None,top=None,wsp
- Splash是一个javascript渲染服务。它是一个带有HTTP API的轻量级Web浏览器,使用Twisted和QT5在Python
- 本文实例讲述了python中元类用法,分享给大家供大家参考。具体方法分析如下:1.元类(metaclass)是用来创建类的类2.type(o
- 前言在前几天的文章中我们讲解了如何从Word表格中提取指定数据并按照格式保存到Excel中,今天我们将再次以一位读者提出的真实需求来讲解如何
- 1.之前的写法(不报错):data = cursor.fetchall()data_name = data[0]['task_typ
- 不管是录入信息时需要用扫码器扫码录入、核对信息时用于扫码识别,还是有别的生成条形码的需要,那我们如何把表格中的数字、文本列快速生成条形码图片
- 1、copy.copy()函数可用于复制列表或字典等可变值,复制后的列表和原列表是两个独立的列表。import copyorigin = [