SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: PAPELUCHO en Sábado 29 de Julio de 2006, 00:51
-
SALUDOS AMIGOS
TENGO UN PROBLEMA QUE ME QUITA EL SUEÑO, LES EXPLICO, EN UN FORM TENGO 5 TEXT Y UN COMMAND
EL COMMAND HACE UN CALCULO EN REFERENCIA A UN OPTION ELEGIDO SEA GENERAL O RECARGO, SI ELIGE GENERAL HACE EL SIGUIENTE CALCULO
MONTO POR 6% = ADV
MONTO + ADV POR 19% = IVA
LOS VALORES DE ADV + IVA = TOTAL
ME SALE BIEN EL CALCULO DEL ADV PERO EL DEL IVA ME SALE ERRONEO, ME ARROJA UN VALOR EQUIVOCO EJ: EN MONTO PONGO US$ 1.000,00 EL ADV ME SALE BIEN ( 60,00) PERO EL IVA ME SALE US$ 1.011,40 SIENDO QUE DEBE SER US$ 201,40, AL SALIR ESTE CALCULO MALO, POR ENDE TAMBIEN ME SALE ERRONEO EL TOTAL
SI ELIGE RECARGO HACE EL SIGUIENTE CALCULO
MONTO POR 6% = ADV
MONTO + CTA_ OTRO1 + ADV Y EL RESULTADO DE ESTA SUMA POR 19% = IVA
LOS VALORES DE ADV + IVA + CTA_OTRO1 = TOTAL
EN ESTE CASO ME SALE BIEN EL CALCULO DEL ADV Y CTA_OTRO1 PERO EL TAMBIEN COMO EN EL CASO ANTERIRO SALE ERRONEO EL IVA
FAVOR SI PUEDEN AYUDARME, ESTE CALCULO ES VITAL PARA UN PROYECTO QUE ESTOY REALIZANDO
PD: ADJUNTO VA EL PROYECTO EN .ZIP
-
Primero que nada este post debe de ir visual para principiantes, sin ofender :) esto es VBA (Visual Basic for Aplications), dos tu error se debe mas que nada a que la maquina no sabe lo que tu quieres hacer, como me explico, te falto saber precedencia, esto quiere decir que no es lo mismo:
Esto, IVA = Format(CDbl((MONTO) + CDbl((ADV)) * 0.19), "#,##0.00")
que esto: IVA = Format((CDbl(MONTO) + CDbl(ADV)) * 0.19, "#,##0.00")
en el primero lo que tu obtienes es primero la multiplicacion de 0.19 * ADV y el resultado se lo sumas a monto
y en el segundo que es lo que deseas es: Monto + ADV y lo que salga lo multiplicas x el .19
Espero leas un poco mas sobre este tema bye