string nao calcula...ele junta :S


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: string nao calcula...ele junta :S

foda

FRANCA
SP - BRASIL

ENUNCIADA !

Postada em 18/09/2011 17:00 hs

ola pessoal, sou aluno a pocuo tempo em VB e preciso fazer um trabalho de folha de pagamento...ele ta quase pronto so fala uma linha que nao ta aceitando

a dim dele ta string pq foi mais facil pra mim fazer os calculos mas justo no ultimo da erro olhem ai

dblmedica = (dblsalbruto + dblsalfamilia) - (dbladiantamentos + dblinss + dblimprenda + dbltransporte + dblrefeicao)

o programa completo é esse, dai tnta executar ele pra ver o que acontece

=====================================================

Public Class FrmFolhaPagamento
    Dim dblndependentes, dbldiatrabalhado, dblsalbase, dblsalbruto, dblfaltas, dbladiantamentos, dblsalfamilia, dblimprenda, dbltransporte, dblrefeicao, dblmedica, dblliquidorecebe, dblinss As String

    Private Sub FrmFolhaPagamento_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        If e.KeyChar = Convert.ToChar(13) Then
            e.Handled = True
            SendKeys.Send("{TAB}")
        End If
    End Sub

    Private Sub btnCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalcular.Click

        ' variaveis no textbox.text
        dblndependentes = CDbl(TextBox2.Text)
        dbldiatrabalhado = CDbl(TextBox4.Text)
        dblsalbase = TextBox5.Text
        dblsalbruto = TextBox6.Text
        dblfaltas = CDbl(TextBox7.Text)
        dbladiantamentos = TextBox8.Text
        dblsalfamilia = TextBox10.Text
        dblimprenda = TextBox11.Text
        dbltransporte = TextBox12.Text
        dblrefeicao = TextBox13.Text
        dblmedica = TextBox14.Text
        dblliquidorecebe = TextBox15.Text
        dblinss = TextBox9.Text

        ' calcular salario base
        dblsalbase = dbldiatrabalhado * 30
        TextBox5.Text = Format(dblsalbase.ToString, "currency")

        'calcular salario bruto
        dblsalbruto = dblsalbase - (dbldiatrabalhado * dblfaltas)
        TextBox6.Text = Format(dblsalbruto.ToString, "currency")

        'INSS
        If dblsalbruto <= 249.8 Then
            dblinss = (dblsalbruto * 8) / 100
        ElseIf dblsalbruto > 249.8 And dblsalbruto <= 416.34 Then
            dblsalbruto = (dblsalbruto * 9) / 100
        ElseIf dblsalbruto > 416.34 And dblsalbruto <= 832.67 Then
            dblsalbruto = (dblsalbruto * 15) / 100
        Else
            dblsalbruto = (dblsalbruto * 15) / 100
        End If

        'calcular salario familia
        If dblsalbruto <= 249.8 Then
            dblsalfamilia = 6.66 * dblndependentes
            TextBox10.Text = Format(dblsalfamilia.ToString, "currency")
        Else
            dblsalfamilia = 0.83 * dblndependentes
            TextBox10.Text = Format(dblsalfamilia.ToString, "currency")
        End If

        'calcular imposto de renda
        If dblsalbruto <= "900.0" Then
            TextBox11.Text = "Isento"
        End If
        If dblsalbruto > 900.0 And dblsalbruto <= 1800.0 Then
            dblimprenda = dblsalbruto - 135.03
            TextBox11.Text = Format(dblimprenda.ToString, "currency")
        End If
        If dblsalbruto > 1800 Then
            dblimprenda = dblsalbruto - 315.0
            TextBox11.Text = Format(dblimprenda.ToString, "currency")
        End If

        'calcular vale transporte
        If dblsalbruto < 834.0 Then
            dbltransporte = (dblsalbruto * 6) / 100
            TextBox12.Text = Format(dbltransporte.ToString, "currency")
        End If
        If dblsalbruto > 834.1 Then
            TextBox12.Text = ("R$ 50,00")
        End If

        'calcular vale refeição
        If dblsalbruto < 1000 Then
            dblrefeicao = (dblsalbruto * 10) / 100
            TextBox13.Text = Format(dblrefeicao.ToString, "currency")
        End If

        'assistencia medica
        dblmedica = (CDbl(TextBox6.Text + TextBox10.Text)) - (dbladiantamentos + dblinss + dblimprenda + dbltransporte + dblrefeicao)
        TextBox14.Text = Format(dblmedica.ToString, "currency")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        End
    End Sub
End Class

desde ja agradeço

Nelson
não registrado

ENUNCIADA !

Postada em 18/09/2011 20:08 hs

Faça desse jeito e observe se da certo.

Dim dblndependentes, dbldiatrabalhado, dblsalbase, dblsalbruto, dblfaltas, dbladiantamentos, dblsalfamilia, dblimprenda, dbltransporte, dblrefeicao, dblmedica, dblliquidorecebe, dblinss As Double

' calcular salario base

dblsalbase = dbldiatrabalhado * 30

TextBox5.Text = Format(dblsalbase.ToString, "currency")

'calcular salario bruto

dblsalbruto = dblsalbase - (dbldiatrabalhado * dblfaltas)

TextBox6.Text = Format(dblsalbruto.ToString)

'INSS

If dblsalbruto <= 249.8 Then

dblinss = (dblsalbruto * 8) / 100

ElseIf dblsalbruto > 249.8 And dblsalbruto <= 416.34 Then

dblsalbruto = (dblsalbruto * 9) / 100

ElseIf dblsalbruto > 416.34 And dblsalbruto <= 832.67 Then

dblsalbruto = (dblsalbruto * 15) / 100

Else

dblsalbruto = (dblsalbruto * 15) / 100

End If

'calcular salario familia

If dblsalbruto <= 249.8 Then

dblsalfamilia = 6.66 * dblndependentes

TextBox10.Text = Format(dblsalfamilia.ToString)

Else

dblsalfamilia = 0.83 * dblndependentes

TextBox10.Text = Format(dblsalfamilia.ToString)

End If

'calcular imposto de renda

If dblsalbruto <= "900.0" Then

TextBox11.Text = "Isento"

End If

If dblsalbruto > 900.0 And dblsalbruto <= 1800.0 Then

dblimprenda = dblsalbruto - 135.03

TextBox11.Text = Format(dblimprenda.ToString, "currency")

End If

If dblsalbruto > 1800 Then

dblimprenda = dblsalbruto - 315.0

TextBox11.Text = Format(dblimprenda.ToString, "currency")

End If

'calcular vale transporte

If dblsalbruto < 834.0 Then

dbltransporte = (dblsalbruto * 6) / 100

TextBox12.Text = Format(dbltransporte.ToString, "currency")

End If

If dblsalbruto > 834.1 Then

TextBox12.Text = ("R$ 50,00")

End If

'calcular vale refeição

If dblsalbruto < 1000 Then

dblrefeicao = (dblsalbruto * 10) / 100

TextBox13.Text = Format(dblrefeicao.ToString, "currency")

End If

'assistencia medica

dblmedica = (CDbl(TextBox6.Text + TextBox10.Text)) - (dbladiantamentos + dblinss + dblimprenda + dbltransporte + dblrefeicao)

TextBox14.Text = Format(dblmedica.ToString, "currency")

End Sub

LCRamos

GOIANIA
GO - BRASIL

Postada em 19/09/2011 07:54 hs

Mude todos:

dblndependentes = CDbl(Val(Format$(TextBox2.Text, "###,##0.00")))

vlu//

foda

FRANCA
SP - BRASIL

ENUNCIADA !

Postada em 19/09/2011 17:59 hs

ooooOOoOoOOOoOohhhhh

DEU CERTU!!!!!!
put's to felizao

vlw cara
Â¬Â¬
sou iniciante intao se pra vc foi facil pra men conto o quanto foi dificil...tentei esse double mas nao tentei do geito que se passou
e esse de ###,##0.000 pra mi so funfava so delphi
:D
:S

thank's again

foda

FRANCA
SP - BRASIL

Postada em 20/09/2011 18:17 hs

antes de mais anda...desculpe pelo 2° post consecutivo :S

cara desculpa aew me precipitei demais

eu nao olhei os resultados direitos
:S
cara foi mal mesmo

ta dando alguns erros tipo coloquei com 10 reais ao dia 100 ao dia e 1.000 ao dia
o resultado do:
salario liquido, (R$0,00)

salario bruto,(R$0,00)

liquido a receber, (aqui nao mostra nada nem R$0,00)

imposto de renda(nesse ta aprecendo isento sendo que coloquei que o cara ganahva 1.000 por dia)

I.N.S.S.(R$0,00)

cara foi mal eu ter me precipitado
mas se puder me ajudar...ta tudo certim so falta arruma esses erros

TÓPICO EDITADO

Nelson
não registrado

Postada em 20/09/2011 19:21 hs

Cara,o código na qual foi modificado,as operações são feitas de forma correta.Porém não

mostra liquido a receber porque não foi escrito o código,basta verificar.

Fiz um teste aqui e deu certo com 10,100 e 1000.Copia o código postado e preencha os

campos e verificar

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR