| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2102 人关注过本帖
标题: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
快速回复:VB值班软件程序
数据加载中...
 
   



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

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