[Resolvido] formato dinheiro

[miutinhu 0]

eu estou com um problema bem noob, desculpem por isso

 

se eu digito um valor exemplo val(Text1.text)

quando eu calculo ele vai pro outro campo sem as casas decimais

exemplo, se eu digitar 200,00 (ele vai pro outro campo como 200)

SE EU DIGITO 200,45 ele vai pro outro campo como 200

a variavel é variant, é vb 6

como eu faço pra colocar esse modo dinheiro nas texts ?!

[Dee 0]

Usa Double ou Float.

[miutinhu 0]

Dim Aliquota As Double
Dim BaseCalc As Double
Dim ICMS As Double
Aliquota = Val(Text2.Text)
BaseCalc = Val(Text1.Text)
Aliquota = Aliquota / 100
ICMS = BaseCalc * Aliquota
Text3.Text = ICMS

a text 1 que é a base de calculo pega o valor da txttotal

mas continua sem ser no estilo dinheiro, mas eu declarando via float ou double

[Alex9999 0]

Eu uso:

Dim aliquota as Currency

 

Mas o problema é que no seu caso, a função Val é que está mexendo no valor.

 

Use CCur, que transforma texto em moeda.

 

Responda se funcionou.

[miutinhu 0]

Eu uso:

Dim aliquota as Currency

 

Mas o problema é que no seu caso, a função Val é que está mexendo no valor.

 

Use CCur, que transforma texto em moeda.

 

Responda se funcionou.

 

If Text14.Text = "" And Text16.Text = "" And Text18.Text = "" And Text20.Text = "" And Text22.Text = "" And Text24.Text = "" And Text26.Text = "" And Text28.Text = "" Then
    Text14.Text = "0,00"
    Text16.Text = "0,00"
    Text18.Text = "0,00"
    Text20.Text = "0,00"
    Text22.Text = "0,00"
    Text24.Text = "0,00"
    Text26.Text = "0,00"
    Text28.Text = "0,00"
    
 Else
   
 End If
 
If Text14.Text = "0" And Text16.Text = "0" And Text18.Text = "0" And Text20.Text = "0" And Text22.Text = "0" And Text24.Text = "0" And Text26.Text = "0" And Text28.Text = "0" Then
        MsgBox "Valor Inválido", vbInformation, "Valores Inválidos"
    Else
        Text29.Text = Val(Text14.Text) + Val(Text16.Text) + Val(Text18.Text) + Val(Text20.Text) + Val(Text22.Text) + Val(Text24.Text) + Val(Text26.Text) + Val(Text28.Text)
    End If

Assim ele não calcula as casas decimais depois da virgula :(

se eu coloco ccur ele dá erro

[scorpio 7]

Dim Aliquota As Double

Dim BaseCalc As Double

Dim ICMS As Double

Aliquota = Val(Text2.Text)

BaseCalc = Val(Text1.Text)

Aliquota = Aliquota / 100

ICMS = BaseCalc * Aliquota

Text3.Text = Format(ICMS,"#0.00")

Assim não dá ?

[miutinhu 0]

Eu já arrumei, deu certo esse jeito que você flw,muito obrigado