هل هناك طريقة لعمل دالة RoundUp في أكسس

[rey360]

السلام عليكم أعضاء المنتدي الافاضل أريد طريقة لعمل RoundUp في التقرير وشكرا

[rey360]

بحثت ووجد طريقتين

عن طريق expression

• في حالة القيم موجبة

=Int(Expr)+IIf(Expr-Int(Expr)>0,1,0)

• في حاالة القيم سالبة

=(Int(Abs(Expr))+IIf(Abs(Expr)-Int(Abs(Expr))>0,1,0))*IIf(Expr>=0,1,-1)

كما يمكن القيام بها عن طريق vba

Public Function RoundUp(X As Double, Optional I As Integer) As Double
If IsMissing(I) Then
RoundUp = -Int(-X)
Else
RoundUp = -Sgn(X) * Int(-Sgn(X) * X * 10 ^ I) / 10 ^ I
End If
End Function

 

تم تعديل أكتوبر 3, 2019 بواسطه rey360