VALIDAR MES E ANO EM UM TEXTBOX
Olá...Por favor, gsotaria de saber como faço p/a validar mes e ano em um textbox...
Agradeço desde já...
Agradeço desde já...
if not isdate(text1.text) then
msbox([Ô]Data Invalida!!![Ô])
endif
msbox([Ô]Data Invalida!!![Ô])
endif
Mês e Ano seria desta form
suponha que o mes na data tenha de ser Julho(Mes 7)
Dim Data As Date
Data = [Ô]01/07/2009[Ô]
If Month(Data) = 7 then
msgbox [Ô]Mes valido[Ô]
Else
msgbox [Ô]Mes Inválido[Ô]
End If
[ô]E para o Ano é mesma coisa
If Year(Data) = 2009 then
msgbox [Ô]Ano valido[Ô]
Else
msgbox [Ô]Ano Inválido[Ô]
End If
e é isto
suponha que o mes na data tenha de ser Julho(Mes 7)
Dim Data As Date
Data = [Ô]01/07/2009[Ô]
If Month(Data) = 7 then
msgbox [Ô]Mes valido[Ô]
Else
msgbox [Ô]Mes Inválido[Ô]
End If
[ô]E para o Ano é mesma coisa
If Year(Data) = 2009 then
msgbox [Ô]Ano valido[Ô]
Else
msgbox [Ô]Ano Inválido[Ô]
End If
e é isto
Tópico encerrado , respostas não são mais permitidas