VBS时间提醒怎么排除周六周日,以下是我写的代码,没有排除周六周日,我想提前二天提示,排除周六和周日的时间,请高手帮我修改一下,谢谢
Set fso=CreateObject("Scripting.FileSystemObject")
SJ="2012年10月13日"
TX=DateAdd("d",-2,SJ)
A=FormatDateTime(TX,1)
run
mydate=GetLongDate()
if mydate=A then
msgbox "生日到了"
end if
Function GetLongDate
GetLongDate=FormatDateTime(Date,1)
End Function
sub run
end sub

谢谢二楼,但无法运行,我需要的是排除周六和周日的时间,就是说,时间提前二天如果碰到周六或者周日排除(周六周日不在提示日)

我要完整的代码，谢谢！

谢谢你的回复,可能你理解错了,我需要的不是二者相差多少天,而是排除周六周日双休!

自己解决了,谢谢