苦寒竹

不足两位的日期前能不能通过数据库或者ASP程序实现自动加零，比如2008-5-1，要成2008-05-01，主要是为了日期能够对齐。

方法：year(Date()) & right("0"&month(Date()),2) & right("0"&day(Date()),2)

jsw0528

复制内容到剪贴板

代码:

function GetNewName()
        dim dtNow:dtNow = Now()
        GetNewBakName = year(dtNow) & right("0" & month(dtNow),2) & right("0" & day(dtNow),2) & right("0" & hour(dtNow),2) & right("0" & minute(dtNow),2) & right("0" & second(dtNow),2)
End function

效果：20080808200800