var heures : double; ... dif := (dat1-dat2)/24;
DiffHours := (DateTimeNow - DateTimeThen) * 24;
function HoursBetween(const DateTimeThen, DateTimeNow: TDateTime): Integer; begin Result := Trunc((DateTimeNow - DateTimeThen) * 24); end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionconst HOURS_PER_DAY = 24; function HoursBetween(const DateTimeThen, DateTimeNow: TDateTime): Integer; begin Result := Trunc((DateTimeNow - DateTimeThen) * HOURS_PER_DAY); end; procedure TForm1.Button1Click(Sender: TObject); const sDateQuestion = '07/03/13 15:15:18'; var DateQuestion: TDateTime; DateMaintenant: TDateTime; DifferenceDateEnHeures: Integer; begin DateQuestion := StrToDateTime(sDateQuestion); DateMaintenant := Now; DifferenceDateEnHeures := HoursBetween(DateQuestion, DateMaintenant); Memo1.Text := Format('La question a été posée il y a maintenant %d heures', [DifferenceDateEnHeures]); if DifferenceDateEnHeures > HOURS_PER_DAY * 15 then Memo1.Lines.Append('La réponse à la question ne présentait visiblement pas un caractère d''urgence !'); end;
La question a été posée il y a maintenant 3074 heures
La réponse à la question ne présentait visiblement pas un caractère d'urgence !
const HOURS_PER_DAY = 24; function HoursBetween(const DateTimeThen, DateTimeNow: TDateTime): Integer; begin Result := Trunc((DateTimeNow - DateTimeThen) * HOURS_PER_DAY); end; procedure TForm1.Button1Click(Sender: TObject); const sDateQuestion = '03/07/13 15:15:18'; var DateQuestion: TDateTime; DateMaintenant: TDateTime; DifferenceDateEnHeures: Integer; begin DateQuestion := StrToDateTime(sDateQuestion); DateMaintenant := Now; DifferenceDateEnHeures := HoursBetween(DateQuestion, DateMaintenant); Memo1.Text := Format('La question a été posée il y a maintenant %d heures.', [DifferenceDateEnHeures]); if DifferenceDateEnHeures > HOURS_PER_DAY * 10 then Memo1.Lines.Append('La réponse à cette question ne présentait donc pas un caractère d''urgence !'); end;
La question a été posée il y a maintenant 246 heures.
La réponse à cette question ne présentait donc pas un caractère d'urgence !