SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Jorge A. Pierro en Martes 21 de Enero de 2003, 17:25

Título: Re: Desglose monetario
Publicado por: Jorge A. Pierro en Martes 21 de Enero de 2003, 17:25

Hola a todos!!
Si es posible quisiera que alguno de vosotros me mande el código para hacer los desgloses para el pago de nóminas.
Por ej. si ingreso una suma de 1,255 que me indique 6 de 200, 0de 100, 1 de 50, 0 de 20, 0 de 10, 1 de 5.
Muchas gracias!!!!

Título: Desglose monetario
Publicado por: Jose Arriagada en Martes 21 de Enero de 2003, 19:26

Dim vector(1 To 6) As Integer
Dim totales(1 To 6) As Integer
vector(1) = 200
vector(2) = 100
vector(3) = 50
vector(4) = 20
vector(5) = 10
vector(6) = 5

totales(1) = 0
totales(2) = 0
totales(3) = 0
totales(4) = 0
totales(5) = 0
totales(6) = 0

monto = <Cifra a desglosar>

For i = 1 To 6
    resto = monto Mod vector(i)
    totales(i) = (monto - resto) / vector(i)
    monto = monto - totales(i) * vector(i)
    Print totales(i), vector(i), "=", totales(i) * vector(i)
Next i