Leren programmeren: Rekeningnummer

Het berekenen van het controlegetal van een bankrekeningnummer stelt een ernstig probleem in Visual Basic: geen enkel gegevenstype is toereikend.

We zouden Long (Long integer) kunnen gebruiken, maar dat gegevenstype kan maar gehele getallen bevatten tot 2.147.483.647.
We zouden Double (double-precision floating point) kunnen egrbuiekn. Dat kan voor positieve getallen immers gaan tot 1.79769313486232E308. Helaas: als we Mod gebruiken wordt er een conversie gedaan naar gehele getallen en krijgen we alsnog een overflow fout.

Daarom maken we gebruik van foutafhandeling binnen in een functie om het rekeningnummer te verkleinen met 97 miljoen zolang er zich een fout voordoet. Dat ziet er dan zo uit:

Function controlegetal(rekeningnummer As Double) As Integer
On Error GoTo overflow
controlegetal = rekeningnummer Mod 97
Exit Function
overflow:
rekeningnummer = rekeningnummer - 97000000
Resume
End Function

Zie ook: foutafhandeling.