Mit diesem DOCUcontrol®-Makro kann aus einer überbenen IBAN die Bankleitzahl und die Kontonummer ermittelt werden. Außerdem wird die IBAN mit dem bnnannten Makro „StrIsValidIBAN“ validiert.

BOOL getBankverbindungFromIBAN( STRING IBAN, STRING &Bankleitzahl, STRING &Kontonummer )
  BOOL success = FALSE;
  
  /*** !! Ermittlung der Bankverbindung nur mit deutscher IBAN möglich !! ***/

  #DEBUG_START
    IBAN = "DE87 1234 5678 1234 5678 90"; // Test-IBAN
  #DEBUG_END

  IF( StrIsValidIBAN( IBAN ) ) // es wurde eine gültige IBAN (weltweit) übergeben
    StrRemove( IBAN, ' ' ); // evtl. Leerzeichen entfernen

    IF( StrGetLength( IBAN ) == 22 ) // deutsche IBAN hat 22 Zeichen
      Kontonummer = StrRight( IBAN, 10 );
      Bankleitzahl = StrMid( IBAN, 5, 8 );

      IF( StrIsDigitString( Kontonummer ) && StrIsDigitString( Bankleitzahl ) )
        Trace( "Kontonummer: %1", Kontonummer );
        Trace( "Bankleitzahl: %1", Bankleitzahl );
        success = TRUE;
      ENDIF // nur Ziffern

    ENDIF // 22 Zeichen

  ENDIF // IBAN gültig

RETURN( success )