math - 按工作小时数计算工资

大家好，我正在尝试找出如何计算员工离职时的工资。这是我当前正在使用的代码:

 Dim theStartTime As Date
 Dim theEndTime As Date
 Dim totalTime As String

 theStartTime = "16:11:06"
 theEndTime = "18:22:01"
 totalTime = Format(CDbl((theEndTime - theStartTime) * 24), "#0.0")

因此可用的时间将是:2h 11m

现在，使用上面的计算代码，我得到2.2。我需要添加什么才能计算出2:11而不是2:20的正确时间？

大卫

最佳答案

请注意，2.2小时不是2:20，而是2:12。

更改

Format(CDbl((theEndTime - theStartTime) * 24), "#0.0")

至

Format(theEndTime - theStartTime, "h:mm")

您将获得正确的值，只需在打印时将其四舍五入即可。 theEndTime - theStartTime是等于两个时间之差的时间跨度。如您所见，将其乘以24将得到不同的小时数。但是，然后必须再次除以24才能使用日期/时间格式。

查看前往format dates and time in VB6的所有方法。