<%
Función GetRanNum()
'******************************************
'Nombre de la función: GetRanNum
'Función: Genera números aleatorios con formato de fecha
'Parámetros: Ninguno ----
'Valor de retorno: como GetRanNum(), que genera 200409071553464617, que son 4617 números aleatorios a las 15:53:46 del 7 de septiembre de 2004
'Función asociada: FormatIntNumber
'******************************************
ObtenerNumRan = ""
GetRanNum = GetRanNum&FormatIntNumber(año(ahora),4)
GetRanNum = GetRanNum&FormatIntNumber(mes(ahora),2)
GetRanNum = GetRanNum&FormatIntNumber(día(ahora),2)
GetRanNum = GetRanNum&FormatIntNumber(hora(ahora),2)
GetRanNum = GetRanNum&FormatIntNumber(minuto(ahora),2)
GetRanNum = GetRanNum&FormatIntNumber(segundo(ahora),2)
aleatorizar
númeroran=int((9000*rnd)+1000)
GetRanNum = ObtenerRanNum&ranNum
Función final
Formato de funciónNúmeroInt(Expresión,Dígito)
'******************************************
'Nombre de la función: FormatIntNumber
'Función: genera un número entero con 0 en el lado izquierdo del bit de dígitos
'Parámetro: Expresión ----Entero a formatear
'Parámetro: Dígito ---- número de dígitos a formatear
'Valor de retorno: como 0005, como FormatIntNumber (5,4), el entero 5 tiene el formato 0005
'Función asociada: ninguna
'******************************************
Mientras Len(Expresión) <Dígito
Expresión = "0"&Expresión
encaminarse a
FormatIntNumber = Expresión
Función final
%><%
Función GetRanNum()
'******************************************
'Nombre de la función: GetRanNum
'Función: Genera números aleatorios con formato de fecha
'Parámetros: Ninguno ----
'Valor de retorno: como GetRanNum(), que genera 200409071553464617, que son 4617 números aleatorios a las 15:53:46 del 7 de septiembre de 2004
'Función asociada: FormatIntNumber
'******************************************
ObtenerNumRan = ""
GetRanNum = GetRanNum&FormatIntNumber(año(ahora),4)
GetRanNum = GetRanNum&FormatIntNumber(mes(ahora),2)
GetRanNum = GetRanNum&FormatIntNumber(día(ahora),2)
GetRanNum = GetRanNum&FormatIntNumber(hora(ahora),2)
GetRanNum = GetRanNum&FormatIntNumber(minuto(ahora),2)
GetRanNum = GetRanNum&FormatIntNumber(segundo(ahora),2)
aleatorizar
númeroran=int((9000*rnd)+1000)
GetRanNum = ObtenerRanNum&ranNum
Función final
Formato de funciónNúmeroInt(Expresión,Dígito)
'******************************************
'Nombre de la función: FormatIntNumber
'Función: genera un número entero con 0 en el lado izquierdo del bit de dígitos
'Parámetro: Expresión ----Entero a formatear
'Parámetro: Dígito ---- número de dígitos a formatear
'Valor de retorno: como 0005, como FormatIntNumber (5,4), el entero 5 tiene el formato 0005
'Función asociada: ninguna
'******************************************
Mientras Len(Expresión) <Dígito
Expresión = "0"&Expresión
encaminarse a
FormatIntNumber = Expresión
Función final
%>