Fórum Como fazer este calculo!!!!! #231061

procedure TForm1.Button1Click(Sender: TObject);
var
hora: TTime;
format: string;
resultado,moeda: Double;
begin
hora:= StrToTime(MaskEdit1.Text); // Aqui converte a sua hora para o formato horário
Format:= FormatDateTime(´hh,nn´,hora);//Aqui formata para valor decimal a sua hora
resultado:= StrToFloat(format) * 2.50; // Aqui faz o cálculo
ShowMessage(FloatToStr(resultado)); // Resultado
end;

unit Unit2;

interface

uses Controls, SysUtils;

Type
TCalcularPreco = Class(TObject)
  private
    FTempo: TTime;
      FValorTotal: Currency;
      FValorHora: Currency;
    public
property TempoDecorrido: TTime read FTempo write FTempo;
      property ValorTotal: Currency read FValorTotal;
      property ValorHora: Currency read FValorHora write FValorHora;
      procedure Execute;
  end;
implementation

{ TCalcularPreco }

procedure TCalcularPreco.Execute;
var TempoTotalMinutos: Integer;
Horas, Minutos, Segundos, mSegundos: Word;
begin
DecodeTime(FTempo, Horas, Minutos, Segundos, mSegundos);
  TempoTotalMinutos:= (Horas * 60) + Minutos + Integer(Segundos>30);
  FValorTotal := TempoTotalMinutos * (FValorHora / 60 );
end;

end.

procedure TForm1.Button1Click(Sender: TObject);
begin
with TCalcularPreco.Create do
  begin
    TempoDecorrido:= StrToTime(MaskEdit1.Text); // 05:00:00
  ValorHora:= rxCalcEdit1.Value; // 2.00
  Execute;
  ShowMessage(CurrToStr(ValorTotal));
  Free;
  end;
end;