谁知道我这个问题用vb怎么怎么写出来

比如2009年11月4日我上早班，然后11月5日夜班，6号7号休息，接下来的8号九号分别是早班和夜班，也就是做两天休息俩天，我想编个小程序，就是比如握先指定2009。11。4我是早班，然后查询后面任意一个日期上什么班，要考虑闰年和大小月

100%你的需要。。
我这个可以列出每天的流程
你先给个未来时间，，然后他会列出从今天到你给的未来时间的每天的流程，
创建个按钮， 再创个大点的label标签，复制代码就可以了

Private Sub Command1_Click()
Dim a As Long, day As String

Label1.Caption = ""
day = InputBox("请输入要查询的未来日子" & "", "输入", Date)
If day = "" Then Exit Sub
a = DateDiff("d", Date, day)
For i = 0 To a
Label1.Caption = Label1.Caption & DateAdd("D", i, Date)
a = DateDiff("d", "2009-11-4", DateAdd("D", i, Date))

a = a Mod 4
Select Case a
Case 0: Label1.Caption = Label1.Caption & ":早班" & vbCrLf
Case 1: Label1.Caption = Label1.Caption & ":夜班" & vbCrLf
Case Else: Label1.Caption = Label1.Caption & ":休息" & vbCrLf
End Select
Next i
End Sub

vb里面有个算日期间隔的函数，忘记了，

使用 DateDiff 函数，不用考虑闰年和大小月，函数会自动处理。代码如下：