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,此时就要对上面的方法进行更改，这个要十分注意！