MrRhodes2004
12-27-2007, 10:08 AM
The following creates rounding error = don't want rounding - want truncation.
Function Azmth2Brng(lBearing As Single) As String
lBearing = lBearing - (Int(lBearing / 360) * 360)
Debug.Print lBearing
End Function
Sub testy()
Azmth2Brng (44465.32)
End Sub
I get 185.3203 WHY? Should it not be 185.32?
Where does .0003 come from and how do I eliminate it?
Function Azmth2Brng(lBearing As Single) As String
lBearing = lBearing - (Int(lBearing / 360) * 360)
Debug.Print lBearing
End Function
Sub testy()
Azmth2Brng (44465.32)
End Sub
I get 185.3203 WHY? Should it not be 185.32?
Where does .0003 come from and how do I eliminate it?