Manipulation avec FormatDateTime

... sinon,

type TDateTime = type Double;

Et la partie fractionnaire reflète la fraction d'une journée de 24 heures indépendamment du signe de la valeur TDateTime.
Par exemple, 6:00 am le 29/12/1899 est -1.25, et non -1 +0.25,ce qui reviendrait à-0.75.
Il n'existe pas de valeur TDateTime entre -1 et 0.

var DateEtHeure : TSystemTime;

begin

  GetSystemTime(DateEtHeure); // récupère la date et 'heure système (GMT ?)

  Edit1.Text:=IntToStr(DateEtHeure.wYear);

  Edit2.Text:=IntToStr(DateEtHeure.wMonth);

  Edit3.Text:=IntToStr(DateEtHeure.wDayOfWeek);

  Edit4.Text:=IntToStr(DateEtHeure.wDay);

  Edit5.Text:=IntToStr(DateEtHeure.wHour); // heure système

  Edit6.Text:=IntToStr(DateEtHeure.wMinute);

  Edit7.Text:=IntToStr(DateEtHeure.wSecond);

  Edit8.Text:=IntToStr(DateEtHeure.wMilliseconds);

  Edit9.Text:=IntToStr(DateEtHeure.wHour+EcartHeures); // heure réelle

haftari.fouad