时间段组的矢量运算,自定义函数

yjh_27 · 发表于 2013-4-12 23:06

yjh_27 · 发表于 2013-4-29 14:00

本帖最后由 yjh_27 于 2013-5-1 15:22 编辑

CompletionTime       完工时间
函数功能：求一组时间段内完工时间
语法
CompletionTime(arrTime1,arrTime2,mode)
arrTime1,arrTime2为参与计算的两组时间段，为数组形式

arrTime2参数的设置
开始时间                   结束时间          星期几工作                   注释
2013/1/1 8:00       2013/5/31 12:00       1,2,3,4,5             2013/1/1至2013/5/31(有效日期，也可不设有效日期)  周一至周五  8时至12时  工作
2013/6/1 9:00       2013/12/31 12:00       2,6                   2013/6/1至2013/12/31 周二、周六  9时至12时  工作
2013/4/7 8:00       2013/4/7 12:00       +                         2013/4/7                                        8时至12时  休息调工作
2013/4/4             2013/4/7                   -                         2013/4/4 0:00:00至2013/4/6 24:00:00             工作调休息（放假）

                                                         星期几工作：用“，”隔开即可；0或空表示每天都工作。

mode 为""时，工时以时间格式
mode 为"m"时，工时以分钟为单位
   为"h"时，工时以小时为单位

CompletionTime1       完工时间
语法
CompletionTime1(arrTime1, WorkingTime,arrTime2,mode)
arrTime1 为开始时间
WorkingTime  为工时
其他同上


完工时间应用见
·   如何快速判断A表中日期字段是否在B表日期上下限之内
26L

工作时间应用见
如何自动得出本月应出勤天数
6L

kane027 · 发表于 2013-4-29 16:17

向老师们致意！

yjh_27 · 发表于 2013-5-10 01:20

本帖最后由 yjh_27 于 2013-5-13 23:40 编辑

增加
WorkingHours1(theStartTime, theEndTime, arrTime2, mode)

增加字符转日期

更新至V2.5

yjh_27 · 发表于 2013-6-11 19:43

完工时间：工时为负时，计算开工时间

工作时间：制度时间的无日期开始时间大于结束时间自动识别为第二天结束

yjh_27 · 发表于 2013-6-24 21:58

本帖最后由 yjh_27 于 2013-6-28 21:04 编辑

应用
计算使用天数，有交叉时间的不能重复计算
4L

zhaoyafei19 · 发表于 2013-6-27 23:17

高人啊
受教了

yjh_27 · 发表于 2013-7-27 20:24

修正开工日期（负工期时）计算误差

whatyang · 发表于 2013-11-19 14:05

时间段矢量运算_自定义函数V3.1（出错求改）.rar (48.06 KB, 下载次数: 15)

我设置了特定的时间段后,运行sub aa提示出错，麻烦了~

yjh_27 · 发表于 2013-11-19 15:39

whatyang 发表于 2013-11-19 14:05
我设置了特定的时间段后,运行sub aa提示出错，麻烦了~

ReDim brr(LBound(arr1, 1) To UBound(arr1, 1) * UBound(arr2, 1)*2, 1 To 2)

		自动登录	找回密码
密码			免费注册

[原创] 时间段组的矢量运算,自定义函数