Foros Club Delphi - Ver Mensaje Individual

German · #2 18-02-2011

Suponiendo que tenemos los 4 valores en variables tDateTime (Entrada1, Salida1, Entrada2 y Salida2):

Código Delphi [-]uses DateUtils, [...]

[...]

procedure TForm1.Button1Click(Sender: TObject);
var Horas, Minutos: Integer;
begin
  Minutos := MinutesBetween(Salida1, Entrada1) + MinutesBetween(Salida2, Entrada2);
  Horas := Minutos div 60;
  Dec(Minutos, Horas * 60);
  Label1.Caption := IntToStr(Horas) + ' hora(s)';
  if (Minutos > 0) then Label1.Caption := Label1.Caption + ' y ' + IntToStr(Minutos) + ' minuto(s)';
end;

Debes adaptarlo a tu proyecto para crear un bucle que sume todas las entradas de una persona determinada, pero ese es el método. Si lo necesitas, consulta en la ayuda "DateUtils" para obtener más funciones referentes al control de fechas / horas.

Salu2.