<%
'******************************
'时间处理函数
'FormatDate(Str,DateTime)
'Str 字符串,DateTime 时间
'返回类型为字符串,不是时间类型,错误返回False
'******************************
Function FormatDate(Str,DateTime)
FormatDate=False
If IsDate(DateTime)=False Then
FormatDate=False
Exit Function
End If
'//年,月,周,日,小时,分钟,秒
Dim Y,M,W,D,H,Min,S
'//数字和中文的转换//
Dim numTOcn,cnStr
cnStr="零|一|二|三|四|五|六|七|八|九|十|十一|十二|十三|十四|十五|十六|十七|十八|十九|二十|"
cnStr=cnStr&"二十一|二十二|二十三|二十四|二十五|二十六|二十七|二十八|二十九|三十|三十一|"
cnStr=cnStr&"三十二|三十三|三十四|三十五|三十六|三十七|三十八|三十九|四十|四十一|四十二|"
cnStr=cnStr&"四十三|四十四|四十五|四十六|四十七|四十八|四十九|五十|五十一|五十二|五十三|"
cnStr=cnStr&"五十四|五十五|五十六|五十七|五十八|五十九|六十"
numTOcn=Split(cnStr,"|")
'//数字和英文的转换
Dim numTOen,enStr
enStr="January|February|March|April|May|June|July|August|September|October|November|December|"
enStr=enStr&"Sunday|Monday|Tuesday|Wednesday|Thursday|Friday|Saturday"
numTOen=Split(enStr,"|") '-----------------------------
'年的处理,时间DateTime必须包含年份
'标签:3个 {Ya}:2006 {Yb}:06 {Yc}:二零零六
Y=Year(DateTime)'取得年份
If InStr(Str,"{Ya}")>0 Then Str=Replace(Str,"{Ya}",Y)'2006
If InStr(Str,"{Yb}")>0 Then Str=Replace(Str,"{Yb}",Right(Y,2))'06
If InStr(Str,"{Yc}")>0 Then
Dim YY'数字和中文的转换
YY=Y
For I=0 To 9
YY=Replace(YY,I,numTocn(I))
Next
Str=Replace(Str,"{Yc}",YY)'二零零六
End If
'-----------------------------
'月的处理,时间DateTime必须包含年份月份
'标签:5个 {Ma}:1 {Mb}:01 {Mc}:一 {Md}:January {Me}:Jan
M=Month(DateTime)'取得月份
Dim MM
If InStr(Str,"{Ma}")>0 Then Str=Replace(Str,"{Ma}",M)'1
If InStr(Str,"{Mb}")>0 Then
If M<10 Then MM=0&M
Str=Replace(Str,"{Mb}",MM)'01
End If
'//中文 一月
If InStr(Str,"{Mc}")>0 Then
MM=M
For I=1 To 12
If MM=I Then MM=numTocn(I):Exit For
Next
Str=Replace(Str,"{Mc}",MM)'一
End If
'//英文 January
If InStr(Str,"{Md}")>0 Then
MM=M
For I=1 To 12
If MM=I Then MM=numTOen(I-1):Exit For
Next
Str=Replace(Str,"{Md}",MM)
End If
'//英文缩写Jan
If InStr(Str,"{Me}")>0 Then Str=Replace(Str,"{Me}",Left(MM,3))
'-------------------------------
'日的处理,时间DateTime必须包含年份月份日
'标签:4个 {Da}:1 {Db}:01 {Dc}:一 {Dd}:1st
D=Day(DateTime)'取得日
Dim DD
'//数字 1
If InStr(Str,"{Da}")>0 Then Str=Replace(Str,"{Da}",D)
'//数字 01
If InStr(Str,"{Db}")>0 Then
DD=D
If DD<10 Then DD=0&DD
Str=Replace(Str,"{Db}",DD)
End If
'//中文 一
If InStr(Str,"{Dc}")>0 Then
DD=D
For I=1 To 31
If DD=I Then DD=numTOcn(I):Exit For
Next
Str=Replace(Str,"{Dc}",DD)
End If
'//英文 24th
If InStr(Str,"{Dd}")>0 Then
DD=D
Select Case DD
Case 1, 21, 31
DD = DD&"st"
Case 2, 22
DD = DD&"nd"
Case 3, 23
DD = DD&"rd"
Case Else
DD = DD&"th"
End Select
Str=Replace(Str,"{Dd}",DD)
End If
'-------------------------------
'星期的处理,时间DateTime必须包含年份月份日
'标签:4个 {Wa}:1 {Wb}:Friday {Wc}:一 {Wd}:Tue
W=WeekDay(DateTime)
Dim WW
'//数字 5
If InStr(Str,"{Wa}")>0 Then Str=Replace(Str,"{Wa}",W)
'//英文 Friday
If InStr(Str,"{Wb}")>0 Then
For I=1 To 7
If W=I Then Str=Replace(Str,"{Wb}",numTOen(I+11)):Exit For
Next
End If
'//中文 五
If InStr(Str,"{Wc}")>0 Then
WW=W
If WW=1 Then
Str=Replace(Str,"{Wc}","日")
Else
For I=2 To 7
If WW=I Then Str=Replace(Str,"{Wc}",numTOcn(I-1)):Exit For
Next
End If
End If
'//英文缩写 Tue
If InStr(Str,"{Wd}")>0 Then
For I=1 To 7
If W=I Then Str=Replace(Str,"{Wd}",Left(numTOen(I+11),3)):Exit For
Next
End If
'-------------------------------
'小时的处理,时间DateTime必须包含小时
'标签:
H=Hour(DateTime)
Dim HH FormatDate=Str
End Function
%>
<%
'例子
'Sub Br()
'Response.Write "<br/>"&VBCrlf
'End Sub
'Sub Out(Str)
'Response.Write Str&VBCrlf
'Br
'End Sub
'----------Test
'Dim S,T
'S="今年是{Yc}年{Yb}年{Ya}年{Ma}月{Mb}月{Mc}月{Md} {Me} {Da}日{Db}日{Dc}日 The {Dd}周{Wb}|{Wd}星期{Wc}"
'T=Now()
'Out FormatDate(S,T)
%>

  

仿php的日期函数,asp时间处理函数的更多相关文章

  1. Mysql日期转换函数、时间转换函数

    Mysql日期转换函数.时间转换函数 一.MySQL 获得当前日期时间 函数 1,获得当前日期+时间(date + time)函数:now(): select now(); 结果: :: 2,获得当前 ...

  2. MySQL:日期函数、时间函数总结

    MySQL 获得当前日期时间 函数 获得当前日期+时间(date + time)函数:now() mysql> select now(); +---------------------+ | n ...

  3. Mysql日期函数,时间函数使用的总结

    一.MySQL 获得当前日期时间 函数 1.1 获得当前日期+时间(date + time)函数:now() mysql> select now();+--------------------- ...

  4. MySQL:日期函数、时间函数总结

    MySQL 获得当前日期时间 函数 查询昨天,时间拼接 select concat(DATE_FORMAT(date_add(now(), interval -1 day),'%Y-%d-%d'),& ...

  5. MySQL:日期函数、时间函数总结(MySQL 5.X)

    http://www.cnblogs.com/she27/archive/2009/01/16/1377089.html 原文:http://www.51sdj.com/phpcms/picture/ ...

  6. 【转】MySQL:日期函数、时间函数总结(MySQL 5.X)

    转自:http://www.cnblogs.com/she27/articles/1377089.html 一.MySQL 获得当前日期时间 函数1.1 获得当前日期+时间(date + time)函 ...

  7. 日期函数、时间函数总结(MySQL 5.X)

    一.MySQL 获得当前日期时间 函数1.1 获得当前日期+时间(date + time)函数:now()mysql> select now(); +---------------------+ ...

  8. MySQL日期函数、时间函数总结(MySQL 5.X)

    一.获得当前日期时间函数 1.1 获得当前日期+时间(date + time)函数:now() select now(); # :: 除了 now() 函数能获得当前的日期时间外,MySQL 中还有下 ...

  9. MySQL 获得当前日期时间\时间戳 函数 ( 转自传智播客)

    MySQL 获得当前日期时间 函数 1.1 获得当前日期+时间(date + time)函数:now() mysql> select now(); +-------+ | now() | +-- ...

随机推荐

  1. 使用SecureCRT远程 SSH 登陆 CentOS 和 Ubuntu

    1.CentOS下安装SSH 使用下列命令查看当前系统是否已经安装 ssh 和 rsync.rsync是一个远程数据同步工具,可通过LAN/WAN快速同步多台主机间的文件. rpm –qa | gre ...

  2. CDH ecosystem components

    1,Mahout ASF(Apache Software Foundation)开源项目,提供可扩展的`机器学习`--(ML,Machine Learning多领域交叉学科,涉及概率,统计,逼近,凸分 ...

  3. Uber将在泰国首推"优步摩托"服务

    滴快车单单2.5倍,注册地址:http://www.udache.com/ 如何注册Uber司机(全国版最新最详细注册流程)/月入2万/不用抢单:http://www.cnblogs.com/mfry ...

  4. [置顶] 解成电OJ1003真实的谎言的记录

    原题目 Description   N个人做一个游戏,游戏中每个人说了一句话(可能是真的也可能是假的) 第i个人说:“N个人中有至少有ai个,至多有bi个人说的是真话!”(i = 1, 2, 3….. ...

  5. Windows Azure Website类别、限制条件

    在Azure中Website是一个典型的SAAS,用户可以很容易地搭建自己想要的网站,可以基于多种编程语言(ASP.NET/ASP/PHP/Node.JS等)和网站框架. Website有三种分类分别 ...

  6. xcode中create groups 和 create folder reference 的区别

    (文章为博主原创,未经允许,不得转载!) 今天在项目中搭建框架忽然发现工程中有黄蓝文件夹的区别,而且对应到不同的情况: 1.蓝色文件夹下文件不能被读取: 2.蓝色文件夹下创建新的文件类会直接跳过选择类 ...

  7. memset函数具体说明

    1.void *memset(void *s,int c,size_t n)总的作用:将已开辟内存空间 s 的首 n 个字节的值设为值 c. 2.样例#include void main(){char ...

  8. Android Studio导入项目

    原文:http://ask.android-studio.org/?/article/21 本篇教程中使用到的Android Studio版本为1.0, Eclipse ADT版本23.0.4.请尝试 ...

  9. iOS开发——新特性OC篇&Swift 2.0新特性

    Swift 2.0新特性     转眼间,Swift已经一岁多了,这门新鲜.语法时尚.类型安全.执行速度更快的语言已经渐渐的深入广大开发者的心.我同样也是非常喜爱这门新的编程语言. 今年6月,一年一度 ...

  10. 【Android动画】之Tween动画 (渐变、缩放、位移、旋转)

    Android 平台提供了两类动画. 一类是Tween动画,就是对场景里的对象不断的进行图像变化来产生动画效果(旋转.平移.放缩和渐变). 第二类就是 Frame动画,即顺序的播放事先做好的图像,与g ...