tente esta
function VerificaData (Data: String): String ;
begin
if Data <> ' / / ' then begin
try
result := FormatDateTime('dd/mm/yyyy', StrToDate(Data));
except
result := ''
ShowMessage('Data Inválida !');
end;
end;
end;
e chame a funcao assim
------------------------
----- Original Message -----
From: Erika
To: delphi-br@yahoogrupos.com.br
Sent: Friday, January 07, 2005 1:17 PM
Subject: [delphi-br] Verificação de data (function)
Oi pessoal.
Eu queria fazer a verificação da data digitada, sendo que quando o
usuario digitar por exemplo 01/01/05 apareça 01/01/2005.
estou usando este código no OnExit do campo:
if Data <> ' / / ' then begin
try
MaskEdit1 := FormatDateTime('dd/mm/yyyy', StrToDate(MaskEdit1));
except
ShowMessage('Data Inválida !');
end;
end;
Está funcionando certinho, mas como tenho muitos campos de data, eu
achei que seria mais viável criar uma Function para tratar destas
datas. Porém se eu executo a Function no OnExit não funciona.
Coloquei a function assim:
function VerificaData (Data: String): String ;
begin
if Data <> ' / / ' then begin
try
Data := FormatDateTime('dd/mm/yyyy', StrToDate(Data));
except
ShowMessage('Data Inválida !');
end;
end;
end;
O que pode ser?
Obrigado! =====> ERikA
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
