Hola invitado         02 Sep, 2010 - 04:33
Menú principal
 
Ads
 
Patrocinadores
 
Anuncios
 
© 2009 PortalFox
Validar un número de tarjeta de crédito lecturas 18912
 Enviado por Luis María Guayán en Viernes, 06 Agosto, 2004
Rutinas Función para validar un número de tarjeta de crédito.
Esta función es válida para casi todos los tipos de tarjetas de crédito. La función solo comprueba que el número sea válido, no así de que tipo de tarjeta se trata, ni la entidad que la emitió.

? Val_TC("1234 1234 1234 1238")



FUNCTION Val_TC(tcTC)

  LOCAL ln, lnSuma, lnDigito

  tcTC = ALLTRIM(CHRTRAN(tcTC,"- ",""))

  lnSuma = 0

  FOR ln = 1 TO LEN(tcTC)

    lnDigito = VAL(SUBSTR(tcTC,ln,1))

    IF MOD(ln,2)=0

      lnSuma = lnSuma + lnDigito

    ELSE

      lnDigito = lnDigito * 2

      lnSuma = lnSuma + IIF(lnDigito > 9, lnDigito - 9, lnDigito)

    ENDIF

  ENDFOR

  RETURN MOD(lnSuma,10) = 0 AND lnSuma < 150

ENDFUNC
 Versión imprimible  
Validar un número de tarjeta de crédito | Entrar/Crear una cuenta | 0 Comentarios
Los comentarios son propiedad de sus respectivos autores.
No somos responsables de su contenido.



Todas las marcas y los logos utilizados en este sitio son propiedad de sus respectivos dueños.
Los artículos, noticias y comentarios son propiedad y responsabilidad de sus respectivos autores.
Copyright © 2000-2010 PortalFox. Todos los derechos reservados.