Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_Luhn
Überprüft nach der Luhn Methode den übergebenen Wert. Sollte der Wert korrekt sein wird "true", anderenfalls "false" zurückgegeben.
Für das Standardverfahren muss der Wert für das Verfahrensflag auf "false" gesetzt sein.
Für die Sonderform der Luhn-Methode z.B. bei EC-Karten muss das Verfahrensflag auf "true" gesetzt sein.
Dim a As String
Dim b As String
a = "446667651"
b = "768725372"
If CNCL_Luhn(a, False) Then
Print a + " hat die Luhn-Prüfung bestanden."
Else
Print a + " hat die Luhn-Prüfung nicht bestanden."
End If
If CNCL_Luhn(b, False) Then
Print b + " hat die Luhn-Prüfung bestanden."
Else
Print b + " hat die Luhn-Prüfung nicht bestanden."
End If
Ausgabe:
446667651 hat die Luhn-Prüfung bestanden.
768725372 hat die Luhn-Prüfung nicht bestanden.