time * R$
oi galera ,estou no fim de um sistema que calcula quantas horas o funcionario trabalhou por dia e tenho resultado quantas horas mensa´,
preciso calcular total horas * real(R$) = Result
12:00 * 2,00 = 24,00
meu db paradox
fico muito agradecido quem puder me ajudar, Obrigado
sei que tem mais usuarios esperando esta resposta.
preciso calcular total horas * real(R$) = Result
12:00 * 2,00 = 24,00
meu db paradox
fico muito agradecido quem puder me ajudar, Obrigado
sei que tem mais usuarios esperando esta resposta.
Paulo Oliveira
Curtidas 0
Respostas
Lfernandos
01/08/2003
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;
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;
GOSTEI 0
Paulo Oliveira
01/08/2003
Obrigado pela Resposta Fernandos, funcionou :wink:
se Precisar de algo envie um EMail p/ mim talves posso ajudar;
ozawak@hotmail.com
se Precisar de algo envie um EMail p/ mim talves posso ajudar;
ozawak@hotmail.com
GOSTEI 0