显示日期格式的几个函数
作者:亮亮 来源:亮亮blog 时间:2008-09-03 13:20:00
月份转换到中文
Function MonthToCH(TheMonth)
Dim mm
mm=split("一,二,三,四,五,六,七,八,九,十,十一,十二",",")
If IsNumeric(TheMonth) Then
MonthToCH = mm(TheMonth-1) & "月份"
Else
MonthToCH = " 月份"
End If
End Function
月份转换到长英文
Function MonthToLongEN(TheMonth)
Dim mm
mm=split("January,February,March,April,May,June,July,August,September,October,November,December",",")
If IsNumeric(TheMonth) Then
MonthToLongEN = mm(TheMonth-1)
Else
MonthToLongEN = " "
End If
End Function
月份转换到短英文
Function MonthToShortEN(TheMonth)
Dim mm
mm=split("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec",",")
If IsNumeric(TheMonth) Then
MonthToShortEN = mm(TheMonth-1)
Else
MonthToShortEN = " "
End If
End Function
标签:日期,函数,时间
0
投稿
猜你喜欢
通过MySQL内置全文检索实现中文的相关检索
2010-06-11 13:20:00
MSSQL安全设置的具体步骤和方法小结
2012-07-11 15:54:11
轻松了解数据库计算机的概念和发展方向
2009-01-23 13:55:00
SQL Transcation的一些总结分享
2012-08-21 10:21:28
通过按钮实时切换CSS样式 实现CSS换肤的实例
2008-07-17 12:55:00
在Vista IIS 7 中用 vs2005 调试 Web 项目的注意事项
2011-04-18 10:38:00
企业网站FLASH引导页存在的意义
2008-06-04 11:09:00
JavaScript大牛:Douglas Crockford
2009-03-31 12:06:00
用CSS实现柱状图(Bar Graph)的方法(四)—table实现复杂柱状图
2008-05-28 12:55:00
什么是UE,UED?
2008-07-24 13:26:00
asp动态页面防采集的新方法
2011-02-26 10:44:00
asp如何用下拉列表显示数据库里的内容?
2010-06-16 09:54:00
SQL Server中应当怎样得到自动编号字段
2009-01-15 12:48:00
CSS盒模型
2009-06-09 14:23:00
纯CSS圆角框2-透明圆角化背景图片
2009-12-11 19:10:00
随机显示图片
2009-07-26 10:13:00
ASP字符串大写转换成小写 ASP小写转换成大写 ucase lcase
2011-03-31 10:59:00
适合各种浏览器的js拖动层
2007-10-22 22:43:00
JavaScript的9个陷阱及评点
2007-08-28 15:10:00
Oracle 数据库自动存储管理-安装配置
2009-05-24 19:15:00