Rounding Up Question

[amerfeld]

Haven't been able to find an answer to this one. I have a currency field that I need to round and display the result in another field. What I am having trouble with is: I need to round up anytime there is anything other than a zero in the thousandth place. For example: .331 would round to .34. How can this be done?

Any help appreciated as always!

 

[WayneRyan]

amerfeld,

Either return the number if the third decimal place is "0", or add
.01 to the truncated xxx.xx number.

Indented for readability:

IIf (Mid(Format(Test, "00000.000"), 9, 1) = "0", 
     Test, 
     CDbl(Mid(Format(Test, "00000.00"), 1, 9) + 0.01))

Wayne

 

[filo65]

try as well this solution:

Function roundNumber(numb As Double, Optional decim As Integer = 2)
  exp_dec = 10 ^ decim
  numb = numb * exp_dec
  roundNumber = (Int(numb) + Abs(numb > Int(numb))) / exp_dec
End Function

HTH

filo65

 

[amerfeld]

Thanks!

Thanks so much. Was able to get Filo65's code to work.