Перевод величин углов

[Lexus315]

Помогите пожалуйста организовать перевод величины угла из формата:
"градусы, минуты, секунды, доли секунд" в формат "Градусы, доли градусов" и наоборот

Пример:
из 34˚45' 38,15'' В 34,760597˚ и наоборот

[Stilet]

Вот делал недавно подобное:
Из долей (в радианах) в градусы:

//****************************************************
  Function NormalizeRadToGrad(Radians:Double):Double;   var inv:double;
  begin
        result:=radTodeg(Radians);
        inv:=roundTo((result-trunc(result))*60/100,-2);
        if abs((inv*100)-60)<0.0001 then inv:=1;
        result:=trunc(result)+inv;
  end;
//****************************************************