DUVIDA AO LER CODIGO DE BARRA ETIQUETAS

Citação:

:
Balança que pesa mercadoria... emite uma etiqueta de codigo barra... sai na etiqueta o codigo do produto e o valor da venda... então estou precisando descobrir o peso do produto....

exemplo:

2004500003408

Sendo que para pegar o codigo do produto eu fiz assim:

If Left(txtCodBarra.Text, 1) = [Ô]2[Ô] Then
            txtCodBarra.Text = Mid(txtCodBarraPeso, 2, 4)
end if

o código é o 0045

esse [Ô]00340[Ô] é o valor da compra.... esse produto custa R$ 7,99 o kilo.... deu 0,426 gramas = R$ 3,40

Então preciso fazer um calculo onde calcule o peso (no formato 0,000)...
exemplo:

ValorKilo = [txt-color=#e80000]7,99[/txt-color]
ValorCompra = [txt-color=#e80000]3,40[/txt-color]
Peso = [txt-color=#e80000]?[/txt-color]

ai fiz assim: mas nao dar o valor de 0,426 gramas

            Dim ValorCompra As Currency
            Dim ValorKilo As Currency
            Dim Peso As Double
            
            ValorKilo = CCur(txtValor.Text)
            ValorCompra = CCur(Mid(txtCodBarra, 8, 5))
            Peso = CDbl(ValorKilo / ValorCompra)

ValorCompra = CCur(Mid(txtCodBarra, 8, 5))

Citação:

:
aconteceu outro problema agora....

Na hora dele pegar o valor da compra, ele pega o numero inteiro

exemplo

ValorCompra = CCur(Mid(txtCodBarra, 8, 5))

ele pega 00340.... ou seja... ele vai calcular como R$ 340,00

ele tem que pegar o valor, sendo que os ultimos 2 numero sao casas decimais... ou seja... R$ 3,40

Citação:

:
aconteceu outro problema agora....

Na hora dele pegar o valor da compra, ele pega o numero inteiro

exemplo

ValorCompra = CCur(Mid(txtCodBarra, 8, 5))

ele pega 00340.... ou seja... ele vai calcular como R$ 340,00

ele tem que pegar o valor, sendo que os ultimos 2 numero sao casas decimais... ou seja... R$ 3,40