Fórum Ref. Calculo de horas #229524

{No caso de vc usar o Delphi6, use a unit DateUtils e ignore as função HourOf, MinuteOf e SecondOf abaixo listadas}
function HourOf(const AValue: TDateTime): Word;
var
  LMinute, LSecond, LMilliSecond: Word;
begin
  DecodeTime(AValue, Result, LMinute, LSecond, LMilliSecond);
end;

function MinuteOf(const AValue: TDateTime): Word;
var
  LHour, LSecond, LMilliSecond: Word;
begin
  DecodeTime(AValue, LHour, Result, LSecond, LMilliSecond);
end;

function SecondOf(const AValue: TDateTime): Word;
var
  LHour, LMinute, LMilliSecond: Word;
begin
  DecodeTime(AValue, LHour, LMinute, Result, LMilliSecond);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  HoraI, HoraF, HorasTrabalhadas: TTime;
begin
  HoraI := StrToTime(MaskEdit1.Text);
  HoraF := StrToTime(MaskEdit2.Text);
  HorasTrabalhadas := HoraF - HoraI;

  Panel1.Caption := Format(´Total de Horas Trabalhadas: ¬d:¬d:¬d´,
                           [HourOf(HorasTrabalhadas),
                            MinuteOf(HorasTrabalhadas),
                            SecondOf(HorasTrabalhadas)]);
end;