math - 按工作时间计算工资

Question

大家好，我想弄清楚如何计算员工下类时的工资。这是我目前使用的代码:

 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 的正确时间？

大卫

Answer 1

请注意，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 的所有方式.