使用VBA DateDiff实现向上取整的班次计算问题

你的问题出在DateDiff("h", startTime, endTime)的计算逻辑上：这个函数返回的是两个时间之间的整数小时差，会直接忽略分钟部分。比如从00:00到08:10，它只计算出8小时，所以触发了duration <=8的条件，返回1个班次，但你需要的是向上取整到9小时，对应2个班次。

修正后的代码 #

把时长计算和班次判断的部分替换成以下逻辑：

Sub CopyData3()
   Dim Entry_Specs As Worksheet
   Dim Master As Worksheet
   Dim nextRow As Long
   Dim i As Integer
   Dim startTime As Date
   Dim endTime As Date
   Dim concatenatedString As String
   Dim errorMessage As String
   Dim totalMinutes As Long
   Dim duration As Integer
   Dim dwellnumber As Integer
   
   ' 直接读取日期值，不需要Format转换（Format会把日期转成字符串，可能干扰后续计算）
   startTime = Entry_Specs.Range("B" & i).Value
   endTime = Entry_Specs.Range("C" & i).Value

   ' 计算总分钟数差
   totalMinutes = DateDiff("n", startTime, endTime)
   ' 向上取整到小时：用Ceiling函数，也可以用Int((totalMinutes + 59)/60)实现相同效果
   duration = WorksheetFunction.Ceiling(totalMinutes / 60, 1)

   ' 根据取整后的时长判断班次
   If duration > 0 And duration <= 8 Then
       dwellnumber = 1
   ElseIf duration > 8 And duration <= 16 Then
       dwellnumber = 2
   ElseIf duration > 16 And duration <= 24 Then
       dwellnumber = 3
   Else
       dwellnumber = 0
   End If
End Sub

关键修改点 #

• 移除不必要的Format转换：startTime和endTime是Date类型，直接读取单元格值即可，Format会把日期转为字符串，可能干扰后续日期计算。
• 换用总分钟数向上取整：用DateDiff("n", ...)获取总分钟数，再通过WorksheetFunction.Ceiling向上取整到最近的整数小时，确保8小时10分钟被计算为9小时。
• 修正语法错误：原代码中的Else If需写成ElseIf（VBA中为连写语法）。

内容的提问来源于stack exchange，提问作者Gregg Rosenstein