Fórum somas tempo entre horas e obter resultado em dinheiro #485637

var
Horachegada,horasaida : TDateTime;
resuldif:string;
Result:integer;
valor_sv, valor_final:real;
begin
  if key=#13 then
    //Retorna a diferença entre duas horas}
      begin
        horachegada := StrTotime(dbedit2.text);
        horasaida := StrToTime(dbedit3.Text);
      If (dbedit2.text < dbedit3.Text) then
        begin
          Resuldif := TimeToStr((StrTotime('23:59:59')-horachegada)+horasaida);
          resuldif := TimeToStr(horachegada-horasaida);
        //Resultado da diferença entre datas
         dbedit7.text:=(resuldif);
        //Conversão de horas para minutos
        Result := (StrToInt(Copy(resuldif,1,2))*60) + StrToInt(Copy(resuldif,4,2));
        //Calculo de Horas * valor da hora / por 60
        valor_sv:=(result)*(strtofloat(dbedit5.text)/60);
        //Arredonda o resultado para 3 casas decimais
        valor_final := round(valor_sv * 1000) / 1000;
        //Resultado
        label14.caption:=floattostr(valor_final);
        end;
     end;
  end;