[firebase-br] Ajuda em cálculo de Horas!!!

[Microtecs Informática Ltda]

Boa noite colegas,

 

            Eu li um artigo muito legal sobre cálculo de horas e datas.
Mas tenho uma dúvida, se alguém puder me ajudar ficaria muito
agradecido.

 

Tenho 

 

procedure TfrmSimulaHospedagem.btTarifarClick(Sender: TObject);

var

minhadatainicial,minhadatafinal:TDateTime;

begin

minhadatainicial:=strtodatetime(datetostr(dti.date)+'  '+hi.Text);

minhadatafinal:=strtodatetime(datetostr(dtf.date)+'  '+hf.Text);

ShowMessage('Permanência = '+FloatToStrF(HourSpan(minhadatainicial,
minhadatafinal),fffixed,8,2)+' horas.');

end;

 

suponhamos que minhadatainicial seja 27/05/2008 23:46:00 e
minhadatafinal 27/05/2008 23:59:00, o código retorna o valor de 0,22 h.
Minha pergunta é: Como formatar essa data mostrando as horas e os
minutos no formato padrão de data (05:25:45 ou quando for mais de 24
horas = 1dia 05:25:45)?

 

Aguardo...

 

**FAVOR CONFIRMAR O RECEBIMENTO DESTE E-MAIL CLICANDO NA OPÇÃO
“RESPONDER”**

 

Rômulo Rodriguês Simões

MICROTECS SISTEMAS LTDA

Tel.: (27) 3361-0501
Cel.: (27) 9925-9046
EMAIL:  <mailto:microtecs em terra.com.br> microtecs em terra.com.br
MSN  :  <mailto:romulosimoes em hotmail.com> romulosimoes em hotmail.com