主题：要在周一到周五12：00 ----14：30 分之前做某个事，怎么写代码？

做个计划（定时器），写代码

static d1 As Date = Date.today.AddDays(-1)

If d1 <> Date.today AndAlso Date.today.DayOfWeek >= 1 AndAlso Date.today.DayOfWeek <= 5 AndAlso format(Date.Now, "HHmm") >= "1200" AndAlso format(Date.Now, "HHmm") <= "1430" Then
    d1 = Date.today
    msgbox(123)
End If