Discussion :

[skywaukers]

Bonjour,

comment traduiriez-vou ceci en Delphi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

sachant que MaxpwdAge est déclaré en LargeInteger.

Merci
Dany

[e-ric]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[skywaukers]

bonjour,

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

@++
Dany