VB里的"绝对值减小的方向舍入"???????

[啄木鸟]

vb里有等同于Excel里FLOOR函数的函数吗？或实现代码也行？

[griefforyou]

fix?

[SYSSZ]

'自己判断

Private Sub Form_Load()
Debug.Print Fix(-3.4)
Debug.Print Fix(3.4)
Debug.Print Fix(-3.8)
Debug.Print Fix(3.8)
Debug.Print Int(Abs(-3.4))
Debug.Print Int(3.4)
Debug.Print Int(Abs(-3.8))
Debug.Print Int(3.8)
End Sub

[舉杯邀明月]

好象没有等同函数。
参考一下这个代码：

Function vbFloor(ByVal Num#, ByVal Sig#)
    If ((Num Xor Sig) < 1) Then
        MsgBox "参数不合法！", 16, "vbFloor参数错误"
    Else
        vbFloor = Int(Num / Sig) * Sig
    End If
End Function