如何舍入时间（7）数据类型到最近的15分钟

Question

我正在尝试将时间（7）数据四舍五入到最近的15分钟，我使用下面的代码（在报告代码部分中），但不幸的是，这给了我一个报告错误。任何人都可以帮助我。

Public Function RoundTime(ByVal dtTime as DateTime) as DateTime

IF (IsNothing(dtTime)) Then
 Return Nothing
END IF 

Dim returnVal as DateTime
Dim nMinutes as Integer
nMinutes = 15 - Minute(dtTime) MOD 15
IF (nMinutes > 7) THEN
 returnVal = DATEADD("n", nMinutes-15, dtTime)
ELSE 
 returnVal = DATEADD("n", nMinutes, dtTime)
END IF
Return returnVal

End Function