Bonjour,
Je cherche en vain une formule de calcul qui devrait être simple....cependant!
Ce calcul à pour but de calculer un gisement topo ,connaissant;
les X
les Y
les delta X
les delta Y
le produit de delta X/delta Y
le Gisement brut.
Reste seulement à ajouter un des 4 cas de figure du cadran ++ = Gisement brut
+- =200-gisement brut
-- =gisement brut-200
-+ =400-gisement brut
Simple ?
Merci de m'aider
'Calcul des gisements GtAB
DX = X2 - X1
DY = Y2 - Y1
If DX > 0 And DY > 0 Then
Giz = Atan(DX / DY)
ElseIf (DX > 0 And DY < 0) Or (DX < 0 And DY < 0) Then
Giz = Atan(DX / DY) + 200
ElseIf DX < 0 And DY > 0 Then
Giz = Atan(DX / DY) + 400
End If
Gt4.Text = CStr(Round(Giz, 4))