CheckDigits :: M11_013. Compute Verificar dígitos para o número de registro do IVA (gr)
Baixe Agora

CheckDigits :: M11_013. Classificação e resumo

CheckDigits :: M11_013. Tag

CUBA Módulo Perl. Verifica dígitos dígitos de verificação de computação O número de IVA

CheckDigits :: M11_013. Descrição

Compute Dígitos de Verificação para o Número de Registro do IVA (GR) CheckDigits :: M11_013 é um módulo Perl para computar dígitos de verificação para o número de registro do IVA (gr) .Synopsis use algoritmo :: checkdigits; $ ustid = checkdigits ('ustid_gr'); if ($ ustid-> is_valid ('123456783')) {# fazer algo} $ cn = $ ustid-> completo ('12345678'); # $ cn = '123456783' $ cd = $ ustid-> checkdigit ('123456783'); # $ CD = '3' $ BN = $ Ustid-> basenumber ('123456783'); # $ bn = '12345678'; algoritmo 1. Começando à direita com o dígito antes que o checkdigit todos os dígitos estejam ponderados com 2 ** posição. Eu. E. O último dígito é multiplicado com 2, o próximo com 4, depois 8 e assim por diante. 2. Os dígitos ponderados são adicionados. 3. A soma da Etapa 2 é tomada Modulo 11. 4. Se a soma da etapa 3 for maior que 9, a soma de verificação é 0 else é a soma em si.Methodsis_Valid (número de $) retorna true somente se $ número consiste apenas de números e hífens e os dois dígitos no meio são dígitos de verificação válidos de acordo com o algoritmo fornecido acima. Retorna falso caso contrário, completo ($ número) O dígito de verificação para $ número é calculado e inserido no meio do número $. Retorna o número completo com dígito de verificação ou '' se $ number não consistir apenas de dígitos, hífens e espaços.basumber ($ NUMBER) retorna o menor número de $ número se $ número tiver um dígito de verificação válido. Retornar '' O caso contrário.CheckDigit ($ Number) retorna os dígitos de verificação do número $ Se $ número tem dígitos de verificação válidos. Retorne '' Caso contrário. Requisitos: · Perl.

CheckDigits :: M11_013. Software Relacionado