Discussion :

[der§en]

Bonjour,

Le compilateur me disant que utilisation du premier format de FileAge est obsolète, je teste le deuxième format sauf que je n'ai pas les mêmes valeurs en sortie.



Est-ce normal ou bien, c'est un bug ?

Voici le bout de code qui est utilisé dans mon exemple :

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
19
20
21
22
23
24
25
26
27
28
 
procedure TForm1.Button1Click(Sender: TObject);
var
  V1, V2: TDateTime;
  I1, I2: LongInt;
  Fichier: string;
begin
  Fichier := Application.ExeName;
 
  I1 := FileAge(Fichier);
 
  V1 := FileDateToDateTime(I1);
 
  FileAge(Fichier, V2);
 
  I2 := DateTimeToFileDate(V2);
 
  Edit1.Text := FloatToStr(V1);
  Edit2.Text := FloatToStr(V2);
 
  Edit3.Text := DateTimeToStr(V1);
  Edit4.Text := DateTimeToStr(V2);
 
  Edit5.Text := I1.ToString;
  Edit6.Text := I2.ToString;
 
  Edit7.Text := FloatToStr(I1 - I2);
end;

[tourlourou]

Curieux !
Si cette référence est juste, la différence de 1 correspond à 100 nanosecondes, pas à 2 secondes !

[der§en]

Normalement, les valeurs de retours devraient être identique, non, donc, je subodore un bug !

[SergioMaster]

Le bogue serait plutôt dans la fonction DateTimeToFileDate que dans FileAge

si tu fais

Code :

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

1
2
3
 I1:=FileAge(fichier);
  V1 := TFile.GetLastWriteTime(Fichier);
  I1Prime:=DateTimeToFileDate(V1);

alors I1Prime=I2

Dans la fonction DateTimeToFileDate les millisecondes ne sont pas prises en compte !?

[Paul TOTH]

le premier utilise FileTimeToDosDateTime et le second FileTimeToSystemTime, la précision de FileTimeToDosDateTime est limitée aux secondes.

[der§en]

Merci de vos retours, je vais avec tout cela, chercher un moyen, d’avoir la même valeur en sortie