如何将当前日期和时间转换为固定格式的字符串？

[doomer]

比如：
"2002-05-09-15-20-33",其中05、09前的空格我怎么也搞不出来！

[ChinaOk]

05 09有空格吗？那是-

你要实现什么格式？

[ChinaOk]

function getTime()
dim y,m,d,h,n,s
h=Hour(time())
n=Minute(time())
s=Second(time()) '当为是一位的 时候在前面加0
if len(h)=1 then h="0" & h
if len(n)=1 then n="0" & n
if len(s)=1 then s="0" & s
getTime=h&":"& n&":"&s
end function

[doomer]

就是我写的格式，除年份外，其他字段都要求必须2位数（也就是转换出来的串长度要统一）

[ChinaOk]

这个就全了
随便你怎么组合了。

n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time()) '当为是一位的 时候在前面加0
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
stime=s & ":" & f & ":" & m
sj2=n & "-" & y & "-" & r & " " & stime

[doomer]

真烦，难道没有简单一点的写法？VB的CStr功能太弱，居然不能格式转换？

[doomer]

说错了，是“居然不能格式化转换？”

[ChinaOk]

http://www.chinaok.net/Examples/vbscript/109.htm

[doomer]

最好是能象这样：FormatDateTime（SomeDate,"yyyymmdd")