Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_IsPZN
Überprüft ob der übergebene Wert im Format "PZN-1234567" oder "1234567" eine gültige Pharma-Zentral-Nummer darstellt.
Der Rückgabewert ist "True" für eine gültige und "False" für eine ungültige PZN.
Dim pzn As String
pzn = "pzn-2663704"
If CNCL_IsPZN(pzn) Then
Print pzn + " ist eine gültige PZN"
Else
Print pzn + " ist keine gültige PZN"
End if
pzn = "pzn-2663703"
If CNCL_IsPZN(pzn) Then
Print pzn + " ist eine gültige PZN"
Else
Print pzn + " ist keine gültige PZN"
End If
Ausgabe:
pzn-2663704 ist eine gültige PZN
pzn-2663703 ist keine gültige PZN