Pessoal, uma dúvida meio básica, eu acho...

Tenho uma entrada de data em um formulário onde preciso informar o mês para fazer um relatório. Como solução utulizei dois Inputbox para informar mês e ano (numérico) para então  "montar" a data utilizando a  linha "mes_relatorio = DateSerial(ano, mes, 1)".
Gostaria de utilizar uma solução de exibir um calendário para o usuário selecionar o mês para o relatório, mas não sei nem por onde começar...

Alguém pode me ajudar?

Olá, Cleber!

 

Se estiver utilizando o VB6, faça o seguinte:

 

- vá em [Project -> Components...];

- adicione 'Microsoft Windows Common Controls-2 6.0';

- nos componentes adionados à 'Toolbox', escolha o de nome 'DTPicker';

- configure suas propriedades.

 

Em tempo de execução, este controle exibe um calendário, que é muito

simples de se utilizar, para a escolha de uma data. Daí, é só usar a sua

propriedade 'Value' no código do programa e pronto. Sua utilização é

muito fácil e requer muito pouca codificação.  

 

 

Joseph
Técnico em Informática/Programador
São Paulo/SP

 

Primeiro voce deve adcionar o Microsoft Calendar Control

 

Segundo Crie um formulário com o calendário

 

No formulário que ira receber a digitação no campo da data coloque no gotfocus uma chamada ao seu formulário que tem o calendário, se tiver + de um campo com data guarde o nome do controle numa variável publica

 

Ao fechar o formulário do Calendário (unload) faça:

    If Controle = "Data_Nota" Then formulario.Data_Nota.Text = Calendar1.Value
    Unload Me