Für die Rückrechnung gibt es keine einzelne Formel, da der Dezimalwert in 3-4 Einzelergebnisse aufgeteilt werden muss:
Delphi-Quellcode:
function DecToGeo(GeoAsDec : Double): String;
var
Grad : Integer;
Value, Min, Sek : Double;
begin
Value := Abs(GeoAsDec * 60); // In positive Minuten
Sek := Frac(Value) * 60; // Nachkomma sind jetzt Sekunden, quasi * 3600
Min := Trunc(Value) mod 60; // Minuten ist Rest aus Ganzzahlanteil DIV 60, also MOD
Grad := Trunc(Value) div 60; // Grad ist Ganzzahlanteil DIV 60
Result := Format('%d° %.0f %.4f', [Grad, Min, Sek]);
end;