Suma de horas II

[CFPA86]

Hola, nuevamente mira estudia y aplica este codigo, me funciona.

procedure TFctrltpo.DifTpoCtr(HorIni1, HorFin1 : String);
var
HoraInicial, HoraFinal : TDateTime;
HorIni, MinIni, HorFin, MinFin, Sec, MSec, MinAuxRes : Word;
Lsw, HorIniAux, HorFinAux : string;
Li : byte;
begin
LSumMin := 0;
HorIniAux := HorIni1;
HorFinAux := HorFin1;
if (HorIniAux <> '') and (HorFinAux <> '') then
begin
HoraInicial := StrToTime(HorIniAux);
DecodeTime(HoraInicial, HorIni, MinIni, Sec, MSec);
HoraFinal := StrToTime(HorFinAux);
DecodeTime(HoraFinal, HorFin, MinFin, Sec, MSec);
if (HoraFinal > HoraInicial ) then
// Hora de entrada (inicial) es menor que //
// la hora de salida (final), lo mas segu-//
// ro es que el usuario digito la hora de //
// salida bajo el horario de 12 horas //
begin
Lsw := 'Incorrecto';
MinAuxRes := 0;
if (HorIni = HorFin) then
begin
MinRes := MinFin - MinIni;
end
else
begin
MinRes := 60 - MinIni;
HorIni := HorIni + 1;
while (Lsw <> 'Correcto') do
begin
MinAuxRes := MinAuxRes + 1;
if (HorIni = HorFin) then
begin
MinRes := MinRes + MinFin;
Lsw := 'Correcto';
end;
if (MinAuxRes = 60) then
begin
MinRes := MinRes + MinAuxRes;
MinAuxRes := 0;
HorIni := HorIni + 1;
end;
end;
end;
LSumMin := LSumMin + MinRes;
MinAuxRes := 0;
HorIniAux := '';
HorFinAux := '';
Lsw := 'Incorrecto';
MinRes := 0;
LSumHor := 0;
while Lsw <> 'Correcto' do
begin
LSumHor := LSumHor + 1;
MinRes := MinRes + 60;
if (MinRes > LsumMin) then
begin
MinRes := MinRes - 60;
LSumHor := LSumHor - 1;
Lsw := 'Correcto';
end
else
begin
if (MinRes = LsumMin) then
Lsw := 'Correcto';
end;
end;
end
else
begin
Gcoderror := 1; // Es mayor la hora final que hora de entrada //
// Siempre y cuando sea horario de 12 horas //
end;
Label12.Caption := IntToStr(LSumHor) + ',' + IntToStr(LSumMin - MinRes) +
' Min. /' +
end;
end;
end;

Me dices como te fue, por este mismo hilo.
chauuuuuuuuuuu