RES: [delphi-br] TESTE DE DATA

2005-01-28 Por tôpico Eduardo Silva ® 

Para limpar a data e, por exemplo, desistir da data que foi digitada, abra o
fieldseditor da sua tabela, selecione o campo data e no evento OnSettext
digite

  if Text = '  /  /' then
 Sender.asString := ''
  else
 Sender.asString := Text;

Para a mensagem de erro vc usa a função abaixo:

function TestaData(Data: string): Boolean;
begin
   try
  StrToDate(Data);
  Result := True;
   except
  Result := False;
  Messagebox(application.handle,'Data inválida !','Erro',MB_OK or
MB_ICONERROR);
  SetActiveWindow(Application.handle);
   end;
end;



 -Mensagem original-
De: Trama Paulista .:sites .:sistemas [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 28 de janeiro de 2005 12:01
Para: Delphi - BR
Assunto: [delphi-br] TESTE DE DATA


  Pessoal,

  Tenho um form com um campo data com máscara 99/99/. Entretanto, se for
digitada uma data errada eme dá uma mensagem de erro e pede para teclar
escape para sair, coisa que qualquer usuário odeia.

  Gostaria de saber como fazer para evitar esta mensagem, ou seja, como
contornar esta situação, colocando eu mesmo uma mensagem de erro e
possibilitando a redigitação de uma data correta ou mesmo de limpar o campo.

  Desde já, obrigado.

  Magno

  [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]



Yahoo! Grupos, um serviço oferecido por:








--
  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

Re: RES: [delphi-br] TESTE DE DATA

2005-01-28 Por tôpico Oswaldo dos Santos Araujo 

Olá

Isto funciona só quando há certeza dos 4 digitos na data...é melhor 
usar  

  if trim(Text) = '/  /' then

Se usar o DateEdit do RX ou o JvDateEdit tem uma propriedade para 
testar a data ao sair da ediçãofunciona...

Atenciosamente

Oswaldo dos Santos Araujo


On 28 Jan 2005 at 13:09, Eduardo Silva ® wrote:

 
 Para limpar a data e, por exemplo, desistir da data que foi digitada,
 abra o fieldseditor da sua tabela, selecione o campo data e no evento
 OnSettext digite
 
  if Text = '   /   / ' then
  Sender.asString := ''
  else
  Sender.asString := Text;
 
 Para a mensagem de erro vc usa a função abaixo:
 
 function TestaData(Data: string): Boolean;
 begin
  try
  StrToDate(Data);
  Result := True;
  except
  Result := False;
  Messagebox(application.handle,'Data inválida !','Erro',MB_OK or
 MB_ICONERROR);
  SetActiveWindow(Application.handle);
  end;
 end;
 
 
 
 -Mensagem original-
 De: Trama Paulista .:sites .:sistemas 
 [mailto:[EMAIL PROTECTED]
 Enviada em: sexta-feira, 28 de janeiro de 2005 12:01
 Para: Delphi - BR
 Assunto: [delphi-br] TESTE DE DATA
 
 
  Pessoal,
 
  Tenho um form com um campo data com máscara 99/99/. Entretanto,
 se for digitada uma data errada eme dá uma mensagem de erro e pede
 para teclar escape para sair, coisa que qualquer usuário odeia.
 
  Gostaria de saber como fazer para evitar esta mensagem, ou seja, como
 contornar esta situação, colocando eu mesmo uma mensagem de erro e
 possibilitando a redigitação de uma data correta ou mesmo de limpar o
 campo.
 
  Desde já, obrigado.
 





-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.6 - Release Date: 27/01/05



-- 
 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