虽然搞不懂什么叫“做一个时间”，但是每个时间段都是整点之间，我想这就比较好办的。
nHour = Hour(Time)
Select Case nHour
Case 7,8,9,10,11
MsgBox " 上午"
Case 12,13,14,15,16,17
MsgBox " 下午"
Case 18,19,20,21,22,23
MsgBox " 夜间"
Case Else
MsgBox " 其他"
End Select
额……vbs好像不能用 case 7 to 11，比vb6.0麻烦
楼下正解，不过建议你用if else更简单。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024