Hora para decimais

[rodnei]

olá pessoal

to um uma duvida que n estou conseguindo resolver nem por decreto 

estou fazendo cálculos em horas e tenho que somar total de horas e dividir pelo total valor ex: 230:27 / 2516,20

mas para funcionar perteitamente tenho que converter essas 203:27 pra tipo float

no excel so uso (230:27)*24 vai dar 320,45

mas no delphi n estou conseguindo pois essa hora n é uma hora valida para ele, alguem tem alguma sujestao ???

 

 

grato

 

[RicardoVoigt]

Bom dia,

Até onde me lembro, o Delphi (tipo TDateTime) só trabalha com "hora do relógio", entre 00:00 e 23:59...

Uma vez fiz uma coisa parecida, onde convertia e somava sempre em minutos...

Acho que era assim, segue um exemplo: 

45:40 + 04:17 (quarenta e cinco horas e quarenta minutos MAIS quatro horas e dezessete minutos)

45 * 60 = 2700 mais 40 minutos: 2700 + 40 = 2740

4 * 60 = 240 mais 17 minutos: 257

2740 + 257 = 2997 (total de minutos)

2997 div 60 = 49 (divisão inteira = 49 horas)

2997 mod 60 = 57 (resto da divisão por 60 = 57 minutos)

resultado final = 49:57 (quarenta e nove horas e cinquenta e sete minutos)

Att

Ricardo

[adilsonpazzini]

Segue funções que utilizo pra conversão de hora normal pra centesimal

 

function HoraToCent(Hora :TTime):Real ;
var
 HrVR   : Real ;
 HrCent : Real ;
begin
 HrVR   := StrToFloat(Copy(TimeToSTR(HORA),1,2)+','+Copy(TimeToSTR(HORA),4,2));
 HrCent := int(hrvr)+((HrVr-Int(HrVr))/60*100);
 result := hrcent ;
end;

function CentToHora(HrCente:Real):String ;
var
 HrNormal : String ;
begin
 HrNormal := FormatFloat('00.00',(int(HrCente)+((HrCente-Int(HrCente))*60/100)));
 HrNormal := copy(HrNormal,1,2)+':'+copy(HrNormal,4,2);
 result := HrNormal ;
end;