Benutzer definierte Funktionen |
Function
Funktionsname(Übergabeparameter) VB-Script Befehle .... ..... ..... ..... Funktionsname = Rückgabewert End Function |
Function FormatNullen(Zahl,
AnzahlNullen) 'Funktionsname
mit den zu
übergebenden Parametern If AnzahlNullen >= Len(Zahl) Then 'VB-Befehle..... Zahl = String(AnzahlNullen - Len(Zahl), "0") & Zahl 'Formatieren der Zahl End If FormatNullen = Zahl 'Rückgabe der Funktion ist die formatierte Zahl End Function 'Ende dieser Funktion |