<%
Funktion GetRanNum()
'*********************************************
'Funktionsname: GetRanNum
'Funktion: Zufallszahlen im Datumsformat ausgeben
'Parameter: Keine ----
'Rückgabewert: wie GetRanNum(), das 200409071553464617 ausgibt, was 4617 Zufallszahlen am 7. September 2004 um 15:53:46 Uhr entspricht
'Zugehörige Funktion: FormatIntNumber
'*********************************************
GetRanNum = ""
GetRanNum = GetRanNum&FormatIntNumber(year(now),4)
GetRanNum = GetRanNum&FormatIntNumber(month(now),2)
GetRanNum = GetRanNum&FormatIntNumber(day(now),2)
GetRanNum = GetRanNum&FormatIntNumber(hour(now),2)
GetRanNum = GetRanNum&FormatIntNumber(minute(now),2)
GetRanNum = GetRanNum&FormatIntNumber(second(now),2)
randomisieren
ranNum=int((9000*rnd)+1000)
GetRanNum = GetRanNum&ranNum
Funktion beenden
Funktion FormatIntNumber(Expression,Digit)
'*********************************************
'Funktionsname: FormatIntNumber
'Funktion: Eine Ganzzahl mit 0 auf der linken Seite des Digit-Bits ausgeben
'Parameter: Ausdruck ----Zu formatierende Ganzzahl
'Parameter: Ziffer ---- Anzahl der zu formatierenden Ziffern
'Rückgabewert: z. B. 0005, z. B. FormatIntNumber (5,4), die Ganzzahl 5 wird als 0005 formatiert
'Zugehörige Funktion: keine
'*********************************************
Während Len(Ausdruck) < Ziffer
Ausdruck = "0"&Ausdruck
wenden
FormatIntNumber = Ausdruck
Funktion beenden
%><%
Funktion GetRanNum()
'*********************************************
'Funktionsname: GetRanNum
'Funktion: Zufallszahlen im Datumsformat ausgeben
'Parameter: Keine ----
'Rückgabewert: wie GetRanNum(), das 200409071553464617 ausgibt, was 4617 Zufallszahlen am 7. September 2004 um 15:53:46 Uhr entspricht
'Zugehörige Funktion: FormatIntNumber
'*********************************************
GetRanNum = ""
GetRanNum = GetRanNum&FormatIntNumber(year(now),4)
GetRanNum = GetRanNum&FormatIntNumber(month(now),2)
GetRanNum = GetRanNum&FormatIntNumber(day(now),2)
GetRanNum = GetRanNum&FormatIntNumber(hour(now),2)
GetRanNum = GetRanNum&FormatIntNumber(minute(now),2)
GetRanNum = GetRanNum&FormatIntNumber(second(now),2)
randomisieren
ranNum=int((9000*rnd)+1000)
GetRanNum = GetRanNum&ranNum
Funktion beenden
Funktion FormatIntNumber(Expression,Digit)
'*********************************************
'Funktionsname: FormatIntNumber
'Funktion: Eine Ganzzahl mit 0 auf der linken Seite des Digit-Bits ausgeben
'Parameter: Ausdruck ----Zu formatierende Ganzzahl
'Parameter: Ziffer ---- Anzahl der zu formatierenden Ziffern
'Rückgabewert: z. B. 0005, z. B. FormatIntNumber (5,4), die Ganzzahl 5 wird als 0005 formatiert
'Zugehörige Funktion: keine
'*********************************************
Während Len(Ausdruck) < Ziffer
Ausdruck = "0"&Ausdruck
wenden
FormatIntNumber = Ausdruck
Funktion beenden
%>