Bonjour tout le monde !
J'aimerais réaliser une code ou je calcule l'inverse du Cosinus.
J'ai réalisé une macro mais elle beug au niveau du "ACos".
Pouvez me dire, s'il vous plaît coment réaliser cette fonction?
Voici le code en question :
Dim TetaZ, AzimutSol As Integer
TetaZ = Acos(Sin(Déclinaison) * Sin(Latitude) + Cos(Latitude) * Cos(Déclinaison) * Cos((Oméga_1 + Oméga_2) / 2))
AzimutSol = Asin(((Cos(Déclinaison) * Sin((Oméga_1 + Oméga_2) / 2))) / 2) / Sin(TetaZ)
End Sub
Le problème est au niveau de la partie mise en gras.
Merci!
J'aimerais réaliser une code ou je calcule l'inverse du Cosinus.
J'ai réalisé une macro mais elle beug au niveau du "ACos".
Pouvez me dire, s'il vous plaît coment réaliser cette fonction?
Voici le code en question :
Dim TetaZ, AzimutSol As Integer
TetaZ = Acos(Sin(Déclinaison) * Sin(Latitude) + Cos(Latitude) * Cos(Déclinaison) * Cos((Oméga_1 + Oméga_2) / 2))
AzimutSol = Asin(((Cos(Déclinaison) * Sin((Oméga_1 + Oméga_2) / 2))) / 2) / Sin(TetaZ)
End Sub
Le problème est au niveau de la partie mise en gras.
Merci!