كيفية حساب عدد الساعات بين تاريخين محددين

[cargem]

كود :

var
  fromdate, toDate : TDateTime;

begin
  // Set up our date variables
  fromDate := EncodeDateTime(2000, 02, 26, 10, 0, 0, 0);
  toDate   := EncodeDateTime(2000, 02, 29,  9, 0, 0, 0);

  // Display these dates and the days between them
  ShowMessage('From date = '+DateTimeToStr(fromDate));
  ShowMessage('To   date = '+DateTimeToStr(toDate));
  ShowMessage('Whole days difference = '+
              IntToStr(DaysBetween(toDate, fromDate))+' days');
end;

Show full unit code
From date = 26/02/2000 10:00:00
To date = 29/02/2000 09:00:00
Whole days difference = 2 days

or
use:
DateUtils, IdGlobalProtocols

كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  day, hour: Integer;
  fromdate, toDate: TDateTime;
begin
  fromdate := Date1.Date;
  toDate := Date2.Date;
  day := DaysBetween(toDate, fromdate);
  fromdate := Date1.Time;
  toDate := Date2.Time;
  hour :=  DaysBetween(toDate, fromdate) ;
  hour :=hour + day*24   ;
   heure1.Text  := IntToStr(hour)  ;
  // day := CompareDateTime(Date2.DateTime, Date1.DateTime ) ;
  // hour := CompareDateTime(Date2.Time, Date1.Time ) ;   ;
  // hour :=hour + day*24   ;

  end;