如何向下舍入到最接近的 X 数字 - VBScript 的伪代码

Question

我正在尝试将数字向下舍入到最接近的 15、20、30。即

726 到最接近的 30 是 700

714 到最接近的 15 是 700 等等

VBScript 代码会非常有帮助，但伪代码也会有很大的帮助！

编辑：抱歉，我忘了说，726实际上是一个用int表示的时间，即07:26。所以这应该是 07:00，而不是 690

再次编辑：我只是提取分钟并使用人们回答的代码。希望这对其他人也有帮助。谢谢！

谢谢

Answer 1

伪代码：

diff = num mod nearest
return num - diff

所以 726 mod 30 = 6

726 - 6 = 720

vbscript：

Function GetNearest(num, nearest)
    Dim diff = num mod nearest
    GetNearest = num - diff
End Function

Answer 2

您在标签中列出了多种语言。我将使用 C#，但是更通用的算法：

int n = 726;
int q = 30;
int r = Math.Floor(n / q) * q;

Answer 3

另一种方法是使用整数除法：726 / 30 * 30 = 720