Olá Érica...
Tente usar a função TryStrToDateTime(S, DataValue);
ela está na SysUtils.
Ele verifica se a string S é um datetime válido, se for, ele atribui o valor
na variavel DataValue e retorna verdadeiro.
PS) Eu uso ela no Delphi 6...
----- Original Message -----
From: "Erika" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Friday, January 07, 2005 12: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]
Links do Yahoo! Grupos
--
<<<<< 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
