| | 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
| | |