Trying to round to a double

[dmorand]

I'm trying to do some rounding of decimal values I have. They are prices, which need to be rounded up to the next nickel.

Examples:

.23 = .25
.01 = .05
3.21 = 3.25
.07 = .10
6.28 = 6.30

I created a function, but I can't use this line of code so I'm not sure how I can do this now. I get an error that I'm trying to divide by 0.

If VARIABLE Mod .05 then
'Price not divisible by .05 ... round to next nickel
else
'Price is divisible by .05
endif

[ADezii]

I'm trying to do some rounding of decimal values I have. They are prices, which need to be rounded up to the next nickel.

Examples:

.23 = .25
.01 = .05
3.21 = 3.25
.07 = .10
6.28 = 6.30

I created a function, but I can't use this line of code so I'm not sure how I can do this now. I get an error that I'm trying to divide by 0.

If VARIABLE Mod .05 then
'Price not divisible by .05 ... round to next nickel
else
'Price is divisible by .05
endif

The following Function will accept a SINGLE Data Type and return a properly formatted STRING Round Up to the next Nickel, if not evenly divisible by .05. I did this prior to bedtime, so it comes with no guarantees:

Public Function fRoundUpToNickel(sngValue As Single) As String
  If Not IsNumeric(sngValue) Or IsNull(sngValue) Then Exit Function
 
  sngValue = sngValue * 100     'get rid of Decimal for now
  If sngValue Mod 5 = 0 Then
    fRoundUpToNickel = Format(sngValue / 100, "#,#,#,#.00")
  Else
    fRoundUpToNickel = Format(((5 - (sngValue Mod 5)) + sngValue) / 100, "#,#,#,#.00")
  End If
End Function
 

Sample OUTPUTs in Debug Window

? fRoundUpToNickel(16.00)
16.00
 
? fRoundUpToNickel(.23)
.25
 
? fRoundUpToNickel(.01)
.05
 
? fRoundUpToNickel(3.21)
3.25
 
? fRoundUpToNickel(.07)
.10
 
? fRoundUpToNickel(6.28)
6.30
 
? fRoundUpToNickel(1245876.99)
1,245,877.00