
CODE: [Copy to clipboard]on error resume next
newdate=split(date,"/")
xdate=newdate(0)&"/"&newdate(1)&"/"
for i=31 to 1 step -1
if weekday(xdate&i)=vbSaturday then
msgbox "backup"
exit for
end if
next
| Quote: | |
|
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |