Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Function RoundXtra(ByVal Number As Currency) As Currency
Dim x As Currency
x = Number * 10
x = (x - Int(x)) * 100
If x > 50 Then
RoundXtra = Int((Number + 0.05) * 10) / 10
ElseIf x > 0 And x < 50 Then
RoundXtra = Int(Number * 10) / 10
Else
RoundXtra = Number
End If
End Function