procedure TForm1.Button1Click(Sender: TObject);
var
MyStartDate, MyEndDate: TDateTime;
begin
MyStartDate := StrToDateTime('04/04/2006 13:47:22');
MyEndDate := StrToDateTime('07/06/2009 18:12:43');
ShowMessage(FloatToStr(HoursBetween(MyStartDate, MyEndDate)));
end;
//..et avec les heures non entières :
//on peut utiliser la fonction HourSpan
procedure TForm1.Button1Click(Sender: TObject);
var
MyStartDate, MyEndDate: TDateTime;
begin
MyStartDate := StrToDateTime('04/04/2006 13:47:22');
MyEndDate := StrToDateTime('07/06/2009 18:12:43');
ShowMessage(FloatToStr(HourSpan(MyStartDate, MyEndDate)));
end;
4 juin 2014 à 20:03
C'est pas des heures qui comptent double ?
Ok, je sors...