FileMaker Pro Custom Functions

// validate IBAN // returns 1 if IBAN if correct. Returns 0 if IBAN is not correct // Resultat 1 wenn die Prüfzifferkontrolle stimmt, sonst Resultat 0 // 11. März 2009 von Christoph Kaufmann, http://clk.ch Let([ // nur Zahlen, Gross- und Kleinbuchstaben) $rein = Filter ( IBAN ; "1234567890abcdefghijklmnopqrstuvwxypABCDEFGHIJKLMNOPQRSTUVWXYZ" ) ; // die Kleinbuchstaben müssen gross werden $gross = Upper ( $rein ) ; //die 4 ersten Stellen müssen an den Schluss. Dazu messen wir erst die Länge $laenge = Length ( $gross ) ; $umgestellt = Middle ( $gross ; 5 ; $laenge - 4 ) & Left ( $gross ; 4 ) ; // Grossbuchbuchstaben in Zahlen umwandeln $nummer = Substitute ( $umgestellt ; [ "A" ;10] ; [ "B" ;11] ; ["C" ;12] ; ["D";13] ; ["E" ;14] ; ["F";15] ; ["G";16] ; ["H";17] ; ["I";18] ; ["J";19] ; ["K";20] ; ["L";21] ; ["M";22] ; ["N";23] ; ["O";24] ; ["P";25] ; ["Q";26] ; ["R";27] ; ["S";28] ; ["T";29] ; ["U";30] ; ["V";31] ; ["W";32] ; ["X";33] ; ["Y";34] ; ["Z";35]) ]; //Diese Zahl durch 97 teilen, der Rest muss 1 sein If ( Mod ( $nummer ; 97 ) = 1 ; 1 ; 0 ) )
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.