Asunto: Calcular número de billetes y monedas de un importe (Delphi)
Quisiera saber qué calculo tengo que utilizar en Delphi para obtener el número de billetes y monedas que necesitaría para pagar un importe determinado al contado.
Lo que pretendo es realizar una aplicación que me calcule los billetes y monedas que tengo que sacar del banco para pagar cantidades a personas diferentes. La moneda es el euro, por si sirve de algo.
Publicado:
Sab Ago 19, 2006 9:26 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Calcular número de billetes y monedas de un importe (Del
Anuncios
delphi-euro escribió:
Quisiera saber qué calculo tengo que utilizar en Delphi para obtener el número de billetes y monedas que necesitaría para pagar un importe determinado al contado.
Lo que pretendo es realizar una aplicación que me calcule los billetes y monedas que tengo que sacar del banco para pagar cantidades a personas diferentes. La moneda es el euro, por si sirve de algo.
Te mostramos un extracto del código fuente de la aplicación AjpdSoft Control de sueldos y billetes, que responde tu pregunta. Además puedes desgarcar el Código Fuente en Delphi 6 de esta aplicación en el enlace http://www.ajpdsoft.com/modules.php?name=News&file=article&sid=72:
//Pasa el total a pagar a céntimos
cantidad := cantidad * 100;
cantidad := int(cantidad);
for i := 1 to 15 do
begin
s[i] := int(cantidad / c[i]);
cantidad := cantidad - s[i] * c[i];
end;
for i := 1 to 15 do
begin
if s[i] <> 0 then
begin
if resultado <> '' then
resultado := resultado + chr(13) + floattostr(s[i]) + ' -> ' + m[i]
else
resultado := floattostr(s[i]) + ' -> ' + m[i];
end;
end;
result := resultado;
except
result := 'ERROR AL CALCULAR';
end;
end;
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A