IBAN berechnen

Prof. Dr. Dörte Haftendorn Juli 2014  www.mathematik-verstehen.de
Erklärungen weitere Links und  Impressum in der folgenden Webversion.
http://www2.leuphana.de/masuv/03codi/codi.htm

In anderer Datei: IBAN prüfen

Quit

Diese Datei ist ohne ausführliche Kommentare so gestaltet, wie die TI-Nspire-Datei, zu der es eine gut erläuterte Darstellung gibt.   Siehe  obige Website.

https://www.iban.de/iban-laenderliste.html

Die Berechnung ist nur für Deutschland  und allenfalls Länder mit einer IBAN von 22 Stellen richtig.

Manipulate[landli={"AT","CH","DE","DK","FR,","GB,","IT","NL","SE"};
lali={1019,1217, 1314, 1320, 1518, 1611,1825,2321,2814};

For[i=1,i<=Length[landli],i++,
If[Land==landli[[i]],la=lali[[i]]];
];
zahl=bkl*(10^16)+kto*(10^6)+la*100;
pr=98-Mod[zahl,97];
ibanliste={ Land,pr,bkl*(10^10)+kto}
,
Style["Wähle das Land, trage Bankleitzahl und Kontonummer ein.", 12],
{{Land,"DE"}, {"AT","CH","DE","DK","FR","GB","It","NL","SE"}},
{bkl,24050110},
{kto,52113370},

FrameLabel->{{None,None},{"www.mathematik-sehen-und-verstehen.de","IBAN berechnen"}},
LabelStyle->Directive[RGBColor[0.7,0,0],Large]
]