equivalent VB en Delphi

Bonjour,

comment traduiriez-vou ceci en Delphi :

Code:

---

1 2	numDays = ((maxPwdAge.HighPart * 2 ^ 32) + _ maxPwdAge.LowPart) / -864000000000@

---

sachant que MaxpwdAge est déclaré en LargeInteger.

Merci
Dany

salut

je n'ai pas fait de test, c'est juste une indication, il faut essayer d'utiliser les entiers 64 bits de Delphi (selon version), cela pourrait ressembler à cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

const CentMillioniemeSecondeParJour : Int64 = 864000000000;   type LargeInteger = record // hypothèse sur la structure HighPart : integer; LowPart : integer; end;     var maxPwdAge: LargeInteger; numDay: Int64     begin numDays := (shr(Int64(maxPwdAge.HighPart), 32) + maxPwdAge.LowPart) div CentMillioniemeSecondeParJour;

---

mais c'est sans garantie.

e-ric

bonjour,

merci beaucoup, c'est ok pour la structure LargeInteger.

@++
Dany