Если я все правильно понял, то вот так намного проще будет:
Function InterpolateAngle#(angle1#,angle2#,delta#)
dAngle#=angle2#-angle1#
;Если разность углов больше 180, значит в другую сторону крутить ближе будет:)
If Abs(dAngle#)>180 Then
Return angle1#-(360*Sign(dAngle#)-dAngle#)*delta#
Else
Return angle1#+dAngle#*delta#
EndIf
EndFunction