倒班程序可以根据不同的需求和公司文化来编写。以下是一个基于Excel的倒班查询程序示例，适用于四班三运转的倒班方式：
使用Excel编写倒班查询程序
创建倒班表
在Excel中创建一个表格，列出所有日期和对应的班次。例如：
| 日期 | 甲班 | 乙班 | 丙班 | 丁班 |
|------------|------|------|------|------|
| 2023-10-01 | 8:00 | 16:00 | 0:00 | 8:00 |
| 2023-10-02 | 16:00 | 8:00 | 8:00 | 16:00 |
| 2023-10-03 | 0:00 | 0:00 | 16:00 | 8:00 |
将此表复制并粘贴到Excel中，确保日期在C2单元格，班次在D、E、F、G列。
编写查询公式
在需要查询的日期单元格（例如C2）中输入要查询的日期。
在H2单元格中输入以下公式来查询甲班班次：
```excel
=CHOOSE（MOD（ROUND（C2,0）+3,8）+1, "第一个8点班", "第二个8点班", "第一个4点班", "第二个4点班", "小休", "第一个0点班", "第二个0点班", "大休"）
```
在H3单元格中输入以下公式来查询乙班班次：
```excel
=CHOOSE（MOD（ROUND（C2,0）+5,8）+1, "第一个8点班", "第二个8点班", "第一个4点班", "第二个4点班", "小休", "第一个0点班", "第二个0点班", "大休"）
```
在H4单元格中输入以下公式来查询丙班班次：
```excel
=CHOOSE（MOD（ROUND（C2,0）+7,8）+1, "第一个8点班", "第二个8点班", "第一个4点班", "第二个4点班", "小休", "第一个0点班", "第二个0点班", "大休"）
```
在H5单元格中输入以下公式来查询丁班班次：
```excel
=CHOOSE（MOD（ROUND（C2,0）+1,8）+1, "第一个8点班", "第二个8点班", "第一个4点班", "第二个4点班", "小休", "第一个0点班", "第二个0点班", "大休"）
```
使用VBA宏（可选）
如果需要更复杂的倒班安排或查询，可以使用Excel的VBA宏来编写更灵活的倒班程序。以下是一个简单的VBA示例，用于根据输入的日期查询班次：
```vba
Sub QueryShift（）
Dim dateCell As Range
Dim shiftCell As Range
Dim shiftName As String
Dim shiftIndex As Integer
' 设置要查询的日期
Set dateCell = Range（"C2"）
' 查询甲班班次
shiftName = "甲班"
shiftIndex = Mod（Int（dateCell.Value）, 8） + 1
shiftCell = Range（"D" & shiftIndex）
MsgBox shiftCell.Value
' 查询乙班班次
shiftName = "乙班"
shiftIndex = Mod（Int（dateCell.Value）, 8） + 1
shiftCell = Range（"E" & shiftIndex）
MsgBox shiftCell.Value
' 查询丙班班次
shiftName = "丙班"
shiftIndex = Mod（Int（dateCell.Value）, 8） + 1
shiftCell = Range（"F" & shiftIndex）
MsgBox shiftCell.Value
' 查询丁班班次
shiftName = "丁班"
shiftIndex = Mod（Int（dateCell.Value）, 8） + 1
shiftCell = Range（"G" & shiftIndex）
MsgBox shiftCell.Value
End Sub
```
其他倒班方式
三班运转：每班8小时，采用12小时制，分为早班、中班、晚班。
四班三倒