问题描述
我有一个公式,可以计算多个TIMES的差并将其乘以24,以得出总计的十进制值:
D10=(C9-D9)*24
我想像这样做特殊的四舍五入:
如果D9 is 1pm
和C9 is 2:08 pm
,我希望D10是1.25
别的话
1:53 until 2:07 would be counted as 2
2:08 until 2:22 would be 2:15
2:23 through 2:37 would be 2:30
etc
有人知道如何进行这种特殊的舍入吗?
如道格所说:
i need the accrued time from 1 PM to 2:08 PM should round up to 1.25 hours whereas 1 PM to 2 PM would round down to 1 hour,in other words to the nearest quarter hour.
解决方法
这是将根据需要划分差异的公式:
=(TRUNC((D9+VALUE(\"00:07\"))*96)-TRUNC((C9+VALUE(\"00:07\"))*96))*VALUE(\"00:15\")*24
, 如果您希望以小时为单位的时差,但四舍五入到最接近的四分之一小时,那么您所需要做的就是:
=MROUND((C9-D9)*24,0.25)
, Excel函数版本:
根据注释中的请求,这是一个仅限excel函数的版本:
向上滚动至下一个15分钟的边界:
=时间(小时(A1),15 *天花板(分钟(A1)/ 15,1),0)
N.B.根据原始问题用(t2-t1)替换A1
绕近15分钟边界:
=时间(HOUR(A1),15 * ROUND(MINUTE(A1)/ 15,0),0)
顺便说一句:出于性能方面的考虑,也可能出于地理位置原因,应避免将其转换为字符串以进行日期处理。这些事情可能对您来说很重要。
VBA版本
您可以使用div和mod函数来实现。不确定是否要在vba或excel宏中使用它,但这是方法。现在我现在还没有卓越的技能,所以这里...
(如果需要大量重复使用,请在vba中执行)
转换为分数
d =地板(n / 0.25)
余数= n mod 0.25
x = 0.25 *舍入(余数/ 0.25)
答案=(d * 0.25)+ x
那应该很近。
...只是想到了将Excel键\“ tick \\”绑定到十进制函数(又是什么)。这可能是一个更好的方法。
在vba中将其编码...仅基本测试:
Public Function f(n As Double) As Double
Dim d As Double,r As Double,x As Double
d = Int(n / 0.25)
r = n - (d * 0.25) \' strange... couldn\'t use mod function with decimal?
x = 0.25 * Round(r / 0.25)
f = (d * 0.25) + x
End Function
用法:
(在单元格中)
= f(c9-d9)
, 这是另一种形式选择
=(ROUND(+D9*96,0)-ROUND(+C9*96,0))/4
将每个时间序列转换为1/4小时(* 96),四舍五入,添加结果并缩放为小时(* 4)