VBScript中格式化输出日期的方法

 

 

在使用VBScript中经常需要使用格式化输出日期的方法，总结也一下，如下：

 

1.使用FormatDateTime函数

此函数返回表达式，此表达式已被格式化为日期或时间。

FormatDateTime 函数使用格式为FormatDateTime(Date[, NamedFormat])

其中

Date为必选项。要被格式化的日期表达式。

NamedFormat为可选项。指示所使用的日期/时间格式的数值，如果省略，则使用 vbGeneralDate。

NamedFormat 参数能有以下值：

常数	值	描述
vbGeneralDate	0	显示日期和/或时间。如果有日期部分，则将该部分显示为短日期格式。如果有时间部分，则将该部分显示为长时间格式。如果都存在，则显示所有部分。
vbLongDate	1	使用计算机区域设置中指定的长日期格式显示日期。
vbShortDate	2	使用计算机区域设置中指定的短日期格式显示日期。
vbLongTime	3	使用计算机区域设置中指定的时间格式显示时间。
vbShortTime	4	使用 24 小时格式 (hh:mm) 显示时间。

 

 

2.自定义输出，如将2010年9月9日输出为20100909

但VBScript自带的日期格式功能不支持两位数日期的格式，如果使用如下代码

strDate= CStr(Year(Now()))&Cstr(Month(Now()))&Cstr(Day(Now()))

则strDate中的字符为201099

解决此问题的方法有如下几种：

1）写一个处理函数，比如叫做Get2Digits

if len(month(now))=1 then month="0"&month

这样每次都调用这个函数即可。

2）我们也可以通过这种方式获取：right("0"&Month(now),2)，这个函数的作用实际上很简单，先给月份前面强制加字符“0”，这样格式就变成了06、08、012，然后取右边的两个字符，也就是06、08、12。这样既简短又避免了过多的if判断语句导致程序执行变慢的问题。这种方法显然要好很多。则刚才的可以改为

strDate=CStr(Year(Now()))&Right("0"&Month(Now()),2)&Right("0"&Day(Now()),2)

3）Now()输出的格式为2010/09/09 12:47:59

所以我们也可以采取这种方式格式化输出日期

strDate=Left(Now(),4)&Mid(Now(),6,2)&Mid(Now(),9,2)

但是，有一点注意，我测试了一下，这种方式在日文OS下是可以使用的，因为此时Now()的结果是2010/09/09 12:47:59这种格式的，但是在英文OS下Now()的结果是09/09/2010 12:47:59,此时就要对上面的方法进行更改，这个要十分注意！