求Delphi中的一个数学计算问题

//角度类的申明
type
  TJiao = class
    Du: integer;
    fen: integer;
    miao: double;
  private
  public
    function SetJiao(vd: integer; vf: integer; vm: double): boolean; overload;
    function SetJiao(vs: string): boolean; overload;
  end;问如何写两角加和减的函数，我这里的函数原来秒是整形的，现要改为double型，如何修改程序？？？？
//  function
function JiaoJia(vj1,vj2: TJiao): TJiao;
var
  rj: TJiao;
begin
  rj:=TJiao.Create;
  rj.Du:=vj1.Du+vj2.Du;
  rj.fen:=vj1.fen+vj2.fen;
  rj.miao:=vj1.miao+vj2.miao;
  rj.fen:=rj.fen+(rj.miao div 60);
  rj.miao:=(rj.miao mod 60);
  rj.Du:=rj.Du+(rj.fen div 60);
  rj.fen:=(rj.fen mod 60);
  rj.Du:=(rj.Du mod 360);
  result:=rj;
end;//  function
function JiaoJian(vj1,vj2: TJiao): TJiao;
var
  rj,ry: TJiao;
begin
  rj:=TJiao.Create;
  ry:=TJiao.Create;
  ry.SetJiao(360,0,0);
  rj.Du:=vj1.Du-vj2.Du;
  rj.fen:=vj1.fen-vj2.fen;
  rj.miao:=vj1.miao-vj2.miao;
  while(rj.miao<0) do
  begin
    rj.fen:=rj.fen-1;
    rj.miao:=rj.miao+60;
  end;
  while(rj.fen<0) do
  begin
    rj.Du:=rj.Du-1;
    rj.fen:=rj.fen+60;
  end;  
  While(rj.Du<0) do
    rj:=JiaoJia(rj,ry);
  result:=rj;
  ry.Free;end;有一个double类型的角度，如 24.754621度，如何得到度（int），分（int），秒（double）求这样一个函数 btw， double类型取整的函数是什么？