Checkdigits :: M11_013

Compute los dígitos de verificación para el número de registro del IVA (GR)
Descargar ahora

Checkdigits :: M11_013 Clasificación y resumen

Anuncio publicitario

  • Rating:
  • Licencia:
  • Perl Artistic License
  • Precio:
  • FREE
  • Nombre del editor:
  • Mathias Weidner
  • Sitio web del editor:
  • http://search.cpan.org/~mamawe/

Checkdigits :: M11_013 Etiquetas


Checkdigits :: M11_013 Descripción

Calcular los dígitos de verificación para el número de registro del IVA (GR) Checkdigits :: M11_013 es un módulo PERL para calcular los dígitos de verificación para el número de registro de IVA (GR). HSYNOPSIS Use algoritmo :: Checkdigits; $ usSTID = Checkdigits ('USTID_GR'); if ($ USTIDE-> IS_VALID ('123456783')) {# Hacer algo} $ cn = $ USTID-> Completo ('12345678'); # $ cn = '123456783' $ cd = $ USTID-> Checkdigit ('123456783'); # $ $ cd = '3' $ bn = $ USTID-> Basene enumerar ('123456783'); # $ bn = '12345678'; Algoritmo 1. A partir de la derecha con el dígito antes de que los dígitos se ponderan todos los dígitos con una posición 2 **. Es decir. El último dígito se multiplica con 2, el siguiente con 4, luego 8 y así sucesivamente. 2. Se agregan los dígitos ponderados. 3. La suma del PASO 2 se toma Modulo 11. 4. Si la suma del Paso 3 es mayor que 9, la suma de verificación es 0 de lo contrario, es la suma en sí .Methodsis_Valid ($ Número) devuelve solo si $ NUMO consiste únicamente de números y guiones y los dos dígitos en el medio son dígitos de verificación válidos de acuerdo con el algoritmo dado anteriormente. Devuelve Falso de lo contrario, completo ($ número) El dígito de verificación por $ número se calcula e insertó en el número medio de $. Devuelve el número completo con el dígito de verificación o '' si $ número no consiste únicamente de dígitos, guiones y espacios.Basenumber ($ número) devuelve el número de usuarios de $ si $ número tiene un dígito de verificación válido. Devuelve '', de lo contrario.CheckDigit ($ número) devuelve los dígitos de verificación de $ número si $ número tiene dígitos de verificación válidos. Devolver '' de lo contrario. Requisitos: · Perl


Checkdigits :: M11_013 Software relacionado

Sobre nosotros