• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[已解决] pc版如何指定星期几 几时做某件事 [复制链接]

1#
RT下拉框指定星期几,下拉框星期一到星期日
比如下拉框选星期五,会在星期五的12点执行一次,其他时间不会执行该事件

本主题由 超级版主 瑞祥幽冥狼 于 2023/2/13 14:58:05 执行 审核主题 操作
2#

,
  1. Do
  2. If CDate(Time) = CDate("15:03:00")and WeekdayName(Weekday(now))="星期一" Then
  3. MessageBox "时间到做事!"
  4. Exit Do
  5. End If
  6. Delay 1000
  7. Loop
复制代码

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
3#

,
  1. Do
  2. If CDate(Time) = CDate("15:03:00")and WeekdayName(Weekday(now))="星期一" Then
  3. MessageBox "时间到做事!"
  4. Exit Do
  5. End If
  6. Delay 1000
  7. Loop
复制代码
瑞祥幽冥狼 发表于 2023/2/13 15:03:16
下拉框呢

4#

,
  1. Select Case Form1.ComboBox1.ListIndex
  2. Case 0
  3. 变量="星期一"
  4. Case 1
  5. 变量="星期二"

  6. Case 2
  7. 变量 = "星期三"
  8. Case 3
  9. 变量 = "星期四"
  10. Case 4
  11. 变量 = "星期五"
  12. Case 5
  13. 变量 = "星期六"
  14. Case 6
  15. 变量 = "星期日"
  16. End Select
  17. TracePrint 变量
  18. Do
  19. If CDate(Time) = CDate("15:03:00")and WeekdayName(Weekday(now))=变量 Then
  20. MessageBox "时间到做事!"
  21. Exit Do
  22. End If
  23. Delay 1000
  24. Loop
复制代码

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
发新话题 回复该主题