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

软件版本：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

快捷导航

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

登录 注册
返回列表
发新话题 回复该主题
查看: 1018|回复: 3

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

lin31431
头像

  • 按键精灵会员
  • 8537646
  • 49
  • 0
  • 109 朵
  • 82 个
  • 65 个
  • 0
  • 2021-11-15
1#
t T
发表于 2023-02-13 14:04 | |只看楼主
RT下拉框指定星期几，下拉框星期一到星期日
比如下拉框选星期五，会在星期五的12点执行一次，其他时间不会执行该事件

本主题由 超级版主 瑞祥幽冥狼 于 2023/2/13 14:58:05 执行 审核主题 操作
点赞
回顶部
瑞祥幽冥狼
头像

按 键 工 程 师 ● 兼 职

  • 超级版主
  • 1228894
  • 26859
  • 25
  • 7944 朵
  • 36013 个
  • 4630 个
  • 421340
  • 2012-07-18
按键X开拓者勋章过大年勋章双十一绝版纪念勋章抗战胜利70周年勋章单身汪勋章按键14周年庆纪念勋章按键学院幸运草勋章马年勋章鹰眼勋章黄瓜勋章天使勋章按键明星黄金之翼举报达人活动狂人骨灰级按键用户按键精灵开发者6级龙年勋章十周年勋章兔年勋章论坛GG发帖高手爱心大使学有所成按键运营团队按键元老管理人员
2#
t T
发表于 2023-02-13 15:03 | |只看该用户

,
  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［可加］
回顶部
lin31431
头像

  • 按键精灵会员
  • 8537646
  • 49
  • 0
  • 109 朵
  • 82 个
  • 65 个
  • 0
  • 2021-11-15
3#
t T
发表于 2023-02-14 00:02 | |只看楼主

,
  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
下拉框呢

回顶部
瑞祥幽冥狼
头像

按 键 工 程 师 ● 兼 职

  • 超级版主
  • 1228894
  • 26859
  • 25
  • 7944 朵
  • 36013 个
  • 4630 个
  • 421340
  • 2012-07-18
按键X开拓者勋章过大年勋章双十一绝版纪念勋章抗战胜利70周年勋章单身汪勋章按键14周年庆纪念勋章按键学院幸运草勋章马年勋章鹰眼勋章黄瓜勋章天使勋章按键明星黄金之翼举报达人活动狂人骨灰级按键用户按键精灵开发者6级龙年勋章十周年勋章兔年勋章论坛GG发帖高手爱心大使学有所成按键运营团队按键元老管理人员
4#
t T
发表于 2023-02-23 22:20 | |只看该用户

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

  7. Case 2
  8. 变量 = "星期三"
  9. Case 3
  10. 变量 = "星期四"
  11. Case 4
  12. 变量 = "星期五"
  13. Case 5
  14. 变量 = "星期六"
  15. Case 6
  16. 变量 = "星期日"
  17. End Select
  18. TracePrint 变量
  19. Do
  20. If CDate(Time) = CDate("15:03:00")and WeekdayName(Weekday(now))=变量 Then
  21. MessageBox "时间到做事!"
  22. Exit Do
  23. End If
  24. Delay 1000
  25. 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［可加］
回顶部
上一主题| 下一主题
返回列表
发新话题 回复该主题
高级编辑器高级编辑器