[pax]

Вот еще один вариант:

Function ConvertAng2#(ang#)
	ang# = ang# Mod 360
	If ang# < 0 Then ang# = ang# + 360
	Return ang#
End Function