Cálculo de Desglose de Monedas

[Adalberto Hernández Vega]

Hola Todos:

Allí les va una interesante: ¿Quién tiene algo así como una función que dada
una cifra te devuelva el desglose de billetes y monedas?

Ejemplo:

3,788.77 = 5 billetes de a 500.00
2 billetes de a 100.00
1 billete de a 50.00
1 billete de a 20.00
1 billete de a 10.00
1 billete de a 5.00
1 billete de a 1.00
1 moneda de a 0.50
1 moneda de a 0.20
1 moneda de a 0.05
1 moneda de a 0.02

Para una aplicación de Nómina que permita hacer pagos en efectivo.

Saludos,

Adalberto Hernández Vega
ICQ: 7389814

[Adalberto Hernández Vega]

¿¿Ningún Zorro todavía???

[Fernando Mendoza Topete]

No le veo ningún problema. Solo tienes que dividir el importe total entre la nominación más alta de moneda [Billetes500 = INT(Importe/500)], multiplicar el resultado por la nominación, restarlo del importe original [Importe=Importe-Billetes500*500] y repetir estos pasos con la nominación de moneda siguiente. Puedes tener las nominaciones en en Array y hacer un FOR ENDFOR para dividir entre cada una de ellas:
DIM Moneda[11]
DIM TMoneda[11]
Moneda[1]=500, Moneda[2]=100, ..., Moneda[11]=.02

Residuo=Importe
FOR n = 1 TO 11
TMoneda[n]=INT(Residuo/Moneda[n])
Residuo=Residuo-TMoneda[n]*Moneda[n]
ENDFOR



Adalberto Hernández Vega <ahv...@usa.net> escribió en artículo <#k8Bf2rV...@uppssnewspub05.moswest.msn.net>...

[Adalberto Hernández Vega]

Gracias Fernando,

 

Realmente no es que le haya visto problema, de hecho ya lo tengo resuelto en un macro que hice en Lotus 1-2-3 hace como 7 años, el asunto es que quería saber si alguien en el foro tenía ya implementado algo así con una función de foxpro.  Digo, para no ponerme a "cranear" algo pudiendo obtener una "generosa donación".

 

Saludos,

 

Adalberto.

 

Gracias de nuevo. Creo que un "aproach" más estandarizado sería una función que tomara como parámetros el Importe y la Denominación de Moneda y que devolviera la Cantidad de Billetes de la Denominación y el Residuo, así uno la podría usar independientemente de los tipos de denominación de moneda que existan (para usarla con otras monedas, digo...).  Es más, los tipos de denominación de moneda podrían estar almacenados en una tablita configurable por el usuario.

 

Lo que sucede es que hay que usar este cálculo para cada uno de los registros de la Nómina y luego sacar un total de billetes y monedas de cada denominación sumando los de cada registro, (que oviamente sería distinto de hacer el cálculo para el total de la Nómina).  Si usaramos tu solución, creo que el array debería ser de dos dimensiones: DIM Moneda[Tipos_De_Moneda, No_De_Empleados], (Tipos_De_Moneda sería = a RECCOUNT() de la tablita), con el segundo subíndice representando el número de empleados de la nómina.

Fernando Mendoza Topete wrote in message <01bd5870$2d3e9720$3d8526c8@default>...

[Adalberto Hernández Vega]

Gracias Antonio...

Antonio de Haro wrote in message ...

Hay te mando  el programa, como ves solo tienes que definir al principio la estructura monetaria del pais de que se trate.

Un saludo

 

 Antonio de Haro
ad...@nexo.es
958-259992
Granada. España