Haversine (Geolocation)

<source lang='delphi'>function haversine(iLat,iLong:Double):Double;</source>

Cette fonction retourne la distance entre la position et une coordonnée latitude,longitude

Result	La valeur de la fonction haversine (km)
iLat	La latitude de la position
iLon	La longitude de la position

Exemple <source lang='delphi'> Type

 WFAddress = Class(TdbObject)
 public
   Address1: string;
   Address2: string;
   City: string;
   Country: string;
   Geoloc: TGeolocation;
   State: string;
 end;

procedure showDistance; var sel:TSelector; inst:WFAddress; dd:double; begin

 sel := WFAddress.CreateSelector(,,true,[]);
 foreach inst in  sel.AsCursor do
  begin
    dd := inst.Geoloc.haversine(38.897147,-77.043934);
    showMessage(Format('%s %0.4f',[inst.Address1,dd]));
  end;

end; </source>

Voir aussi

• La fonction haversine de la rtl
• La fonction haversine dans une expression

{{#if:Geolocation (type)|

{{#if:Geolocation (type)|— Geolocation (type) |}} — Développement DSM —

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM —

}}