Calcolare la distanza tra due punti geografici, dei quali si conoscono latitudine e longitudine
Da Gambas-it.org - Wikipedia.
Versione del 24 mag 2016 alle 16:15 di Vuott (Discussione | contributi) (Creata pagina con "Per calcolare la distanza tra due punti geografici, dei quali si conoscono latitudine e longitudine, potremo adottare questo semplice codice: '''Public''' Sub Main() Dim...")
Per calcolare la distanza tra due punti geografici, dei quali si conoscono latitudine e longitudine, potremo adottare questo semplice codice:
Public Sub Main() Dim d, Lat_1, Lat_2, Long_1, Long_2 As Float Lat_1 = Latitudine del 1° punto (esempio: 38.482391) Lat_2 = Latitudine del 2° punto (esempio: 22.5004198) Long_1 = Longitudine del 1° punto Long_2 = Longitudine del 2° punto d = ACos(Cos(Rad(90 - Lat_1)) * Cos(Rad(90 - Lat_2)) + Sin(Rad(90 - Lat_1)) * Sin(Rad(90 - Lat_2)) * Cos(Rad(Long_1 - Long_2))) * 6371 * 1000 Print d; " metri" End