Distance avec SAS

Option Explicit

Public Const PI As Double = 3.14159265358979

Function deg2rad(degre As Double) As Double
    'Conversion de Radians en Degrés
    deg2rad = Application.WorksheetFunction.radians(degre)
End Function

Function ACos(radians As Double) As Double
    ACos = Application.WorksheetFunction.ACos(radians)
End Function

Function ASin(radians As Double) As Double
    ASin = Application.WorksheetFunction.ASin(radians)
End Function

'distance en 2 points GPS exprimés en ° décimaux
Function distance(latitude1 As Double, longitude1 As Double, latitude2 As Double, longitude2 As Double) As Double
    distance = ACos(Sin(deg2rad(latitude1)) * Sin(deg2rad(latitude2)) + Cos(deg2rad(latitude1)) * Cos(deg2rad(latitude2)) * Cos(deg2rad(longitude1 - longitude2))) * 6371
End Function