custom round function

  • Thread starter Thread starter Princess Geek
  • Start date Start date
P

Princess Geek

I'm writing a function to change the last integer in a numeric value t
either a 5 or a 9-(replicating a Peachtree function).

The Select case functions is clearly an option, but how do I get th
function to focus on the last integer ? The * doesn't work-

example:
Change 1442 to 1445
1327.55 to 1329


thanks
 
I'm writing a function to change the last integer in a numeric value to
either a 5 or a 9-(replicating a Peachtree function).

The Select case functions is clearly an option, but how do I get the
function to focus on the last integer ? The * doesn't work-

example:
Change 1442 to 1445
1327.55 to 1329
Click to expand...

LastDigit = WorksheetFunction.Round(rg, 0) Mod 10

will give you the last digit of a rounded number.

Something like:

======================
Function Round59(rg As Range) As Long
Dim LastDigit As Integer

LastDigit = WorksheetFunction.Round(rg, 0) Mod 10
Round59 = WorksheetFunction.RoundUp(rg / 5, 0) * 5

Round59 = Round59 + (LastDigit > 5)

End Function
========================

might do what you are looking for.


--ron
 
Back
Top