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 lianghua5Fzhongwuzhengli
                Application.msgout Cdate(Time) & "：量化盘后整理"
    end if
End Sub       


这样设置，每天都会运行。在非交易日（比如周六、周日），我不想让他运行。
请教：在VBA代码中，如何写出判断交易日和非交易日的代码？