ACCESS中有没有类似roundup的函数

lupo

在excel中可以使用：

ROUNDUP

远离零值，向上舍入数字。

语法

ROUNDUP(number,num_digits)

Number    为需要向上舍入的任意实数。

Num_digits    四舍五入后的数字的位数。

请问各位老大，在access中用什么函数达到此效果。谢谢。

SUQUANJIN

在ACCESS 中没有ROUNDUP，我也碰了一样的问题

不过我的是向下舍去，向上舍可以用：round([来源数字]+0.499999，保留位数）

加 0.499999是因为ACCESS 0.5就会向上舍入1

zxzx2733

自定义函数

zxzx2733

这个拿去改一改

Public Function MyRound(x As Double, Y As Integer)
Dim i As Integer, Dbla, Dblb, Dblc As Double, MyR As Long
Rem 示例:MyRound(5.25,1) 返回5.2
Rem >0.5进位、=0.5时逢单才进位
i = 1
If x < 0 Then i = -1

Dbla = Abs(x)
Dblc = Int(Dbla * 10 ^ Y)
Dblb = Dbla * 10 ^ Y - Dblc

If Dblb < 0.5 Then
MyR = Dblc
ElseIf Dblb = 0.5 Then     '0.5 可另改成你想要的进位标准
    If Right(Dblc, 1) Mod 2 = 1 Then
     MyR = Dblc + 1
    Else
     MyR = Dblc
    End If
ElseIf Dblb > 0.5 Then
MyR = Dblc + 1
End If

MyRound = MyR * i / 10 ^ Y

End Function

lupo

谢谢zxzx2733的自定义函数。其实前两天用IIF和int结合解决了这个问题，不过你的这个更好。

asun

学习了，有没有标准的例子。