Fórum time * R$ #172634

Veja se ajuda:

function TimeXMoney(var Hora: TDateTime; const ValorHora: Real): Real;
var
Hor, Min, Sec, MSec: Word;
begin
Result := 0.00;
DecodeTime(Hora, Hor, Min, Sec, MSec);
Result := (((Hor * 60) + Min)/60)*ValorHora;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Hora: TDateTime;
begin
Hora := StrToTime(´12:30:000´);
ShowMessage(FormatFloat(´#,.00´,TimeXMoney(Hora,2.00)));
end;

Obrigado pela Resposta Fernandos, funcionou :wink:


se Precisar de algo envie um EMail p/ mim talves posso ajudar;

ozawak@hotmail.com