Menghitung jarak 2 buah koordinat longitude latitude dengan delphi

beberapa waktu lalu saya sempat ngoprek perhitungan jarak dua titik koordinat (longitude latitude dengan delphi)untuk sekedar menghitung jarak antara 2 titik pada goole map. untuk menghitung jarak 2 buah koordinat longitude latitude berbeda dengan cara menghitung jarak 2 dua koordinat titik pada permukaan datar (garis lurus)

untuk menghitung jarak dua koordinat pada permukaan datar anda dapat menggunakan function :

function distance2d(x1,y1,x2,y2:double):double;
var a,b,c:double;
begin
 a:=abs(x1-x2);
 b:=abs(y1-y2);
 c:=sqr(a)+sqr(b);
 if c>0 then result:=sqrt(c) else result:=0;
end;


sedangkan menghitung jarak 2 buah koordinat longitude latitude dengan delphi silakan download source code nya dengan KLIK DISINI