solucionado
muchas gracias por los comentarios, lo solucione un poco antes que me despondieras Lepe pero justamente eso fue lo que hice pase todo a segundops y despues realice el paso inverso, aca les pondoi las funciones que use por si a alguien mas le sirva
//** para separar el string de la hora (hh:mm:ss) cada una por separado
procedure Split
(const Delimiter: Char;
Input: string;
const Strings: TStrings) ;
begin
Assert(Assigned(Strings)) ;
Strings.Clear;
Strings.Delimiter := Delimiter;
Strings.DelimitedText := Input;
end;
// Transformacion de Hora a segundos donde Hora es un String (hh,mm,ss)
function cantsegundos(horas:string):integer;
var
segundos : TStringList;
hora,min,seg : longint;
begin
segundos := TStringList.Create;
Split(':',horas, segundos);
hora := strtoint(segundos[0]) * 3600;
min := strtoint(segundos[1]) * 60;
seg := strtoint(segundos[2]);
cantsegundos := hora + min + seg;
end;
//Transformar de Segundos a Hora (hh:mm:ss)
function SegToHour(segundos:longint):String;
var
hora,min,seg : longint;
begin
hora := segundos div 3600;
min := (segundos mod 3600) div 60;
seg := (segundos mod 3600) mod 60;
SegToHour := inttostr(hora) + ':' + inttostr(min) + ':' + inttostr(seg);
end;
estas son las funciones que utilice gracias a todos por sus comentarios y sugerencias
hasta la proxima
Saludos
Patho
|