BLOQUEAR MES A ANOS

USUARIO.EXCLUIDOS 18/09/2006 11:57:06
#172126
BLZ
To criando tipo uma abertura do mes para trabalho, na hora de digitar a data ele vai verificar o mes e o ano vigente e não aceitara o mes e ano menor.

ex. O mes e 09 e o ano 2006, neste caso na hora de incluir o cadastro o textoBox não aceitar data menor q 9/2006. Eu to fazendo aqui so que não hora de navergar e caso o usuario clique nas datas anteriores ele acusa a data.
alguem sabe um jeito melhor de fazer isso?
MARCOSAV 18/09/2006 12:19:14
#172133 Resposta escolhida
Veja se entendi direito...

Option Explicit

[c]Private Sub Text1_LostFocus()
Dim Ddata As Date
Ddata = Text1
If Month(Text1) < Month(Now) Or Year(Text1) < Year(Now) Then
  MsgBox "Data inválida..."
End If
End Sub


Pelo que entendi é isso... Qquer coisa, mandda de volta, vlw ??

Abraço
T+
[/c]
Tópico encerrado , respostas não são mais permitidas
Voltar