Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Proyecto AjpdSoft: Foros

AjpdSoft :: Ver tema - Calcular número de billetes y monedas de un importe (Delphi)
Foros de discusión Buscar Perfil FAQ Iniciar sesión
Information Calcular número de billetes y monedas de un importe (Delphi)

Publicar nuevo tema Responder al tema
Foros de discusión » Borland Delphi, Codegear Delphi .Net   
Ver tema anterior :: Ver tema siguiente
AutorMensaje
delphi-euro
Invitado





Asunto: Calcular número de billetes y monedas de un importe (Delphi) Responder citando

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.
MensajePublicado:
Sab Ago 19, 2006 9:26 am
Top of Page
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: Calcular número de billetes y monedas de un importe (Del Responder citando



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:

Código:
function TformMenuPrincipal.calcularBilletes(Cantidad : double) : string;
var
  C : array[1..15] of double;
  M : array[1..15] of string;
  S : array[1..15] of double;
  i : integer;
  resultado : string;
begin
  try
    resultado := '';
    c[1] := 50000;
    m[1] := '500 euros (Billete)';
    c[2] := 20000;
    m[2] := '200 euros (Billete)';
    c[3] := 10000;
    m[3] := '100 euros (Billete)';
    c[4] := 5000;
    m[4] := '50 euros (Billete)';
    c[5] := 2000;
    m[5] := '20 euros (Billete)';
    c[6] := 1000;
    m[6] := '10 euros (Billete)';
    c[7] := 500;
    m[7] := '5 euros (Billete)';
    c[8] := 200;
    m[8] := '2 euros (Moneda)';
    c[9] := 100;
    m[9] := '1 euro (Moneda)';
    c[10] := 50;
    m[10] := '50 céntimos (Moneda)';
    c[11] := 20;
    m[11] := '20 céntimos (Moneda)';
    c[12] := 10;
    m[12] := '10 céntimos (Moneda)';
    c[13] := 5;
    m[13] := '5 céntimos (Moneda)';
    c[14] := 2;
    m[14] := '2 céntimos (Moneda)';
    c[15] := 1;
    m[15] := '1 céntimo (Moneda)';

    //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;
MensajePublicado:
Sab Ago 19, 2006 9:54 am
Top of PageVer perfil de usuario
Mostrar mensajes de anteriores:   
Todas las horas son GMT - 1 Horas
Publicar nuevo tema Responder al tema
Foros de discusión » Borland Delphi, Codegear Delphi .Net  

Cambiar a:  
Key
  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