Rounding the decimal number only

Gasman said:

Write your own function and use that instead of Round()[/QUOT
i want to use function

Click to expand...

June7 said:

I am confused. What is wrong with Round() function? By what 'condition'?

Click to expand...

Minty said:

It's not rounding per ser, it's conditional rounding by the look of it .
e.g. keep the .05 if it's exactly a .05 - I think you need a function.

I might have ten minutes tor knock one up ....

Click to expand...

Minty said:

This will do it.

Code:

Public Function fnRoundedWithHalfs(varNumber As Currency) As Currency
 [COLOR="SeaGreen"]   ' Returns either rounded up or down value unless its .05 in which case keep it.
    ' Will guarantee there is a more elegant way of doing this but I have a glass of red in my hand.
    ' ©  Minty @ AWF ;)
 [/COLOR]   
    Dim sNumber As String
    Dim iAddItBack As Currency
    Dim iWorking As Long
     
    sNumber = Int(varNumber * 100)
    'Debug.Print sNumber
    If Right(sNumber, 1) = "5" Then
        iAddItBack = 0.05
    End If
  
   [COLOR="SeaGreen"] ' Now round the original[/COLOR]
    iWorking = (varNumber * 10)
    'Debug.Print iWorking
        
    fnRoundedWithHalfs = (iWorking / 10) + iAddItBack
  

End Function

You can apply the same steps in Excel

Click to expand...