Calcular un digito de chequeo - Foros Club Delphi

09-02-2009

droguerman droguerman is offline

Miembro

Registrado: abr 2005

Ubicación: tierra

Posts: 999

Poder: 22

El código que te envie hace eso, la parte (1 + (i mod 2) ) realiza la multiplicación por 1 o por 2 según el cado, el error de la resta deberia ser algo como (falta optimizar otra vez).

Código Delphi [-]  if resultado mod 10 > 5 then
    resultado := suma mod 10
 else 
   resultado := suma - (suma div 10)*10;

saludos

__________________
self.free;

« Tema Anterior | Próximo Tema »

Normas de Publicación
no Puedes crear nuevos temas no Puedes responder a temas no Puedes adjuntar archivos no Puedes editar tus mensajes El código vB está habilitado Las caritas están habilitado Código [IMG] está habilitado Código HTML está deshabilitado

Saltar a Foro

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Calcular último dígito del IMEI	Emilio	PHP	4	14-04-2008 11:15:56
Dígito Verhoeff	Antonio Rosas E	OOP	1	04-10-2007 23:51:19
Comparar un number dígito a dígito	kuan-yiu	SQL	2	25-06-2007 17:26:47
Modificar un str dígito a dígito	fortran	Varios	11	22-12-2003 16:44:46
como calcular el digito de control d una cuenta bancaria	User_Baja_2	Varios	3	31-05-2003 15:35:16

La franja horaria es GMT +2. Ahora son las 06:43:01.