Help function to calculate clock bearing in VBE!

[Biscuit]

Help I need to write a function that calculates a clock bearing (1-12) from bearing angles (0-360) degrees. Where 12 o'clock is straight ahead and bearing on the border (eg 45 degrees) can return either adjacent value.
Function is bearing(ByVal bearing As Double) As Integer

Conceptually I know what to do but starting to write the function I'm clueless :-(

[Jakobshavn]

Start with:

Please Login or Register  to view this content.

and then determine any desired rounding