上下班工时作假子程序（一个好玩的东东）

李泽勇2

这个是以前临时写的，写的比较乱，大佬勿喷。

  

子程序名	返回值类型	公开	备 注
时间_取上下班标准时间	文本型		白班返回下班结果，例如：07:30-17:50  夜班返回结果，例如：21:00-07:00 BY：李勇
参数名	类 型	参考	可空	数组	备 注
上班时间	文本型				早上开始上班的打卡时间，例如：07:30
上班小时	小数型				一整天上班小时数
午休时间	小数型				中间休息了多久，没有就填0
提前上班	小数型				填入小时，一般不超过1小时,≤0时不生效
打乱时间	逻辑型				真打乱，假不打乱，提前上班≤0，下面打乱时间不生效
延后下班	小数型				填入小时，一般不超过0.25小时，随机产生时间，≤0时不生效
是否夜班	逻辑型				夜班是反向计算，例如：上班时间填如21:00

变量名	类 型	静态	数组	备 注
新上班时间	整数型
新下班时间	整数型
延后下班_秒	整数型
时间差	整数型

判断 (提前上班 ＞ 0)
如果 (打乱时间 ＝ 真)
新上班时间 ＝ 取随机数_汇编 (时间_时分到秒 (上班时间) － 时间_小时到秒 (提前上班), 时间_时分到秒 (上班时间))
新上班时间 ＝ 时间_时分到秒 (上班时间) － 时间_小时到秒 (提前上班)
时间差 ＝ 1499 － 新上班时间  ' 1499是24小时的秒数（00:00），减去下午上班时间就得出时间差。


新上班时间 ＝ 时间_时分到秒 (上班时间)  ' 提前上班 ≤ 0时不随机
时间差 ＝ 1499 － 新上班时间

判断 (延后下班 ＞ 0)
延后下班_秒 ＝ 时间_小时到秒 (延后下班)
判断 (是否夜班 ＝ 真)
新下班时间 ＝ 取随机数_汇编 (新上班时间 ＋ 时间_小时到秒 (上班小时) ＋ 60 － 时间差 ＋ 时间_小时到秒 (午休时间), 新上班时间 ＋ 时间_小时到秒 (上班小时) ＋ 延后下班_秒 ＋ 60 － 时间差 ＋ 时间_小时到秒 (午休时间))
新下班时间 ＝ 取随机数_汇编 (新上班时间 ＋ 时间_小时到秒 (上班小时), 新上班时间 ＋ 时间_小时到秒 (上班小时) ＋ 延后下班_秒)

判断 (是否夜班 ＝ 真)  ' 延后下班 ≤ 0时不随机
新下班时间 ＝ 新上班时间 ＋ 时间_小时到秒 (上班小时) ＋ 60 － 时间差 ＋ 时间_小时到秒 (午休时间)
新下班时间 ＝ 新上班时间 ＋ 时间_小时到秒 (上班小时)

判断 (上班小时 ≤ 午休时间)
返回 (“”)


判断 (是否夜班 ＝ 真)
返回 (时间_秒到时分 (新上班时间) ＋ “-” ＋ 时间_秒到时分 (新下班时间 － 新上班时间))
返回 (时间_秒到时分 (新上班时间) ＋ “-” ＋ 时间_秒到时分 (新下班时间 ＋ 时间_小时到秒 (午休时间)))

.版本 2<br /> <br /> .子程序 时间_取上下班标准时间, 文本型, 公开, 白班返回下班结果，例如：07:30-17:50  夜班返回结果，例如：21:00-07:00 BY：李勇<br /> .参数 上班时间, 文本型, , 早上开始上班的打卡时间，例如：07:30<br /> .参数 上班小时, 小数型, , 一整天上班小时数<br /> .参数 午休时间, 小数型, , 中间休息了多久，没有就填0<br /> .参数 提前上班, 小数型, , 填入小时，一般不超过1小时,≤0时不生效<br /> .参数 打乱时间, 逻辑型, , 真打乱，假不打乱，提前上班≤0，下面打乱时间不生效<br /> .参数 延后下班, 小数型, , 填入小时，一般不超过0.25小时，随机产生时间，≤0时不生效<br /> .参数 是否夜班, 逻辑型, , 夜班是反向计算，例如：上班时间填如21:00<br /> .局部变量 新上班时间, 整数型<br /> .局部变量 新下班时间, 整数型<br /> .局部变量 延后下班_秒, 整数型<br /> .局部变量 时间差, 整数型<br /> <br /> .判断开始 (提前上班 ＞ 0)<br />     .如果 (打乱时间 ＝ 真)<br />         新上班时间 ＝ 取随机数_汇编 (时间_时分到秒 (上班时间) － 时间_小时到秒 (提前上班), 时间_时分到秒 (上班时间))<br />     .否则<br />         新上班时间 ＝ 时间_时分到秒 (上班时间) － 时间_小时到秒 (提前上班)<br />     .如果结束<br />     时间差 ＝ 1499 － 新上班时间  ' 1499是24小时的秒数（00:00），减去下午上班时间就得出时间差。<br /> .默认<br /> <br />     新上班时间 ＝ 时间_时分到秒 (上班时间)  ' 提前上班 ≤ 0时不随机<br />     时间差 ＝ 1499 － 新上班时间<br /> .判断结束<br /> <br /> .判断开始 (延后下班 ＞ 0)<br />     延后下班_秒 ＝ 时间_小时到秒 (延后下班)<br />     .判断开始 (是否夜班 ＝ 真)<br />         新下班时间 ＝ 取随机数_汇编 (新上班时间 ＋ 时间_小时到秒 (上班小时) ＋ 60 － 时间差 ＋ 时间_小时到秒 (午休时间), 新上班时间 ＋ 时间_小时到秒 (上班小时) ＋ 延后下班_秒 ＋ 60 － 时间差 ＋ 时间_小时到秒 (午休时间))<br />     .默认<br />         新下班时间 ＝ 取随机数_汇编 (新上班时间 ＋ 时间_小时到秒 (上班小时), 新上班时间 ＋ 时间_小时到秒 (上班小时) ＋ 延后下班_秒)<br />     .判断结束<br /> <br /> .判断 (是否夜班 ＝ 真)  ' 延后下班 ≤ 0时不随机<br />     新下班时间 ＝ 新上班时间 ＋ 时间_小时到秒 (上班小时) ＋ 60 － 时间差 ＋ 时间_小时到秒 (午休时间)<br /> .默认<br />     新下班时间 ＝ 新上班时间 ＋ 时间_小时到秒 (上班小时)<br /> .判断结束<br /> <br /> .判断开始 (上班小时 ≤ 午休时间)<br />     返回 (“”)<br /> .默认<br /> <br />     .判断开始 (是否夜班 ＝ 真)<br />         返回 (时间_秒到时分 (新上班时间) ＋ “-” ＋ 时间_秒到时分 (新下班时间 － 新上班时间))<br />     .默认<br />         返回 (时间_秒到时分 (新上班时间) ＋ “-” ＋ 时间_秒到时分 (新下班时间 ＋ 时间_小时到秒 (午休时间)))<br />     .判断结束<br /> <br /> .判断结束

测试附件： 取上下班标准时间.e (8.09 KB, 下载次数: 19)

2024-6-11 09:44 上传

点击文件名下载附件

shaoxing0117

感谢分享，很给力！~

蓝河笑月

感谢分享

STEVE阿宇

感谢分享~~~~~~~~~~~~~~~~

LLZWWY

感谢大佬无私分享

王刚123456

学习一下，看看

闽字科技

所以这个是什么呢

lm88818

        感谢分享，很给力！~

victor5536

看看是什么

yangchangli

看看这是什么好东西

xxhaishixx

作假用？造假么？