Discussion :

[johweb]

Bonjour à tous,

J'ai un programme qui scrute régulièrement un répertoire pour voir si un nouveau fichier y a été créé ou modifié. Si oui, le DateTime d'accès du fichier est stocké dans un fichier texte. Mon problème vient de la comparaison des DateTime.
J'utilise la fonction CompareDateTime.

Date fichier < Réference stockée : OK.
Date fichier > Réference stockée : OK.
Par contre, si Date fichier=Réference stockée, la fonction CompareDateTime me renvoie -1 au lieu de 0......

Je pense donc que j'ai un mauvais code sur la comparaison...

Dans mon code : dernier est un string, temps est un TDateTime.

Code :

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

if(CompareDateTime(StrToDateTime(dernier),temps)=0) then

n'est jamais vérifié... même s'il n'y a eu aucun accès...
Quelqu'un a une idée ?

[HumanTool]

salut,
c'est êut être un probleme de millisecondes :

CompareDateTime diffère d'une comparaison directe des valeurs double précision correspondantes en ce sens que deux valeurs TDateTime sont considérées équivalentes si elles présentent la même valeur jusqu'aux millisecondes.Il est possible de créer deux valeurs TDateTime qui diffèrent numériquement lorsqu'elles sont affichées en tant que valeurs double,mais qui représentent les mêmes valeurs d'année,de mois,de jour,d'heure,de minute,de seconde et de milliseconde.

moi j'utilise ça et ça fonctionne bien :

Code :

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

1
2
3
4
5
6
function DateEqual(D1, D2: TDateTime): Boolean;
const
	OneSecond = 1 / 86400;
begin
	Result := Abs(D1 - D2) < OneSecond;
end;

[johweb]

Cela doit être ça puisque dans ma dateheure référence stockée, je n'ai pas les millisecondes...
Merci.