vbscript 如何改变日期格式(月份天数补零)

输出日期很常见,日期的格式根据情况也有多种,系统去掉了0,如何日期补零实现月份、天数两位数?如20140101 可参考下面方法:

getY=year(date())
getM=month(date())
getD=day(date())
if len(getM) = 1 then getM = “0” & getM end if
if len(getD) = 1 then getD = “0” & getD end if

response.Write getY&getM&getD ‘输出格式 20140101
response.Write getY&”-“&getM&”-“&getD ”输出格式 2014-01-01

实现补零后,可根据自己情况输出。