<%
Função GetRanNum()
'******************************************
'Nome da função: GetRanNum
'Função: Gera números aleatórios com formato de data
'Parâmetros: Nenhum ----
'Valor de retorno: como GetRanNum(), que gera 200409071553464617, que é 4.617 números aleatórios às 15:53:46 de 7 de setembro de 2004
'Função associada: FormatIntNumber
'******************************************
GetRanNum = ""
GetRanNum = GetRanNum&FormatIntNumber(ano(agora),4)
GetRanNum = GetRanNum&FormatIntNumber(mês(agora),2)
GetRanNum = GetRanNum&FormatIntNumber(dia(agora),2)
GetRanNum = GetRanNum&FormatIntNumber(hora(agora),2)
GetRanNum = GetRanNum&FormatIntNumber(minuto(agora),2)
GetRanNum = GetRanNum&FormatIntNumber(segundo(agora),2)
randomizar
numRan=int((9000*rnd)+1000)
GetRanNum = GetRanNum&ranNum
Função final
Função FormatIntNumber(Expressão,Dígito)
'******************************************
'Nome da função: FormatIntNumber
'Função: Produz um número inteiro com 0 no lado esquerdo do bit Digit
'Parâmetro: Expressão ----Inteiro a ser formatado
'Parâmetro: Dígito ---- número de dígitos a serem formatados
'Valor de retorno: como 0005, como FormatIntNumber (5,4), o número inteiro 5 é formatado como 0005
'Função associada: nenhuma
'******************************************
Enquanto Len(Expressão) <Dígito
Expressão = "0"&Expressão
vamos
FormatIntNumber = Expressão
Função final
%><%
Função GetRanNum()
'******************************************
'Nome da função: GetRanNum
'Função: Gera números aleatórios com formato de data
'Parâmetros: Nenhum ----
'Valor de retorno: como GetRanNum(), que gera 200409071553464617, que é 4.617 números aleatórios às 15:53:46 de 7 de setembro de 2004
'Função associada: FormatIntNumber
'******************************************
GetRanNum = ""
GetRanNum = GetRanNum&FormatIntNumber(ano(agora),4)
GetRanNum = GetRanNum&FormatIntNumber(mês(agora),2)
GetRanNum = GetRanNum&FormatIntNumber(dia(agora),2)
GetRanNum = GetRanNum&FormatIntNumber(hora(agora),2)
GetRanNum = GetRanNum&FormatIntNumber(minuto(agora),2)
GetRanNum = GetRanNum&FormatIntNumber(segundo(agora),2)
randomizar
numRan=int((9000*rnd)+1000)
GetRanNum = GetRanNum&ranNum
Função final
Função FormatIntNumber(Expressão,Dígito)
'******************************************
'Nome da função: FormatIntNumber
'Função: Produz um número inteiro com 0 no lado esquerdo do bit Digit
'Parâmetro: Expressão ----Inteiro a ser formatado
'Parâmetro: Dígito ---- número de dígitos a serem formatados
'Valor de retorno: como 0005, como FormatIntNumber (5,4), o número inteiro 5 é formatado como 0005
'Função associada: nenhuma
'******************************************
Enquanto Len(Expressão) <Dígito
Expressão = "0"&Expressão
vamos
FormatIntNumber = Expressão
Função final
%>