Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_LeadingZ
Erweitert die übergebene Zahl vom Typ Long um führende Nullen bis die gewünschte Anzahl von Stellen erreicht ist.
Dim a As Long
Dim i As Integer
For i = 1 To 10
a = Rnd(1) * 50000 -25000
Print CStr(a) + " => " + CNCL_LeadingZ(a, 5)
Next
Ausgabe:
10818 => 10818
2429 => 02429
3849 => 03849
-22219 => -22219
-18379 => -18379
21695 => 21695
-23555 => -23555
22079 => 22079
9697 => 09697
-4998 => -04998