PEGAR O MES E O ANO DE UMA DATA

LEANDRO.BUENO 31/05/2005 07:48:57
#86044
Pessoal gostaria de fazer o seguinte:
Em uma text tenho a data.
Como faço para que quando a data chegar por exemplo em:
mês 12 de 2005 abrir uma msgbox e dizer "Este é o ultimo mês do ano"

Agradeço pela atenção
TRUHILLO 31/05/2005 07:50:15
#86045
para pegar o mês e o ano bastam algumas funções simples do VB:

Mes = month(date)
Ano = year(date)

Era só isso, mesmo?
LEANDRO.BUENO 31/05/2005 08:05:14
#86047
mas para dar uma mensagem com o msgbox eu uso assim?
if Mes = 12(date) and Ano = 05(date) then
msgbox "Este é o ultimo mês do ano"
end if
USUARIO.EXCLUIDOS 31/05/2005 08:10:32
#86049 Resposta escolhida
Se vc tem um textbox, use a seguinte operação:

IF MONTH(TXTDATA) = 12 AND YEAR(TXTDATA) = 2005 THEN
MSGBOX "Este é o último mês do ano"
END IF
LEANDRO.BUENO 31/05/2005 08:13:25
#86050
ok amigo cybermac deu certo obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar