CheckDigits: M11_013. COMPUTE-Prüfziffern für die MwSt-Registrierungsnummer (GR)
Jetzt downloaden

CheckDigits: M11_013. Ranking & Zusammenfassung

CheckDigits: M11_013. Stichworte

MwSt Perl-Modul überprüfen Ziffern compute Prüfziffern VAT Registrierungsnummer

CheckDigits: M11_013. Beschreibung

COMPUTE Check-Ziffern für MwSt. Registrierungsnummer (GR) CheckDigits :: M11_013 ist ein Perl-Modul, um Check-Ziffern für die MwSt-Registrierungsnummer (GR) zu berechnen. Synopsis verwenden Algorithmus :: CheckDigits; $ ustid = CheckDigits ('ustid_gr'); if ($ ustid-> is_valid ('123456783')) {# tue etwas} $ cn = $ ustid-> komplett ('12345678'); # $ cn = '123456783' $ CD = $ Ustid-> CheckDigit ('123456783'); # $ CD = '3' $ BN = $ ustid-> Basenummer ('123456783'); # $ BN = '12345678'; Algorithmus 1. Beginnen Sie rechts mit der Ziffer, bevor der CheckDigit alle Ziffern mit 2 ** -Position gewichtet werden. I. E. Die letzte Ziffer wird mit 2, dem nächsten mit 4, dann 8 und so weiter multipliziert. 2. Die gewichteten Ziffern werden hinzugefügt. 3. Die Summe von Schritt 2 wird modulo 11 genommen. 4. Wenn die Summe von Schritt 3 größer als 9 ist, ist die Prüfsumme 0, sonst ist die Summe selbst. Von Zahlen und Bindestrichen und der beiden Ziffern in der Mitte sind gültige Überprüfungsziffern gemäß dem oben angegebenen Algorithmus. Gibt ansonsten false, abgeschlossen ($ nummer) Die Check-Ziffer für $ Number wird berechnet und in die Mitte von $ $ eingefügt. Gibt die vollständige Nummer mit der Prüfziffer oder '', wenn $ Number nicht nur aus Ziffern, Bindestrichen und Leerzeichen besteht. Rückgabe '' Ansonsity.Checkdigit ($ Number) gibt die Überprüfungsziffern von $ Number zurück, wenn $ nummer gültige Prüfziffer hat. Zurückkehren '' ansonsten. Anforderungen: · Perl.

CheckDigits: M11_013. Zugehörige Software