Fórum Multiplicação Total Hora por Valor #378542

o tipo TDateTime é do tipo pontoflutunate no delphi . A parte decimal
representa o time .. com um dia tem vinte e quatro Horas é so multiplicar
por 24 ( para obter o Inverso )

Assim

Citação: //definicao dos parametros
const
ValorHora = 2; //Aqui vc coloca qnt vale a Hora neste exemplo vale dois

var
HoraInicial,HoraFinal,DiferencaHora:TTime;
valorPago:Currency;
begin
//Entrada dos Dados
HoraIncial:=StrtoTime('hh:mm:ss') ; //exemplo 'hh:mm:ss' = 10:00:00
HoraFinal:=StrtoTime('hh:mm:ss') ; //exemplo 'hh:mm:ss' = 11:00:00
//operacao dos Dados
DiferencaHora:=HoraFinal-HoraInicial;
//calculando...
ValorPago:=ValorHora*24*DiferencaHora;
//apresentação dos resultados
Showmessage(Currtostr(ValorPago));

observação) é claro que para o Delphi ainda me parece não existir horas
maiores do que 23:59:59
Para tratar intervalos de Horas maiores do que 23:59:59 ai tem que
fazer codificaçoes extras
O Codigo acima foi tirado deste topico em que respondi http://www.activedelphi.com.br/forum/viewtopic.php?t=56114&highlight=&sid=fb6ed641e7a67124ecb375dc106bad62

Marco Antonio Sales, muito obrigado, dessa forma que você me passou deu certo.