[RESOLVED] Rounding Problem

[hariom26]

hi cadman
i have tried what u have told me but it was not working it will not give me values in zero

[CADman]

What is your data type? Integers and longs should strip decimals out.
You may need to copy them into an integer or long first instead of single or double precision then do the divide, multiply as I suggested above.
So for a number such as 7459.2 as an integer would be 7459. Divide by ten would be 745. Mult by ten gives 7450.
Also the Fix function could be used to strip decimals like:
Fix(7459.2/10)*10 would give 7450.

[CADman]

Oops, you wanted 7560 not 7450.
7459.2
Try: round(7459.2/10)*10

[MartinLiss]

Private Sub Form_Load()

Dim lngValue As Long

lngValue = 5823 '7459.2

lngValue = Round(lngValue, 0)
If Right$(lngValue, 1) < 5 Then
    MsgBox SymDown(lngValue, 0.1)
Else
    MsgBox SymUp(lngValue, 0.1)
End If

End Sub
Function SymDown(ByVal X As Double, _
         Optional ByVal Factor As Double = 1) As Double
  SymDown = Fix(X * Factor) / Factor
End Function

Function SymUp(ByVal X As Double, _
         Optional ByVal Factor As Double = 1) As Double
Dim Temp As Double
  Temp = Fix(X * Factor)
  SymUp = (Temp + IIf(X = Temp, 0, Sgn(X))) / Factor
End Function