计算VBA中的时差和舍入以进行访问

Question

问题： 我正在设计一个票务系统，我们需要跟踪在任务上花费的时间。我们有一个开始时间和结束时间，它是一个日期/时间字段。我需要计算从这两个字段中花费的时间，然后将其四舍五入到最接近的小时。 121分钟应算作3小时。

我的尝试： 目前我正在将开始和结束时间之间的时间转换为分钟，然后尝试将其舍入到最接近的小时。

我的Mins字段是=DateDiff("n",[starttime],[endtime])

我的总时间字段为Me.TotalTime.Value = mins mod 60 + 1 这是有效的，除非分钟正好是60,120,180等......

赞赏任何解决方案

Answer 1

你可以直接这样做：

 Hours = Hour(TimeSerial(Hour([EndTime] - [StartTime]), -Int(-Minute([EndTime] - [StartTime]) / 60) * 60, 0))