Calcul entre deux points GPS
Celie_4085
Messages postés
3
Statut
Membre
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
Je souhaite calculer la distance entre deux points GPS (latitude et longitude) sous access. Quelle formule serait la plus adaptée? Merci pour votre aide et vos réponses.
voilà ce que j'ai pu démarrer..
Public Function Arc(Valeur As Double) As Double
Arc = Atn(-Valeur / Sqr(-Valeur * Valeur + 1)) + 2 * Atn(1)
End Function
Function calcul(LATA, LONGA, LATB, LONGB) As Integer
calcul = Arc(Sin(LATA) * Sin(LATB) + (Cos(LATA) * Cos(LATB) * Cos(LONGA - (LONGB + 1E-23)))) * 6371
End Function
Je souhaite calculer la distance entre deux points GPS (latitude et longitude) sous access. Quelle formule serait la plus adaptée? Merci pour votre aide et vos réponses.
voilà ce que j'ai pu démarrer..
Public Function Arc(Valeur As Double) As Double
Arc = Atn(-Valeur / Sqr(-Valeur * Valeur + 1)) + 2 * Atn(1)
End Function
Function calcul(LATA, LONGA, LATB, LONGB) As Integer
calcul = Arc(Sin(LATA) * Sin(LATB) + (Cos(LATA) * Cos(LATB) * Cos(LONGA - (LONGB + 1E-23)))) * 6371
End Function
A voir également:
- Calcul entre deux points GPS
- Nombre de jours entre deux dates excel - Guide
- Points gps - Guide
- Gps sans internet - Guide
- Mettre des points sur une carte - Guide
- Deux ecran pc - Guide
1 réponse
yg_be
Messages postés
24281
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 586
bonjour,
ton calcul ne donne pas le résultat souhaité?
n'hésite pas à donner des exemples concrets.
ton calcul ne donne pas le résultat souhaité?
n'hésite pas à donner des exemples concrets.
Long A = Long point A; Long B = Long point B
Lat A = lat point A = Lat point A; Lat B = Lat point B
(+/-)111,319 km x Racine^2((Lat A - Lat B)^2) + (Long A - Long B)^2)
Avec Long B < Long A et Lat B < Lat B