Geokoordinaten Umrechnen in Dezimalgrad

[Satty67]

Gefunden:

Delphi-Quellcode:

function GeoToDec(Grad : Integer; Min, Sec : Double; Direction : AnsiChar): Double;
begin
  Result := (Min / 60) + (Sec / 3600) + Grad;
  if Direction in ['S', 'W'] then
    Result := -Result;
end;

Also E48° 41' 50.908" wird so übergeben:

GeoToDec(48, 41, 50.908, 'N')