dim f,fso,m,d,x
x=1
set fso=createobject("scripting.filesystemobject")
set f=fso.createtextfile(".\_fd.txt",true)
m=cstr(month(cdate(now-x)))
d=cstr(day(cdate(now-x)))
if len(m)=1 then m="0" & m
if len(d)=1 then d="0" & d
f.writeline(year(now-x)&m&d)
---------------------------------------------------------
save as fdate.vbs即可
[ Last edited by xmi on 2008-2-21 at 09:13 PM ]作者: gook 时间: 2008-2-29 19:35 一句msgbox now就搞定了,不用那么麻烦作者: regvip2008 时间: 2008-2-29 19:42 呵呵,楼上的方法不错,学习了!作者: zerocq 时间: 2008-3-1 13:13 还有msgbox time