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

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

不懂！请其它高手写个代码，这样我就看看电脑就知道今天该谁值班！
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 编辑 ]

不懂

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

lianyicq版主！