Hola, estoy calculando el iva del precio de un producto

CODIGO:

'calcular iva

Label16.Caption = Format((Label8.Caption) * (1.12), "###,##0.00")

Label13.Caption = Format((Label9.Caption) * (1.12), "###,##0.00")

If Label9.Caption = 0 Then 'HACE QUE AL TENER VALORES NULOS
NO MUESTRE NADA
Label13.Caption = ""

End If

al ejecutar el programa no me funciona el If me da error porque en la base hay valores nulos y supongo que por esoerror 13 en tiempo de ejecucion "no coinciden los tipos"

si me pueden colaborar estare muy agradecida gracias .........saludos

Lo arreglas poniendo:

If VAL(label9.Caption) = 0 Then...

Lo cual te va a funcionar... si usas el punto como separador decimal.
De todas maneras, creo que es mejor evitar usar valores de etiquetas para hacer cálculos. Puedes usar el valor real inicial, que ya es numérico, y te evitas estos líos... (y si en la consulta inicial añades campos calculados también vale).
También suele ser mejor para cosas como el IVA, no usar directamente los valores literales en los programas, porquesi el IVAcambia tienes que recompilar tus aplicaciones. Mejor que esté en una BD o algo así, o como mínimo en una constante global (así sólo tienes que modificar esa constante y no ir rebuscando por todas partes donde lo has usado... y SIEMPRE se te escapa alguna... jajaja)
Saludos.

hola,


jajaja en todo tienes razon, ya me funciona el val.


otra preguntica, que sabes del programa funsion que es una Utilidad para generar ejecutables con los ocx, dll y dependencias incluidas en el misnosin necesidad de instalarcomponentes adicionalesparaque el programacorra en otrasPcsque no tengan instaldos el vb..........

Hola, si el fusion hace eso, es bueno,por lo que vi te copia las referencias a la carpeta del sistema y te las registra...pero eso te ocupa lugar en el .exe principal... yo preferiria crear un buen instalador de la aplicación como lo hacen todos los programas...con algun buen instalador como Inno Setup o varios mas...y listo...

saludos.

hola, buenas tardes yo nuevamente ...........me acabo de dar cuenta haciendo pruebas en el programa que no funciona correctamente hace todos los caluculos perfectos cuando el valor en menos a 900,00 cuando en de 6.700,00 ejemplo ya me da error no calcula el iva
me imprime la operacion en la caja de texto.

si quito el val hace los calculos bien en cantidades grandes pero me da error obvio porque el val lo tengo para los valores nulos.

y si le dejo el val no me calcula el iba no se que hacer :S:S

ayuda porfa

Hola, tenes que preguntar antes de hacer el calculo , no despues...o sea si hay un valor nulo en la base...podes preguntar si es nulo con IsNull...y si es nulo mostras un 0...y si no es nulo haces el calculo...el error de que no coinciden los tipos es porque estas tratando a un numero como string o al reves...

saludos.

Hola, seba la cosa esta asi :

Label13.Caption = Format(Val(Label9.Caption) * (1.12), "###,##0.00")

If Val(Label9.Caption) = 0 Then 'HACE QUE AL TENER VALORES NULOS NO MUESTRE NADA

Label13.Caption = ""

End If

el isnull no me funciona o puede que lo este utilizando mal......!!!!!

saludos..........

Es que si pones en Label9 "6.700,00" el VAL te lo va a interpretar como 6.7, por eso te dije antes de que el VAL siempre interpreta el punto como separador decimal. Si pones "6700.00" o "9750.55" sí que debería funcionar.
Además parece mejor meter la línea del Format en el Else del If.
¿Es eso lo que te pasa?
Saludos.

Iniciado por HAL9000

Es que si pones en Label9 "6.700,00" el VAL te lo va a interpretar como 6.7, por eso te dije antes de que el VAL siempre interpreta el punto como separador decimal. Si pones "6700.00" o "9750.55" sí que debería funcionar.
Además parece mejor meter la línea del Format en el Else del If.
¿Es eso lo que te pasa?
Saludos.

hola, es que si me funciona pero con cantidades menores a los 1,000.00
ya si un producto tiene un costo de 1,000.00 en adelante
el val se tira tres........ y deja de funcionar
mi pregunta es porque hace a los calculos bien con datos menores y al introducir uno mas elevado se daña el proceso...........que hace que cambie y deje de funcionar esa es mi gran incertidumbre