Geronimo
|
JOINVILLE
SC - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 09/05/2009 18:55 hs
Pessoal o que esta errado neste codigo problemas com as variaveis ????
Não retorna erro nem o resultado....
O que preciso e comparar o valor da comissão com a escala do IRPJ para saber qual porcentagem utilizar. Depois somar esta porcentagem as demais.
Private Sub CommandButton4_Click()
Dim Taxa, Taxa1, Taxa2, Taxa3, Taxa4, Taxa5, Taxa6, Taxa7, Taxa8 As Double
Dim Valor, Valor1, Valor2, Total As Currency
ValorComissao.Text = Valor
ValorIrpj1.Text = Valor1
ValorIrpj2.Text = Valor2
Irpj1.Text = Taxa1
Irpj2.Text = Taxa2
Irpj3.Text = Taxa3
Faixa.Text = Total
Csll.Text = Taxa4
Iss.Text = Taxa5
Fundo.Text = Taxa6
Confins.Text = Taxa7
Pis.Text = Taxa8
SomaPorcentagem.Text = Taxa
If Valor <= Valor1 Then
Total = Taxa1
Faixa.Text = Total
Taxa = Taxa4 + Taxa5 + Taxa6 + Taxa7 + Taxa8 + Total
SomaPorcentagem.Text = Taxa
ElseIf Valor > Valor1 Or Valor <= Valor2 Then
Total = Taxa2
Faixa.Text = Total
Taxa = Taxa4 + Taxa5 + Taxa6 + Taxa7 + Taxa8 + Total
SomaPorcentagem.Text = Taxa
Else
Total = Taxa3
Faixa.Text = Total
Taxa = Taxa4 + Taxa5 + Taxa6 + Taxa7 + Taxa8 + Total
SomaPorcentagem.Text = Taxa
End If
End Sub
Desde ja agradeço
|
|
|
|
|
|
Tiranossauro
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 10/05/2009 08:54 hs
as variáveis que vc está comparando são iguais em conteúdo porque elas nascem nasta sub e não é atribuido valor alguma antes da comparação. Experimenta marcar um ponto de depuração nesta sub e acompanha step by step inspecionando o conteúdo das váriáveis. |
|
|
|
|
|
Postada em 12/05/2009 13:48 hs
Realmente dei s depuração e os valores estão vazios...
alguma sugestão de como consertar o problema
|
|
|
|
|
|
Postada em 12/05/2009 14:10 hs
geronimo, mas nao to vendo vc preencher essas variaveis em lugar algum sera que vao esta confundio, e queria fazer o contrario tipo Private Sub CommandButton4_Click()
Dim Taxa, Taxa1, Taxa2, Taxa3, Taxa4, Taxa5, Taxa6, Taxa7, Taxa8 As Double
Dim Valor, Valor1, Valor2, Total As Currency
Valor = ValorComissao.Text ?
|
|
|
|
Geronimo
|
JOINVILLE
SC - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 13/05/2009 15:26 hs
Pessoal resolvido SomaPorcentagem.Text = Format(CStr(CDbl(Iss.Text) + CDbl(Fundo.Text) + CDbl(Pis.Text) + CDbl(faixa.Text) + CDbl(Confins.Text) + CDbl(Csll.Text)), "0.00")
|
|
|
|
|
