Salut tt le monde ;-) voilà une petite idée à vous proposer
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
end;
Je pense que c'est claire, bonne chance et bonne prog.
haftari.fouad