[求助]希望能够通过一个VBA函数计算出两个时间相差的工作小时数

geegoo

希望能够通过一个VBA函数计算出两个时间相差的工作小时数. (早上8:30到下午17:30是工作时间, 中午有一个小时的休息, 也就是说每天的工作小时是8小时)
我原来是用Excel本身的函数, 通过很多的转换 (把非工作时间转换成8:30 或者 17:30), 需要利用很多辅助列, 而且效率低. 希望有人能帮我一下, 谢谢.

cx3Noq4G.rar (2.44 KB, 下载次数: 25)

2006-11-3 13:51 上传

点击文件名下载附件
[求助]希望能够通过一个VBA函数计算出两个时间相差的工作小时数

Long_III

请详细说明你的计算结果，及规律

geegoo

好! 谢谢.

实现的内容应该是:

1. 先把日期和时间分离

2. 把两个日期相减, 得到工作天数(周六,日要扣掉)(我原来是用Networkdays()计算的), 然后乘以8(一天8各工作小时)

3. 把非工作时间的时间转成工作时间(比如19:45要先转换成17:30; 7:10要先转换成8:30), 然后把两个工作时间相减, 得到两个时间的工作小时差(可能会是负的)

4. 把上面两个相加就得到最后的结果了.(我是用Excel函数搞的, 快疯掉!)

谢谢.

[此贴子已经被作者于2006-11-3 16:04:31编辑过]

northwolves

函数也可以啊，不必用辅助列，参考http://club.excelhome.net/viewthread.php?tid=153291&replyID=&skin=0

geegoo

谢谢, 我原来一直以为我函数还可以...看了这个....哎......回家研究一下...非常感谢!!!

K5=SUMPRODUCT(1*(ABS(ABS(MOD(I5+ROW(INDIRECT("1:"& TEXT((J5-I5)*1440,"0")))/1440,1)-0.5)-2.5/24)<=1/12))/60

------------------

解释一下:

TEXT((J5-I5)*1440,"0") 两个时间相差分钟数

ROW(INDIRECT("1:"& TEXT((J5-I5)*1440,"0"))) 按分钟取所有时间

I5+ROW(INDIRECT("1:"& TEXT((J5-I5)*1440,"0")))/1440 按天取所有时间

MOD(I5+ROW(INDIRECT("1:"& TEXT((J5-I5)*1440,"0")))/1440,1)排除日期干扰,取时间

ABS(MOD(I5+ROW(INDIRECT("1:"& TEXT((J5-I5)*1440,"0")))/1440,1)-0.5)某分钟跟12点相差时间绝对值

ABS(ABS(MOD(I5+ROW(INDIRECT("1:"& TEXT((J5-I5)*1440,"0")))/1440,1)-0.5)-2.5/24)<=1/12你的上班时间

SUMPRODUCT(1*(ABS(ABS(MOD(I5+ROW(INDIRECT("1:"& TEXT((J5-I5)*1440,"0")))/1440,1)-0.5)-2.5/24)<=1/12))累计真正工作分钟

SUMPRODUCT(1*(ABS(ABS(MOD(I5+ROW(INDIRECT("1:"& TEXT((J5-I5)*1440,"0")))/1440,1)-0.5)-2.5/24)<=1/12))/60 转换成小时

Samsea

vba函数计算两个时间相差的工作小时数（减一小时）

Function CalTime(TimeStart As Date, TimeEnd As Date)
   CalTime = TimeEnd - TimeStart
   CalTime = Int(CalTime * 24 * 100 + 0.5) / 100 - 1  '-1 为一个小时的休息。
End Function

Samsea

也可以在单元格(如C3)写：

=INT((B2-A2)*2400+0.5)/100-1

geegoo

您这个是小时数...不是工作小时数吧? 没有看到你扣除周六/周日啊...

梦幻圣手

学习了