Calcul entre deux points GPS
Celie_4085
-
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
1 réponse
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour,
ton calcul ne donne pas le résultat souhaité?
n'hésite pas à donner des exemples concrets.
