체크 디츠 :: M11_013.

VAT 등록 번호 (GR)에 대한 체크 숫자 계산
지금 다운로드

체크 디츠 :: M11_013. 순위 및 요약

광고

  • Rating:
  • 특허:
  • Perl Artistic License
  • 가격:
  • FREE
  • 게시자 이름:
  • Mathias Weidner
  • 게시자 웹사이트:
  • http://search.cpan.org/~mamawe/

체크 디츠 :: M11_013. 태그


체크 디츠 :: M11_013. 설명

VAT 등록 번호 (GR)에 대한 계산 숫자 체크 데이터 :: M11_013은 VAT 등록 번호 (GR)에 대한 체크 숫자를 계산하는 PERL 모듈입니다. 식 노프가 알고리즘 :: 체크 디트리트; $ ustid = 체크 디스 ( 'ustid_gr'); if ($ USTID-> IS_VALID ( '123456783')) {# DO THAGE} $ CN = $ USTID-> 완료 ( '12345678'); # $ CN = '123456783'$ CD = $ USTID-> 체크 디트 ( '123456783'); # $ CD = '3'$ BN = $ USTID-> BaseNumber ( '123456783'); # $ bn = '12345678'; 알고리즘 1. 체크 디지트 앞에 숫자로 오른쪽 시작 모든 숫자는 2 ** 위치로 가중치가 가중됩니다. 즉. 마지막 숫자는 2, 다음 4, 8 등으로 다음 2, 8과 곱합니다. 2. 가중 숫자가 추가됩니다. 3. 2 단계의 합계가 모듈로 11. 4 단계의 합계가 9보다 크면 체크 합계는 0이고 IS는 합계입니다. $ number가 전적으로 구성된 경우에만 true를 반환합니다. 중간의 숫자와 하이픈과 두 자리의 두 자리는 위에 주어진 알고리즘에 따라 유효한 검사 자릿수가 유효합니다. RETUPY FALSE 그렇지 않으면 $ NUMBER에 대한 확인 숫자가 계산되고 $ NUMBER의 중간에 삽입됩니다. $ number가 숫자, 하이픈 및 spaces.BaseNumber ($ number)가 유효한 검사 숫자가있는 경우 $ number ($ number)가 유효한 검사 자릿수가있는 경우 $ number ($ number)가 전적으로 구성되지 않은 경우 확인 디지트 또는 ''가 완료된 숫자를 반환합니다. $ number가 유효한 검사 자릿수가있는 경우 $ number의 확인 숫자를 반환합니다. 그렇지 않으면 반환하십시오. 요구 사항 : · Perl.


체크 디츠 :: M11_013. 관련 소프트웨어

회사 소개