salut a tous,

Dans un projet, j'ai des TEdits dans lequel des resultats de calcul sont obtenuset pour la saisie de données
Dans la meme From, j'ai un TTimer, deux TDateTimePicker (un pour afficher la date courante et l'autre pour afficher l'heure courante.

Dans un TEdit je saisi une date sous la forme JJ/MM/AAAA je voudrais savoir si c'est possible calculer la difference de jours entre les 2 dates puis le resultats le transformer en heure.

Je me suis rapprocher du tuto qui avais etais mis dans un post Difference entre 2 date mais j'ai une erreur de type
Argument incorrect pour l'encodage de date.

je essayer d'utiliser DateToStr mais toujours le meme refrain

Quelles sont ses arguments incorrect
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
var
  Date1, Date2 : TDateTime; 
  Diff : Extended; 
  Jour1, Mois1, Annee1 : Word; 
  Jour2, Mois2, Annee2 : Word; 
begin 
  Date1 := EncodeDate(Annee1, Mois1, Jour1); 
  Date2 := EncodeDate(Annee2, Mois2, Jour2); 
  Diff := DaysBetween(Date2, Date1); 
  Edit1:=DateToStr(Diff); 
end;
Je pense qu'apres avoir la valeur de Diff il faudra que je la multiplie par 24 pour l'exprimer en heure mais là aussi j'ai un message d'incompatibilité entre TDate et String .

J'ai rechercher dans l'aide F1, mais je n'ai pas trouver la solution

merci pour votre coup de main