Fórum Calculo Dificil, Não Consigo .. #381714
19/07/2010
0
Estou tentando calcular Confis importação e PIS importação
Conforme as fórmulas abaixo:
Porem consigo fazer este calculo no Delphi:
onde:
a:=26;
b:=5;
c:=3;
d_1:=2;
e:=18;
VA:=1500;
D_2:=30;
Desde já agradeço a quem puder me ajudar
Conforme as fórmulas abaixo:
Porem consigo fazer este calculo no Delphi:
onde:
a:=26;
b:=5;
c:=3;
d_1:=2;
e:=18;
VA:=1500;
D_2:=30;
Desde já agradeço a quem puder me ajudar
Clayton Silva
Curtir tópico
+ 0
Responder
Posts
19/07/2010
Marco Salles
Estou tentando calcular Confis importação e PIS importação
Conforme as fórmulas abaixo:
Porem consigo fazer este calculo no Delphi:
onde:
a:=26;
b:=5;
c:=3;
d_1:=2;
e:=18;
VA:=1500;
D_2:=30;
Conforme as fórmulas abaixo:
Porem consigo fazer este calculo no Delphi:
onde:
a:=26;
b:=5;
c:=3;
d_1:=2;
e:=18;
VA:=1500;
D_2:=30;
var x,y:Real; ConfinsImportacao,PisImportacao:Real; a,b,c,d,e,VA:Real; //Não sei qual o verdadeiro Tipo se é Rela ou se é Inteiro ????? d_1,D_2:Real; //NÃO USADO NA FORMULA begin a:=26; b:=5; c:=3; d_1:=2; e:=18; VA:=1500; D_2:=30; //D=d .. Não foi definido nenhum Valor ???? X:= (1+e*(a+b*(1+a)))/(1-c-d-e); //D=d .. Não foi definido nenhum Valor ???? Y:= e/(1-c-d-e); //D=d .. Não foi definido nenhum Valor ???? ConfinsImportacao:=d*(VA*X + D*Y); //D=d .. Não foi definido nenhum Valor ???? PisImportacao:=c*(VA*X + D*Y); Showmessage(FloatToStr(ConfinsImportacao)+sLineBreak+ FloatToStr(PisImportacao)); end;
Responder
Gostei + 0
19/07/2010
Emerson Nascimento
procedure TForm12.Button1Click(Sender: TObject);
var
a,b,c,dmin,e,va,dmai,x,y,pis,cofins: double;
begin
// ** notem que a fórmula faz referência à d (minúsculo) e D (maiúsculo) **
a := 26;
b := 5;
c := 3;
dmin := 2;
e := 18;
va := 1500;
Dmai := 30;
x := (1 + e * (a+b * (1+a))) / (1 - c - dmin - e);
y := e / (1 - c - dmin - e);
cofins := dmin * (va*x + Dmai*y);
pis := c * (va*x + Dmai*y);
showmessage(FloatToStr(cofins)+Chr(13)+
FloatToStr(pis));
end
mas eu acredito que esta fórmula esteja desatualizada. uma nova fórmula está sendo informada aqui. também estão disponibilizando uma planilha excel.
creio que aqui também estejam detalhando a mesma fórmula que eu 'linkei' acima.
var
a,b,c,dmin,e,va,dmai,x,y,pis,cofins: double;
begin
// ** notem que a fórmula faz referência à d (minúsculo) e D (maiúsculo) **
a := 26;
b := 5;
c := 3;
dmin := 2;
e := 18;
va := 1500;
Dmai := 30;
x := (1 + e * (a+b * (1+a))) / (1 - c - dmin - e);
y := e / (1 - c - dmin - e);
cofins := dmin * (va*x + Dmai*y);
pis := c * (va*x + Dmai*y);
showmessage(FloatToStr(cofins)+Chr(13)+
FloatToStr(pis));
end
mas eu acredito que esta fórmula esteja desatualizada. uma nova fórmula está sendo informada aqui. também estão disponibilizando uma planilha excel.
creio que aqui também estejam detalhando a mesma fórmula que eu 'linkei' acima.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)
Inserção de url
Descrição
Url
Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.
Aceitar