Pesquisar na Comunidade
Mostrando resultados para as tags ''arredondamento''.
Encontrado 4 registros
-
Pessoal, boa tarde! Estou fazendo uma página com um cálculo simples de porcentagem. Existe um formuário que coloco o valor da venda, a comissão é fixa em 13% e a tarifa é um valor que você coloca também. Exemplo: (valor da venda) R$ 100,00 - (comissão 13%) - (tarifa) R$ 8,50 = (resultado) R$ 78,50, só que está gerando o resultado de R$ 79,00. Como faço para corrgir esse problema? Segue o código: $(function(){ $('#valorVenda').on('input', function() { calculate(); }); $('#tarifa').on('input', function() { calculate(); }); function calculate(){ var pPos = parseFloat($('#valorVenda').val()); var tar = parseFloat($('#tarifa').val()); var result = " "; if(isNaN(pPos) || isNaN(tar)){ }else{ result = ((pPos - ((13.00 * pPos) / 100.00)) - tar).toFixed(2); } $('#total').val(result); } }); Desde já agradeço.
-
Hoje fui migrar para o Delphi XE10 e me deparei com um erro que não estou sabendo resolver! Essa função foi criada no Delphi 7 e roda normalmente. Quando fui migrar o projeto todo para Delphi XE10, essa função não foi aceita rs. Alguém poderia me ajudar? Gostaria de entender o erro também!! Obrigado function ABNTRound(xValor:Extended; Decimals:SmallInt):Extended; var VM : Extended; P, F, P2, F2 : Extended; begin VM := Power(10, Decimals); P := Int(xValor); F := StrToFloat(FloatToStr(Frac(xValor) * VM)); P2 := Val(Int(F)); F2 := Val(Frac(F)); if F2 > 0.5 then begin P2 := P2 + 1; end else begin if ((10 * Val(F2)) >= 4.9999) and ((10 * Val(F2)) <= 5.0001) then begin if Frac(P2 / 2) > 0 then P2 := P2 + 1; end; end; P2 := P2 / VM; Result := P + P2; end; [dcc32 Error] uLibrary.pas(5356): E2008 Incompatible types
-
Olá pessoal. Estou querendo criar um campo de preço em uma tabela e defini o tipo como Decimal(6,2), porém quando salvo a alteração o mysql muda o formato do número para (6,0). Quando insiro um valor, por exemplo 6.93, o mysql muda para 7. Como resolver isso? Desde já, obrigado!