Calculo Dificil, Não Consigo ..

Delphi

19/07/2010

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
Clayton Silva

Clayton Silva

Curtidas 0

Respostas

Marco Salles

Marco Salles

19/07/2010

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;



    
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;
GOSTEI 0
Emerson Nascimento

Emerson Nascimento

19/07/2010

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.

GOSTEI 0
POSTAR