在我们车间里有4个人需要轮流值班，可不可以把这4个人写在程序文件夹内的a.txt里如  张三、李四、王二、刘五.每次值班都要去想该谁值班或者去翻值班记录，很麻烦，如果能够显示在电脑上提醒该多好哦，请各位高手给个源码，小弟在次写过了。
 要求： 1、从2015-1-31这天开始由张三值班，2月1日由李四值班  2月2日由王二值班 2月3日这天由刘五值班，每天显示在标签上。
        2、不用每月刻意的去排班，而是一启动程序，程序就自动从2015年1月31日这天开始计算，一直计算到本地计算机当天的日期后，显示该谁值班。

[ 本帖最后由 lzb3158 于 2015-1-31 21:33 编辑 ]

没时间去弄，算法原理如下：

按日期做减少，计算经过了多少天，当然，这里面没有办法计算节假日，如果要计算节假日，需要另外有一个列表进行排班，那个最好就是使用 数据库。

算法很简单，建一个数组
Z(0)="张三"
Z(1)="李四"
Z(2)="王二"
Z(3)="刘五"

然后用当前日期减去 2015-1-31
减出来的天数，整除以数据总元素取余 ，这里是4个，
然后 查表， 0 就表示张三，1表示李四，2表示王二，3表示刘五，不会出现 4的情况。

-----------------------------------
按成 EXCEL 来做，就是这样的
A2，输入基准日期：2015-1-31
B2-B5：0-3
C2-C5：四个人的名字

我结果放在 E列和F列。
E2= "=TODAY()"
F2= "=LOOKUP((E2-$A$2),B2:B5,C2:C5)"
公式不含前后引号。
E2是当前日期，F2是查找引用，想了解用法，百度去。

不懂！请其它高手写个代码，这样我就看看电脑就知道今天该谁值班！
Private Sub Command1_Click()
Dim Str As String
Str = Text1.Text
Label1.Caption = DateDiff("d", CDate(Format(Now, "YYYY-MM-DD")), CDate(Format(Str, "yyyy-mm-dd")))
End Sub
这是计算天数的代码，能不能再加一段代码来根据Label1.Caption=数据， 来循环读取 张三、李四、王二、刘五，比如Label1.Caption = 8  那就从张三开始一直循环读8次，那就显示 刘五。

[ 本帖最后由 lzb3158 于 2015-2-1 20:40 编辑 ]

Label2.Caption
j = （Label1.Caption -1） mod 4
Label2.Caption  =z(j)
在手机上，好烦，自己多想想

不懂

风吹过b 版主说了，如果没有节假日表，不能自动排班。

没有节假日，我们这里是私人企业，天天晚上20:00-22:00都要轮流值班。

试试这个代码，自己按需要修改

Option Explicit
Private Sub Form_Load()
Dim startDate
Dim nowDate
Dim interval As Long
Dim dutyMan As Integer
Dim order(0 To 3) As String
order(0) = "张三"
order(1) = "李四"
order(2) = "赵五"
order(3) = "刘六"
startDate = DateSerial(2015, 1, 31)
nowDate = Date
interval = nowDate - startDate
dutyMan = interval Mod 4
Form1.Caption = "今天是" & Date & ",该" & order(dutyMan) & "值班"
End Sub

丁一个  这个源码还可以！

[ 本帖最后由 事业男儿 于 2015-2-2 17:31 编辑 ]

lianyicq版主！