| AdjustAngleDegree Function | 
Unit
QESBPCSMath
Declaration
Function AdjustAngleDegree(const X: Extended): Extended;
| Parameters | 
| X | Value in Degrees. | 
Category
Arithmetic Routines for FloatsImplementation
 
| function AdjustAngleDegree (const X: Extended): Extended;
begin
     Result := X;
     if Result > 360 then
          Result := Result - Int (Result / 360) * 360;
     if Result < 0 then
          Result := Result + Int (abs (Result) / 360 + 1) * 360;
End; | 
|  |