想实现下班前自动关软件功能

坚定追求

大咖您好！
      我想实现下班后，软件能自动退出来。然后我可以关掉电脑。这样就不至于强行关电脑导致金字塔报错。请帮忙解决，谢谢！

技术006

[Visual Basic] 复制代码

Const HourTimer = 15                                                '用于指定时间执行全量更新(小时部分)
Const MinuteTimer = 30                                                        '用于指定时间执行全量更新(分钟部分)

CAll Application.SetTimer(0, 10000)

Sub APPLICATION_Timer(ID)
    If id=0  then
            '每天 15:30 执行一次
                   If Hour(Now) = HourTimer And Minute(Now) = MinuteTimer Then
                        Application.QuitApplication(0)
                end if
    End If
End Sub

坚定追求

1 、我还想在下午3点06 或  晚上11.06 或 半夜 2.36  关机 ， 要怎么写 ？
2 、上面的代码中，没有看到15.30 分的表述呢，
3 、 这段代码放在哪 里运行？

技术009

技术009

坚定追求

以下三个时间点，可不可以这样写：
Const HourTimer = 15                                                '用于指定时间执行全量更新(小时部分)
Const MinuteTimer = 06                                                        '用于指定时间执行全量更新(分钟部分)
Const HourTimer02 = 23                                               '用于指定时间执行全量更新(小时部分)
Const MinuteTimer02 = 06
Const HourTimer03 = 2                                               '用于指定时间执行全量更新(小时部分)
Const MinuteTimer03 = 36
CAll Application.SetTimer(0, 10000)

Sub APPLICATION_Timer(ID)
    If id=0  then
            '每天 15:30 执行一次
                   If (Hour(Now) = HourTimer And Minute(Now) = MinuteTimer)   or  (Hour(Now) = HourTimer02 And Minute(Now) = MinuteTimer02) or  (Hour(Now) = HourTimer03  And Minute(Now) = MinuteTimer)03  Then
                        Application.QuitApplication(0)
                end if
    End If
End Sub

技术009

可以的。