Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_CheckEuNoteSN
Überprüft ob der übergebene Wert eine korrekte Seriennummern einer Euro Banknote darstellt.
Rückgabewert ist "true" für eine gültige Seriennummer und "false" für eine ungültige Seriennummer.
Dim a(0 To 3) As String
a(0) = "VA7251935762" ' 5-Euro-Schein der "Europa-Serie"
a(1) = "X81390533402" ' 50-Euro-Schein der ersten Serie
a(2) = "VA7251935767" ' ungültige Seriennummer der "Europa-Serie"
a(3) = "X81390433402" ' ungültige Seriennummer der ersten Serie
ForAll sn In a
If CNCL_CheckEuNoteSN(sn) Then
Print sn + " ist eine gültige Seriennummer."
Else
Print sn + " ist keine gültige Seriennummer."
End If
End ForAll
Ausgabe:
VA7251935762 ist eine gültige Seriennummer.
X81390533402 ist eine gültige Seriennummer.
VA7251935767 ist keine gültige Seriennummer.
X81390433402 ist keine gültige Seriennummer.