VBA中如何设置非交易日期，不运行

105130

’设置计时器，并在每天15点到15点03分之间运行计时器。 Sub APPLICATION_VBAStart()        Call Application.SetTimer(1,1000*120) ‘板块整理 End Sub Sub APPLICATION_Timer(ID)     if ID=1 and Cdate(Time)>=Cdate("15:00") and Cdate(Time)<=Cdate("15:03") then                                call 公式                 Application.msgout Cdate(Time) & "：盘后板块整理"     end if End Sub       这样设置，每天都会运行。在非交易日（比如周六、周日），我不想让他运行。 请教：在VBA代码中，如何写出判断交易日和非交易日的代码？