Calcolare la distanza tra due punti geografici, dei quali si conoscono latitudine e longitudine

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