Translation Modulo Python en VB6

Bonjour à tous,

J'essaie de transcrire ce qui suit (c'est du Python) en VB6 et je ne trouve pas du tout ce résultat.

Δtz = 40[(11 - 1) - (14 - 1)] + (14 - 1) % 260
Δtz = 40[(10) - (13)] + (13) % 260
Δtz = 40[-3] + (13) % 260
Δtz = -120 + (13) % 260
Δtz = -107 % 260
Δtz = 153

De même

Δtz = 40[(tr2 - tr1) - (v2 - v1)] + (v2 - v1) % 260
Δtz = 40[(6 - 8) - (18 - 0)] + (18 - 0) % 260
Δtz = 40[(-2) - (18)] + (18) % 260
Δtz = 40[-20] + 18 % 260
Δtz = -800 + 18 % 260
Δtz = -782 % 260
Δtz = 258

Quelqu'un aurait-il une idée ?
Merci par avance

Claude

Bonjour,

Code:

---

1 2 3 4 5 6

Dim divis As Double,diff as double   divis = 40 * ((11 - 1) - (14 - 1)) + (14 - 1) diff = Fix(Abs(divis) / 260 + 1) * 260 divis = diff - abs ( divis )

---

donne comme réponse: 153

de même
Δtz = 40[(tr2 - tr1) - (v2 - v1)] + (v2 - v1) % 260

Code:

---

1 2 3 4 5 6

Dim divis As Double,diff as double   divis = 40 * ((tr2 - tr1) - (v2 - v1)) + (v2 - v1) diff = Fix(Abs(divis) / 260 + 1) * 260 divis = diff - abs ( divis )

---

donne comme réponse 258 avec les valeurs de tr1=8,tr2=6,v1=0,v2=18

A+

Merci pour ta réponse Iclic.

C'est OK. Tu as trouvé la solution.

Mille excuses pour le retard dans la réponse.

Claude