VBA function
In a cell enter
=Bearing(225.5)
Function Bearing(indeg As Double) As String
Dim Degrees As Double
Dim Minutes As Double
Select Case indeg
Case 0
Bearing = "Due N"
Case Is < 90
Degrees = indeg
Minutes = (Degrees - Int(Degrees)) * 60
Bearing = "N " & Int(Degrees) & Chr(176) & " " & Minutes & "'" & " E"
Case 90
Bearing = "Due E"
Case Is < 180
Degrees = 180 - indeg
Minutes = (Degrees - Int(Degrees)) * 60
Bearing = "S " & Int(Degrees) & Chr(176) & " " & Minutes & "'" & " E"
Case 180
Bearing = "Due S"
Case Is < 270
Degrees = indeg - 180
Minutes = (Degrees - Int(Degrees)) * 60
Bearing = "S " & Int(Degrees) & Chr(176) & " " & Minutes & "'" & " W"
Case 270
Bearing = "Due W"
Case Else
Degrees = 360 - indeg
Minutes = (Degrees - Int(Degrees)) * 600
Bearing = "N " & Int(Degrees) & Chr(176) & " " & Minutes & "'" & " W"
End Select
End Function
Bookmarks