CmbButtonClick

Function doRound(value As Double, RStep As Double, Mode As String) As
Double

' ***********************

' Mode function

' UP RoundUp

' DN RoundDN

' NE Nearest

'

' ***********************


If Mode = "DN" Then
doRound = (Int(value / RStep) * RStep)
Exit Function
End If

' **** mode up


If Mode = "UP" Then
If value Mod RStep > 0 Then
doRound = ((Int(value / RStep) * RStep) + RStep)
Else
doRound = value
End If
Exit Function
End If

If Mode = "NE" Then
value = value + (RStep / 2)
doRound = (Int(value / RStep) * RStep)
Exit Function
End If
End Function