标题:VB值班软件程序
取消只看楼主
事业男儿
Rank: 2
等 级:论坛游民
帖 子:308
专家分:14
注 册:2007-4-25
结帖率:81.69%
已结贴  问题点数:20 回复次数:2 
VB值班软件程序
张某、刘某、王某在同一天不同时段工作,一周转一次班,比如做了早班就转到夜班,做了夜班的就转到中班,做了中班的就转到早班。3班倒的班次是这样定义的,早班:8:00-16:00 中班:16:00-0:00 夜班:0:00-8:00 ,需要软件任何时候判断这三个人在做什么。比如8:00-16:00期间就显示 张某在上班,王某刘某在休息。每三周就循环一次。排班如下图
搜索更多相关主题的帖子: VB 软件 做什么 显示 循环 
2018-05-08 03:49
事业男儿
Rank: 2
等 级:论坛游民
帖 子:308
专家分:14
注 册:2007-4-25
得分:0 
回复 2楼 xzlxzlxzl
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编辑过]

2018-05-08 08:23
事业男儿
Rank: 2
等 级:论坛游民
帖 子:308
专家分:14
注 册:2007-4-25
得分:0 
实在是太感谢了,谢谢所有支持关心我的老师们!
2018-05-09 09:17



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-486750-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.392822 second(s), 9 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved