Or after testing my function with your "test-code" (using it in VBA-EXCEL) I think I stick to my approach.

GetAngle2 290 vs. Bearing 280
And I didn't change my single declaritions!