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

Nick


Contraseña


Nuevo usuario


English
Calcular el dígito de control de un número de cuenta bancaria - CCC - Delphi
Lenguaje de programación Borland Delphi



Coloraremos tres controles Edit para los cuatro dígitos de la entidad, la oficina y 10 dígitos para el número de cuenta. Pondremos también un Button:

function CalculaDC(Banco, Cuenta: string):integer;
const
  Pesos: array[0..9] of integer=(6,3,7,9,10,5,8,4,2,1);
var
  n      : byte;
  iTemp  : integer;
begin
  iTemp:=0;
  for n := 0 to 7 do
    iTemp := iTemp + StrToInt(Copy(Banco, 8 - n, 1)) * Pesos[n];
   Result:=11 - iTemp Mod 11;
   if (Result > 9) then
     Result:=1-Result mod 10;
   iTemp:=0;
   For n := 0 to 9 do
   iTemp := iTemp + StrToInt(Copy(Cuenta, 10 - n, 1)) * Pesos[n];
   iTemp:=11 - iTemp mod 11;
   if (iTemp > 9) then
     iTemp:=1-iTemp mod 10;
   Result:=Result*10+iTemp;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  showmessage(IntToStr(CalculaDC(txtEntidad.Text + txtOficina.Text,txtCuenta.Text)));
end;




Publicado el: 2003-09-27

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+