发布网友 发布时间:15小时前
共2个回答
热心网友 时间:11小时前
Dim 当前时间
当前时间 = Now
//星期天→星期六 = 1-7
Select Case Weekday(当前时间)
Case 1, 7
TracePrint "周末"
Case 3, 4, 5, 6
TracePrint "周二到周四"
Case 2
TracePrint "周一"
If 23 >= Hour(当前时间) >= 10 Then
TracePrint "周一指定时段"
Else
TracePrint "非指定时段"
End If
End Select
//制作:法科按键
//时间:2017-10-08
热心网友 时间:11小时前
可以直接调用网络时间,源码里面有,很多网站都能ping