<%
الدالة GetRanNum()
'*********************************************************************************************************************************************************
'اسم الوظيفة: GetRanNum
'الوظيفة: إخراج أرقام عشوائية بتنسيق التاريخ
'المعلمات: لا يوجد ----
'قيمة الإرجاع: مثل GetRanNum()، التي تنتج 200409071553464617، وهو 4617 رقمًا عشوائيًا في الساعة 15:53:46 في 7 سبتمبر 2004
'الوظيفة المرتبطة: FormatIntNumber
'*********************************************************************************************************************************************************
GetRanNum = ""
GetRanNum = GetRanNum&FormatIntNumber(السنة(الآن),4)
GetRanNum = GetRanNum&FormatIntNumber(الشهر(الآن),2)
GetRanNum = GetRanNum&FormatIntNumber(day(now),2)
GetRanNum = GetRanNum&FormatIntNumber(ساعة(الآن),2)
GetRanNum = GetRanNum&FormatIntNumber(دقيقة(الآن),2)
GetRanNum = GetRanNum&FormatIntNumber(الثانية(الآن),2)
عشوائية
ranNum=int((9000*rnd)+1000)
GetRanNum = GetRanNum&ranNum
وظيفة النهاية
دالة FormatIntNumber(التعبير، الرقم)
'*********************************************************************************************************************************************************
'اسم الوظيفة: FormatIntNumber
'الوظيفة: إخراج عدد صحيح به 0 على الجانب الأيسر من بتة الرقم
'المعلمة: التعبير ----عدد صحيح سيتم تنسيقه
'المعلمة: الرقم ---- عدد الأرقام المطلوب تنسيقها
'قيمة الإرجاع: مثل 0005، مثل FormatIntNumber(5,4)، يتم تنسيق العدد الصحيح 5 كـ 0005
'الوظيفة المرتبطة: لا شيء
'*********************************************************************************************************************************************************
بينما Len(Expression) <Digit
التعبير = "0"&التعبير
com.wind
FormatIntNumber = التعبير
وظيفة النهاية
%><%
الدالة GetRanNum()
'*********************************************************************************************************************************************************
'اسم الوظيفة: GetRanNum
'الوظيفة: إخراج أرقام عشوائية بتنسيق التاريخ
'المعلمات: لا يوجد ----
'قيمة الإرجاع: مثل GetRanNum()، التي تنتج 200409071553464617، وهو 4617 رقمًا عشوائيًا في الساعة 15:53:46 في 7 سبتمبر 2004
'الوظيفة المرتبطة: FormatIntNumber
'*********************************************************************************************************************************************************
GetRanNum = ""
GetRanNum = GetRanNum&FormatIntNumber(السنة(الآن),4)
GetRanNum = GetRanNum&FormatIntNumber(الشهر(الآن),2)
GetRanNum = GetRanNum&FormatIntNumber(day(now),2)
GetRanNum = GetRanNum&FormatIntNumber(ساعة(الآن),2)
GetRanNum = GetRanNum&FormatIntNumber(دقيقة(الآن),2)
GetRanNum = GetRanNum&FormatIntNumber(الثانية(الآن),2)
عشوائية
ranNum=int((9000*rnd)+1000)
GetRanNum = GetRanNum&ranNum
وظيفة النهاية
دالة FormatIntNumber(التعبير، الرقم)
'*********************************************************************************************************************************************************
'اسم الوظيفة: FormatIntNumber
'الوظيفة: إخراج عدد صحيح به 0 على الجانب الأيسر من بتة الرقم
'المعلمة: التعبير ----عدد صحيح سيتم تنسيقه
'المعلمة: الرقم ---- عدد الأرقام المطلوب تنسيقها
'قيمة الإرجاع: مثل 0005، مثل FormatIntNumber(5,4)، يتم تنسيق العدد الصحيح 5 كـ 0005
'الوظيفة المرتبطة: لا شيء
'*********************************************************************************************************************************************************
بينما Len(Expression) <Digit
التعبير = "0"&التعبير
com.wind
FormatIntNumber = التعبير
وظيفة النهاية
%>