sub DateSub(dDate)
dim dYear,dMonth,dDay dYear = year(cdate(dDate))
dMonth = Month(cdate(dDate))
dDay = day(cdate(dDate)-1)
alert(dYear & dMonth & dDay)
end sub
dim dYear,dMonth,dDay dYear = year(cdate(dDate))
dMonth = Month(cdate(dDate))
dDay = day(cdate(dDate)-1)
alert(dYear & dMonth & dDay)
end sub
--------------------
自己分解然后计算,没有内置的方法VBS
--------------------
NewDate = DateAdd("d", -1, theDate)