关于编写小时奖金计算函数的技术咨询

你的思路很清晰——根据工时和30小时基准的比例返回奖金值，但原代码里的TimeValue()函数有个限制，它只能处理00:00:00到23:59:59的时间范围，超过24小时的部分会被自动截断，这就导致输入45:00时得不到预期的1.5结果。

修正后的函数代码 #

Function CalculateBonus(workedhours As Variant) As Double
    ' 将输入的工时字符串拆分为小时和分钟部分
    Dim timeComponents() As String
    timeComponents = Split(workedhours, ":")
    
    ' 计算总工时（小时数，支持分钟换算）
    Dim totalWorkedHours As Double
    totalWorkedHours = CDbl(timeComponents(0)) + CDbl(timeComponents(1)) / 60
    
    ' 按30小时基准计算奖金比例
    CalculateBonus = totalWorkedHours / 30
End Function

为什么这样改？ #

• 原函数中，TimeValue("45:00:00")会被解析为#21:00:00#（因为45小时减去24小时的整数倍后剩21小时），而TimeValue("30:00:00")会被解析为#06:00:00#，两者相除得到的是21/6=3.5，完全不符合你的需求。
• 修正后的代码通过拆分时间字符串，直接计算总小时数，不管输入的工时是30小时、45小时甚至更长时间，都能准确计算比例。

测试验证 #

• 传入"30:00"时，总小时数是30，返回30/30=1，符合预期。
• 传入"45:00"时，总小时数是45，返回45/30=1.5，完美匹配你的需求。
• 即使传入带分钟的工时比如"30:30"，也会计算为30.5小时，返回30.5/30≈1.0167，灵活性更高。

内容的提问来源于stack exchange，提问作者Nikhil kumar Deshmukh