<%
Функция GetRanNum()
'******************************************
'Имя функции: GetRanNum
'Функция: вывод случайных чисел в формате даты
'Параметры: Нет ----
'Возвращаемое значение: например, GetRanNum(), который выводит 200409071553464617, то есть 4617 случайных чисел в 15:53:46 7 сентября 2004 г.
'Связанная функция: FormatIntNumber
'******************************************
GetRanNum = ""
GetRanNum = GetRanNum&FormatIntNumber (год (сейчас), 4)
GetRanNum = GetRanNum&FormatIntNumber(месяц(сейчас),2)
GetRanNum = GetRanNum&FormatIntNumber(день (сейчас),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(выражение) <цифра
Выражение = "0"&Выражение
идти
ФорматИнтНомер = Выражение
Конечная функция
%><%
Функция GetRanNum()
'******************************************
'Имя функции: GetRanNum
'Функция: вывод случайных чисел в формате даты
'Параметры: Нет ----
'Возвращаемое значение: например, GetRanNum(), который выводит 200409071553464617, то есть 4617 случайных чисел в 15:53:46 7 сентября 2004 г.
'Связанная функция: FormatIntNumber
'******************************************
GetRanNum = ""
GetRanNum = GetRanNum&FormatIntNumber (год (сейчас), 4)
GetRanNum = GetRanNum&FormatIntNumber(месяц(сейчас),2)
GetRanNum = GetRanNum&FormatIntNumber(день (сейчас),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(выражение) <цифра
Выражение = "0"&Выражение
идти
ФорматИнтНомер = Выражение
Конечная функция
%>