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

李泽勇2 · 发表于 2024-6-11 09:44:45

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

子程序名	返回值类型	公开	备注
时间_取上下班标准时间	文本型		白班返回下班结果，例如：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, 下载次数: 22)