validar data

Question

Ol�, tenho um formul�rio onde existe um DBEdit que serve para cadastrar a data de nascimento, se for digitado nele um valor errado, tipo 50/01/2004 o programa � interrompido lan�ando uma mensagem dize...

Rod001 · Answer

Pode-se fazer uma funcao com o seguinte codigo

function ValidarData(var pData: string): boolen
var dData : TDate;
begin
Result := True;
try
dData := strToDate(pData);
except
ShowMessage(�Data invalida !!!�);
Result:=false;
end;
end;

No onExite do campo Data, pode-se colocar o segunte codigo para focar:

if not ValidarData(campo.text) then
begin
campo.Clear;
campo.Setfocus;
end;

Oadventista · Answer

Desculpe a ignor�ncia, mas onde que eu coloco a fun��o, em que parte do c�digo....

Lucas Silva · Answer

[quote:75c3efc445=�oadventista�]Desculpe a ignor�ncia, mas onde que eu coloco a fun��o, em que parte do c�digo.[/quote:75c3efc445]Eu tenho em meus programas uma unit que chama utilitarios,que nela eu coloco estas fun��es..... (verificaCPF, validaData, e ect...)Fica bem organizado...Lucas!...

Felipemarinho · Answer

Voc� coloca no evento on exit do dbeditvoc� n�o precisa fazer uma fun��o.� s� colocar no evento on exit o seguimnteProcedure ...Begin  Try    StrToDate(Dbedit1.Text);  Except    ShowMessage( �Data Invalida �);    DBEdit1.SetFocus; // � para o foco n�o sair do dbedit enquanto n�o se digitar uma data v�lida End;End;...

F�rum validar data #205053