<%
Fonction GetRanNum()
'******************************************
'Nom de la fonction : GetRanNum
'Fonction : Afficher des nombres aléatoires avec le format de date
'Paramètres : Aucun ----
'Valeur de retour : telle que GetRanNum(), qui génère 200409071553464617, soit 4617 nombres aléatoires à 15:53:46 le 7 septembre 2004.
'Fonction associée : FormatIntNumber
'******************************************
GetRanNum = ""
GetRanNum = GetRanNum&FormatIntNumber(année(maintenant),4)
GetRanNum = GetRanNum&FormatIntNumber(mois (maintenant),2)
GetRanNum = GetRanNum&FormatIntNumber(jour(maintenant),2)
GetRanNum = GetRanNum&FormatIntNumber(heure(maintenant),2)
GetRanNum = GetRanNum&FormatIntNumber(minute(maintenant),2)
GetRanNum = GetRanNum&FormatIntNumber(seconde(maintenant),2)
randomiser
num_ran=int((9000*rnd)+1000)
GetRanNum = GetRanNum&ranNum
Fonction de fin
Fonction FormatIntNumber (Expression, Chiffre)
'******************************************
'Nom de la fonction : FormatIntNumber
'Fonction : Sortie d'un entier avec 0 sur le côté gauche du bit Digit
'Paramètre : Expression ----Entier à formater
'Paramètre : Chiffre ---- nombre de chiffres à formater
'Valeur de retour : telle que 0005, telle que FormatIntNumber(5,4), l'entier 5 est au format 0005
'Fonction associée : aucune
'******************************************
Tandis que Len (Expression) < Chiffre
Expression = "0"&Expression
wend
FormatIntNumber = Expression
Fonction de fin
%><%
Fonction GetRanNum()
'******************************************
'Nom de la fonction : GetRanNum
'Fonction : Afficher des nombres aléatoires avec le format de date
'Paramètres : Aucun ----
'Valeur de retour : telle que GetRanNum(), qui génère 200409071553464617, soit 4617 nombres aléatoires à 15:53:46 le 7 septembre 2004.
'Fonction associée : FormatIntNumber
'******************************************
GetRanNum = ""
GetRanNum = GetRanNum&FormatIntNumber(année(maintenant),4)
GetRanNum = GetRanNum&FormatIntNumber(mois (maintenant),2)
GetRanNum = GetRanNum&FormatIntNumber(jour(maintenant),2)
GetRanNum = GetRanNum&FormatIntNumber(heure(maintenant),2)
GetRanNum = GetRanNum&FormatIntNumber(minute(maintenant),2)
GetRanNum = GetRanNum&FormatIntNumber(seconde(maintenant),2)
randomiser
num_ran=int((9000*rnd)+1000)
GetRanNum = GetRanNum&ranNum
Fonction de fin
Fonction FormatIntNumber (Expression, Chiffre)
'******************************************
'Nom de la fonction : FormatIntNumber
'Fonction : Sortie d'un entier avec 0 sur le côté gauche du bit Digit
'Paramètre : Expression ----Entier à formater
'Paramètre : Chiffre ---- nombre de chiffres à formater
'Valeur de retour : telle que 0005, telle que FormatIntNumber(5,4), l'entier 5 est au format 0005
'Fonction associée : aucune
'******************************************
Tandis que Len (Expression) < Chiffre
Expression = "0"&Expression
wend
FormatIntNumber = Expression
Fonction de fin
%>