Sumar Minutos para total asistencia

[webmasterplc]

Hola quisiera hacer un sistema de acceso de nomina y me gustaria calcular el tiempo total que la persona estuvo en las instalaciones por ejemplo
Dia 01- Entrada: 03:45 Salida a las 4:30 Tuvo 45 minutos
Dia 02 -Entrada: 03:45 Salida a las 5:30 tuvo 1:45 minutos

Luego un total 45 min + 1:45 = 2:30

[German]

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.