ACC2002: Como gerar datas aleatórias

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 304085
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Moderado: Requer básica de macro, codificação e interoperabilidade habilidades.

Este artigo se aplica a um banco de dados do Microsoft Access (.mdb) e para um projeto Microsoft Access (.adp).

Sumário
Usando a função Rnd no Visual Basic for Applications (VBA), você pode gerar um valor de data aleatória. Isso pode ser útil para gerar dados de exemplo para seu aplicativo ou para valores de teste. Este artigo mostra duas funções que você pode usar para gerar datas aleatórias.
Mais Informações
Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades.
As duas funções incluídas são:
  • RandomDateInRange Gera uma data aleatória em um intervalo especificado.
  • RandomDate Gera uma data aleatória entre 30 de dezembro de 1899 e a data atual.

Código de exemplo

  1. Inicie o Microsoft Access e abra o banco de dados que você está trabalhando.
  2. Clique em módulos em objetos e, em seguida, clique em novo para inserir um novo módulo.
  3. Digite ou cole o código a seguir no módulo:
    Function RandomDateInRange(LowerDate As Date, UpperDate As Date) As Date    RandomDateInRange = Int((UpperDate - LowerDate + 1) * Rnd + LowerDate)End FunctionFunction RandomDate() As Date    ' multiply the Rnd function * date() + 1 to prevent dates    ' in the future    RandomDate = Int(Rnd() * CDbl(Date + 1))End Function					
  4. No menu arquivo , clique em Salvar <projectname> para salvar o módulo onde <projectname> é o nome do seu Visual Basic para aplicativos de projeto.
  5. Digite as seguintes linhas na janela Verificação imediata e pressione ENTER após cada linha:
    ? RandomDateInRange(#1/1/2001#, #12/31/2001#)
    ? RandomDate()					
Referências
Para obter mais informações sobre como gerar números aleatórios, no Editor do Visual Basic, clique em Ajuda do Microsoft Visual Basic no menu Ajuda , digite função arredondada no Assistente do Office ou no Assistente de resposta e, em seguida, clique em Pesquisar para exibir o tópico.

Para obter mais informações sobre valores de data, no Editor do Visual Basic, clique em Ajuda do Microsoft Visual Basic no menu Ajuda , digite o tipo de dados date no Assistente do Office ou no Assistente de resposta e, em seguida, clique em Pesquisar para exibir o tópico.
data aleatória de inf

Propriedades

ID do Artigo: 304085 - Última Revisão: 12/06/2015 04:08:30 - Revisão: 4.0

Microsoft Access 2002 Standard Edition

  • kbnosurvey kbarchive kbmt kbhowto KB304085 KbMtpt
Comentários