Compléments pour Microsoft Access

http://access.fr.free.fr/

Arc tangent de X et Y (Math)

Description 

Cette fonction permet de calculer l'arc tangent de x et y.

 
Synthaxe 

Expression_Numérique = aTan2 (x, y)

La synthaxe de la fonction aTan2 comprend l'élément suivant :

ElémentsDescription
xExpression numérique correspondant à l'abscisse.

y

Expression numérique correspondant à l'ordonnée.
 
Exemple 

Aucun exemple disponible pour le moment.

 
Code de la fonction 


Function ATan2(X As Double, y As Double) As Double
    'Retourne l'ArcTangente basé sur les coordonnées de X et Y
    ' Si X et Y sont tous deux à zéro une erreur se produit.
    ' La valeur de l'axe des X est supposée être +0, allant
    ' dans le sens positif dans la direction
    ' opposée aux aiguilles d'une montre, et dans le sens
    ' négatif dans le sens des aiguilles d'une montre.
    If X = 0 Then
        If y = 0 Then
            ATan2 = 1 / 0
        ElseIf y > 0 Then
            ATan2 = PI() / 2
        Else
            ATan2 = -PI() / 2
        End If
    ElseIf X > 0 Then
        If y = 0 Then
            ATan2 = 0
        Else
            ATan2 = Atn(y / X)
        End If
    Else
         If y = 0 Then
            ATan2 = PI()
        Else
            ATan2 = (PI() - Atn(Abs(y) / Abs(X))) * Sgn(y)
        End If
    End If
End Function