Converter Time (tempo) em float (Resolvido)

[William - TI]

Boa tarde

Mais uma vez estou presisando da ajuda de vocês.

agora preciso converter time em float ex.

tenho o totais de horas trabalhadas.

09:00:00

09:00:00

09:00:00

09:00:00

08:00:00

________

44:00:00 porem quando somo normal com o tipo timer ele me da um total de 20:00:00 ao invés de 44:00:00 alguém tem ideia de como faz a soma de horas podendo ultrapasar a 24h ou converter time em float?

mais uma vez grato pela atenção.

Editado Junho 9, 2009 por William - TI

[Daniel Sanches]

você teria que fazer uma rotina parecida com esta:

function TForm1.SomaHora(HORA1, HORA2: tdatetime): string;
var
HOR, MIN, SEG: integer;
HOR2, MIN2, SEG2: integer;
begin
        HOR:= hourof(HORA1);
        MIN:= minuteof(HORA1);
        SEG:= secondof(HORA1);
        HOR2:= hourof(HORA2);
        MIN2:= minuteof(HORA2);
        SEG2:= secondof(HORA2);

        HOR:= HOR + HOR2;
        MIN:= MIN + MIN2;
        SEG:= SEG + SEG2;
        SEG:= SEG + (MIN * 60) + (HOR * 3600);

        HOR:= trunc(SEG/3600);
        MIN:= trunc((SEG - (HOR * 3600)) / 60);
        SEG:= SEG - (HOR * 3600) - (MIN * 60);

        Result:= inttostr(HOR)+':'+formatfloat('00',MIN)+':'+formatfloat('00',SEG);
end;

abraços !!

[William - TI]

Daniel muito obrigado, testei a função e deu certinho como precisava.

valeu. problema resolvido.