Distance avec SAS
Résolu
MomoAbou
Messages postés
20
Statut
Membre
-
MomoAbou Messages postés 20 Statut Membre -
MomoAbou Messages postés 20 Statut Membre -
Bonjour,
je dispose de cette base: https://www.cjoint.com/c/HCwm77Ww0gE
et souhaiterai calculer sous SAS la distance entre les deux points sur la colonne F:
Quelqu'un pourrait m'aider svp?
Merci par avance.
Cdt
je dispose de cette base: https://www.cjoint.com/c/HCwm77Ww0gE
et souhaiterai calculer sous SAS la distance entre les deux points sur la colonne F:
Quelqu'un pourrait m'aider svp?
Merci par avance.
Cdt
2 réponses
-
Et c'est quoi, ce SAS ? Ce terme n'existe pas dans Excel ...
-
Bonjour,
avec une fonction personnalisée :
https://www.cjoint.com/c/HCwrfVeNbQW
eric
PS : Chatenay-malabry est en Suisse maintenant ? :-)
-
-
-
Bonjour,
Alt+F11 puis double-clic sur le Module 1 du projet du classeur (à gauche)
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
eric -
-
-
