Atan2 en VB6

Fermé

Sinistrus Messages postés 1010 Date d'inscription mercredi 12 décembre 2007 Statut Membre Dernière intervention 6 juin 2023 - 31 août 2009 à 10:50
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 31 août 2009 à 11:06

Salut !

Je suis arrivé à une formule que je ne comprends pas.

* A = Différence de longitudes entre un Point1 et le lieu Point2 ;
* B = Latitude du Point2 ;
* C = Latitude du Point1.

Avec un langage de programmation ayant une fonction atan2
Code Visual Basic :

Q = atan2(cos(B).tan(C) - sin(B).cos(A), sin(A))

On obtient le bon résultat directement

Je n'arrives pas a convertir cette formule en VB6.
Il est important pour moi de savoir le faire sinon je n'ai qu'a jeter mon programme. J'ai vraiment besoin de votre aide.
Pourriez-vous m'aider svp ?

Merci

A voir également:

Vba atan2
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Vba range avec variable ✓ - Forum VB / VBA
Vba autofill ✓ - Forum Excel

1 réponse

Réponse 1 / 1

Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 294
31 août 2009 à 11:06

bonjour,

en vba

Atan2(a,b) équivaut à Atan(b/a), avec a différent de 0 !!! évidement

Atan2 est l'inverse de l'arc tangente donc c'est l'arc cotangente.
1/tan(x)=cotan(x)

pour vb .. je ne sais pas si la fonction existe mais elle est facile à réaliser ou à s'en passer.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

appliquer une pause dans une macro vba excel