VARIAVEIS E INSTRUCOES DE ATRIBUICOES

MANCKENNA 15/08/2009 07:57:44
#319918
Meus Amigos:

Porque no código abaixo o valor de Taxes está dando zero , (Taxe=0) , não deveria ser 131,04 = 0.42 x 312 pois o sistema está dando como resultado para GrossPay = 312

Abraços

Private Sub Label2_Click()

End Sub

Private Sub cmdCalcPay_Click()

[ô]Calcula três Variáveis da Folha de Pagamento

Dim intHoursWorked As Integer
Dim sngRate As Single, sngTaxRate As Single
Dim curTaxes As Currency, curGrossPay As Currency
Dim curNetPay As Currency

[ô]Inicializa as variáveis
[ô](Normalmente,os dados são provenientes
[ô] do usuário ou de um arquivo

intHoursWorked = 40 [ô]Total de Horas Trabalhadas
sngRate = 7.8 [ô] Pagamento por Hora
sngTaxeRate = 0.42 [ô]Porcentagem de Impostos

[ô]Calcula os Valores

curGrossPay = intHoursWorked * sngRate
curNetPay = curGrossPay - curTaxes

[ô]Exibe os Resultados nas Legendas Apropriadas
lblGrossPay.Caption = curGrossPay
lblTaxes.Caption = curTaxes
lblNetPay.Caption = curNetPay


End Sub

Private Sub Text3_Change()

End Sub
ROBIU 15/08/2009 08:33:46
#319919 Resposta escolhida
Esta faltando esta linha:

curTaxes = curGrossPay * sngtaxerate


Seria assim:

Private Sub cmdCalcPay_Click()

[ô]Calcula três Variáveis da Folha de Pagamento

Dim intHoursWorked As Integer
Dim sngRate As Single, sngTaxRate As Single
Dim curTaxes As Currency, curGrossPay As Currency
Dim curNetPay As Currency

[ô]Inicializa as variáveis
[ô](Normalmente,os dados são provenientes
[ô] do usuário ou de um arquivo

intHoursWorked = 40 [ô]Total de Horas Trabalhadas
sngRate = 7.8 [ô] Pagamento por Hora
sngtaxerate = 0.42 [ô]Porcentagem de Impostos

[ô]Calcula os Valores

curGrossPay = intHoursWorked * sngRate
curTaxes = curGrossPay * sngtaxerate [ô]Linha acrescentada
curNetPay = curGrossPay - curTaxes

[ô]Exibe os Resultados nas Legendas Apropriadas
LblGrossPay.Caption = curGrossPay
LblTaxes.Caption = curTaxes
LblNetPay.Caption = curNetPay


End Sub
MANCKENNA 15/08/2009 09:16:18
#319922
Perfeitamente meu amigo , fico feliz de pelo menos eu ter conseguido ver o erro ( o livro deixou de colocar a linha acrescentada) isso significa que estou conseguindo interpretar a lógica apesar de ainda não saber como inserir os valores apropriados, com a sua ajuda foi possível ...resolver a parada....[Ô]grato ums vez mais[Ô]........
Tópico encerrado , respostas não são mais permitidas
Voltar