张某、刘某、王某在同一天不同时段工作，一周转一次班，比如做了早班就转到夜班，做了夜班的就转到中班，做了中班的就转到早班。3班倒的班次是这样定义的，早班：8：00-16:00 中班：16:00-0:00 夜班：0:00-8:00 ，需要软件任何时候判断这三个人在做什么。比如8:00-16:00期间就显示 张某在上班，王某刘某在休息。每三周就循环一次。排班如下图

xzlxzlxzl版主 麻烦你写个代码！

我下面这个只是执行了顺序循环，要实现每周换个班，循环3周 底周才是第一周的表 还要判断某个时段谁在干啥，有点难，开始想到用VB读取本周是第今年第19周，来判断，那个好像还要难一点。
Option Explicit

Private Sub Form_Load()
Dim startDate
Dim nowDate
Dim interval As Long
Dim dutyMan As Integer
Dim order(0 To 2) As String
order(0) = "【张某】"
order(1) = "【王某】"
order(2) = "【刘某】"
startDate = DateSerial(2018, 5, 8)
nowDate = Date
interval = nowDate - startDate
dutyMan = interval Mod 3
Label1.Caption = "今天是" & Date & ",该" & order(dutyMan) & "值班"

[此贴子已经被作者于2018-5-8 08:37编辑过]

实在是太感谢了，谢谢所有支持关心我的老师们！