How to round an HMS number? [SOLVED]

[salvomic]

I don't know it this could help you, but I do as above in my program Effemeridi (Ephemeris) with angles:

Code:


trunc_angle(ang)
// trunc decimal from a DEG form angle
BEGIN
  →HMS((IP(HMS→(ang)*3600)/3600));
END;


simp_angle(ang)
BEGIN
  LOCAL angle;
  angle:=360*FP(ang/360);
  IF angle<0 THEN
  angle:=angle+360
  END;
  RETURN angle;
END;

HNY!

Salvo