Prüfziffer nach ISO 13616 berechnen (gelöst) (Allgemeines zu Perl)

[thread]17962[/thread]

Prüfziffer nach ISO 13616 berechnen [gelöst]

Tags: perl5 IBAN PZ Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+3 replies
bianca

2012-12-05 14:22
User since
2009-09-13
6977 Artikel
BenutzerIn
Hi!
Laut Bundesbankseite wird für die Gläubiger-ID dasselbe PZ-Verfahren wie für die IBAN's verwendet.
Allerdings ohne die Geschäftsbereichskennung. Also nur die Stellen 8 bis 18.
Nun habe ich hier ein Beispiel, wo die nationale ID (Stellen 8 bis 18) so lauten: 11768
Die zugehörige PZ müsste eigentlich 72 ergeben.
Das mache ich mit diesem Code:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10

#perl use warnings; use strict; use Math::BigFloat; my $id = 11768; my $land = 'DE'; my $wert = Math::BigFloat->new($id.(ord(substr($land,0,1))-55).(ord(substr($land,1,1))-55)); print sprintf('%02d',98 - ($wert->bmod(97)));
Leider kommt 57 raus.
Der selbe Code bringt aber beim Bundesbank-Beispiel mit der ID 9999999999 korrekterweise 98 raus.
Jemand eine Idee, was ich falsch mache?
Den Code verwende ich bei IBAN's dauernd und hatte noch keine Fehler.
10 print "Hallo"
20 goto 10
- +2 replies
- FIFO
  
  2012-12-05 16:54
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  Ich hab da lange nichts mehr mit zu tun gehabt, aber musst Du nicht noch zwei Nullen anhängen?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  my $wert = Math::BigFloat->new( $id .(ord(substr($land,0,1))-55) .(ord(substr($land,1,1))-55) .'00' );
  
  Siehe auch hier
  
  Nachtrag: Der Modulo(97) ist (ausgerechnet!) bei der offiziellen Testziffer mit und ohne '00' gleich:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  my $wert1 = Math::BigFloat->new('9999999999131400'); my $wert2 = Math::BigFloat->new('99999999991314'); print sprintf( "%02d\n%02d\n", $wert1->bmod(97), $wert2->bmod(97) );
  
  Editiert von FIFO: Formatierung, Link
  Last edited: 2012-12-05 17:24:52 +0100 (CET)
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
  - bianca
    
    2012-12-05 18:44
    
    User since
    2009-09-13
    6977 Artikel
    BenutzerIn
    
    2012-12-05T15:54:46 FIFO
    Ich hab da lange nichts mehr mit zu tun gehabt, aber musst Du nicht noch zwei Nullen anhängen?
    
    Ja, bei der IBAN mache ich das auch. Ich glaube, ich habe das einfach vergessen zu übernehmen.
    Danke dir! Das sieht jetzt besser aus.
    10 print "Hallo"
    20 goto 10

View all threads created 2012-12-05 14:22.