Calcul entre deux points GPS
Utilisateur anonyme
-
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
- Gps sans internet - Guide
- Points gps - Guide
- Comment envoyer un point gps par sms - Accueil - Téléphones
- Mettre des points sur une carte - Guide
1 réponse
yg_be
Messages postés
23437
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 587
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