USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Datas/Números/Strings)

Título da Dica:  Gerar Data Aleatoria
Postada em 22/9/2003 por Brexuega            
Depois da Hora vem a Data
----------------------------------------------------------------------
Public Function RndData() As Date
Dim dia As Integer
Dim mes As Integer
Dim ano As Integer
Dim diaM As Integer
Dim DataDef As Date
Dim TmpData As String
Do
    mes = Round((Rnd(Time) * 100), 0)
Loop Until mes > 0 And mes < 13
Do
    ano = Round((Rnd(Time) * 10000), 0)
Loop Until ano > 1900 And ano < Year(Date)
' se em vez de 1900 for 2000 o processo torna-se um pouco lento

Select Case mes
    Case 1, 3, 5, 7, 8, 10, 12
        diaM = 3
    Case 2
        If (ano Mod 4) = 0 And (ano Mod 100) = 0 Or (ano Mod 400) = 0 Then
            diaM = 1
        Else
            diaM = 0
        End If
    Case Else
        diaM = 2
End Select

Do
    dia = Round((Rnd(Time) * 100), 0)
Loop Until dia > 0 And dia < 28 + diaM

TmpData = dia & "/" & mes & "/" & ano

DataDef = CDate(TmpData)

RndData = DataDef
End Function
----------------------------------------------------------------------

¥ ADS

 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página