vbs中获得两位数日期格式的方法

自动化测试中经常要用到时间戳，而VBS自带的日期格式功能不支持两位数日期的格式，例如2009年9月9号 只能显示成200999。如果变为2009年10月20号就无辜的多了两位数20091020。如果可以把第一种情况也输出成20090909就更加清晰，也整齐。发现有两种方法可以解决这个问题：

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判断语句导致程序执行变慢的问题。同理，两位数日期right("0"&day(now),2)、两位数小时right("0"&hour(now),2)、两位数分钟right("0"&minute(now),2)、两位数秒数right("0"&second(now),2)。这样的函数是不是很清晰呢？显然要比第一种方法好很多。

转自：http://www.mx111.com/Article_View.asp?id=1354