Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]日期大小判定代码


  共有4466人关注过本帖树形打印复制链接

主题：[求助]日期大小判定代码
帅哥哟，离线，有人找我吗？
rbsoft
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：592 威望：0 精华：0 注册：2018/7/5 21:52:00 		[求助]日期大小判定代码  发帖心情 Post By：2019/10/8 10:32:00 [显示全部帖子]

附件中的“开始时间”和“结束时间” 都可以修改，但是要求：
要求：1、同一行“结束时间”必须大于“开始时间”
        2、同年月日的下一行的“开始时间”必须大于上一行的“结束时间”
当违反这些要求时系统会提示。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:业务记录.xlsx
 回到顶部
帅哥哟，离线，有人找我吗？
rbsoft
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：592 威望：0 精华：0 注册：2018/7/5 21:52:00 		  发帖心情 Post By：2019/10/8 11:33:00 [显示全部帖子]

谢谢。如果按照人员工号判定呢？比如：工号：1001的人员，只判定该人员在2019-09-09的开始时间和结束时间。但是不判定1002人员的，当判定1002人员的时候，不判定1001人员的。意思是：同年月日的下一行的“开始时间”必须大于上一行的“结束时间”  仅限于该工号人员。不同工号人员之间不受限制。请看附件。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:业务记录.xlsx
 回到顶部
帅哥哟，离线，有人找我吗？
rbsoft
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：592 威望：0 精华：0 注册：2018/7/5 21:52:00 		  发帖心情 Post By：2019/10/8 14:34:00 [显示全部帖子]

同一行，虽然修改开始时间，会提示。但是开始时间还是可以修改过来，修改过后的时间还是会大于结束时间。请看附件截图。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:业务记录.xlsx

[此贴子已经被作者于2019/10/8 14:34:20编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
rbsoft
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：592 威望：0 精华：0 注册：2018/7/5 21:52:00 		  发帖心情 Post By：2019/10/10 11:24:00 [显示全部帖子]

请帮忙看看附件实例，谢谢。

 回到顶部
帅哥哟，离线，有人找我吗？
rbsoft
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：592 威望：0 精华：0 注册：2018/7/5 21:52:00 		  发帖心情 Post By：2019/10/10 11:24:00 [显示全部帖子]

请帮忙看看附件实例，谢谢
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:时间大小判定.zip

 回到顶部
帅哥哟，离线，有人找我吗？
rbsoft
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：592 威望：0 精华：0 注册：2018/7/5 21:52:00 		  发帖心情 Post By：2019/10/10 13:03:00 [显示全部帖子]

非常感谢。

 回到顶部
帅哥哟，离线，有人找我吗？
rbsoft
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：592 威望：0 精华：0 注册：2018/7/5 21:52:00 		  发帖心情 Post By：2019/10/10 16:48:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:时间大小判定.zip

不好意思，还是附件这个项目有个问题请教：怎么样按照一定的规则在字段“工数”中扣除休息时间呢？
休息时间的规定：上午10：00--10：10 （10分钟休息）；下午：15：00--15：10 (10分钟休息)；中午：12：00--13：00 (60分钟休息)。
附件是实例说明，麻烦帮我看下，谢谢。
[此贴子已经被作者于2019/10/10 16:47:52编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
rbsoft
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：592 威望：0 精华：0 注册：2018/7/5 21:52:00 		  发帖心情 Post By：2019/10/11 9:39:00 [显示全部帖子]

有点问题啊，如果开始时间是上午9点，结束时间是下午16点，sum应该=80分钟。这个方法计算就不对了。

 回到顶部
帅哥哟，离线，有人找我吗？
rbsoft
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：592 威望：0 精华：0 注册：2018/7/5 21:52:00 		  发帖心情 Post By：2019/10/11 9:53:00 [显示全部帖子]

不好意思啊图片点击可在新窗口打开查看，就是不知道怎么写代码

 回到顶部
帅哥哟，离线，有人找我吗？
rbsoft
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：51 积分：592 威望：0 精华：0 注册：2018/7/5 21:52:00 		  发帖心情 Post By：2019/10/11 17:31:00 [显示全部帖子]

谢谢，现在追加一个休息时间；上班开始时间：16：50，结束时间：01：05；休息时间：22：20--22：30 (10分钟)，由于日期跨天了。下面的代码就无法自动计算了，还请麻烦指导。

Dim d1 As Date = #10/11/2019 16:50#
Dim d2 As Date = #10/12/2019 01:05#

Dim sum As Integer = 0
If Format(d1,"HHmm") <= "1000" AndAlso Format(d2,"HHmm") >= "1010"
    sum = sum + 10
End If
If Format(d1,"HHmm") <= "1500" AndAlso Format(d2,"HHmm") >= "1510"
    sum = sum + 10
End If
If Format(d1,"HHmm") <= "1200" AndAlso Format(d2,"HHmm") >= "1300"
    sum = sum + 60
End If
If Format(d1,"HHmm") <= "2220" AndAlso Format(d2,"HHmm") >= "2230"
    sum = sum + 10
End If
msgbox(sum )
Dim sp As TimeSpan = d2 - d1
msgbox(sp.TotalMinutes)
Dim 总时间 = sp.TotalMinutes - sum
msgbox(总时间)
 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 10 次数据查询