checar data no maskedit quando m�s � 30 ou 31

Question

como fa�o�para avisar que data � invalida?...

Paulo_amorim · Answer

[quote:3086717fa8=�marbravo�]como fa�o�para avisar que data � invalida?[/quote:3086717fa8]Ol�Primeiro gostaria de dizre que usar um TDateTimePicker eh sempre aconselh�vel.Mas se quiser validar a data do maskedit pode-se tentar assim (assumindo que a data esta no formato DD/MM/YY ) :[code:1:3086717fa8]case StrToInt(Copy( maskedit1.Text, 4,2) ) of { testa o mes }1,3,5,7,8,10,12: if StrToInt( Copy(maskedit1.text, 1, 2) > 31 then ERRO;4,6,9,11: if StrToInt( Copy(maskedit1.text, 1, 2) > 30 then ERRO;2: if StrToInt( Copy(maskedit1.text, 1, 2) > 28 then ERRO;[/code:1:3086717fa8]onde ERRO pode ser um ShowMessage, um BEEP, ou qq coisa do tipoClaro que esse teste eh limitado, mas por ai vai......

Lucas Silva · Answer

ou tambem pode ser assim[code:1:872dd26af9]try SrtToDate(edit1.text); except SHowMessage(�data inv�lida!�); end;[/code:1:872dd26af9]...

Paulo_amorim · Answer

[quote:8d2743f8b9=�Lucas Alves Silva�]ou tambem pode ser assim

try
 SrtToDate(edit1.text);
 except SHowMessage(�data inv�lida!�);
 end;

[/quote:8d2743f8b9]

Ol�
:oops: :oops: :oops:
Boa Lucas, limpo e claro...o meu ficou muito feio

Voc� sabe se ele vai aceitar o valor 29/02/2003?

At�+

Lucas Silva · Answer

N�o aceita paulo...D� data inv�lida.......

F�rum checar data no maskedit quando m�s � 30 ou 31 #222086