[delphi-br] ME AJUDEM!!! Verificar se uma data string é valida

2005-02-10 Por tôpico Erika Lemes


Bom pessoal, eu já mandei esta mensagem mas não consegui resolver meu problema 
e estou com urgência 
 
Eu estou transferindo os dados de um banco access para o paradox, porém no 
access ele está declarado como texto e no paradox é date! Eu queria verificar 
se a data é válida, pois existem muitos campos com datas como 01/101999 e elas 
eu quero descartar.
 
Estou usando este código:

function tbStrIsDate(const S: string): boolean;
begin
try
StrToDate(S);
Result := true;
except
Result := false;
end;

end;
 
Para chamar:
if tbStrIsDate(Edit1.Text) then
   ShowMessage(Edit1.Text + ' é data válida.')
else
   ShowMessage(Edit1.Text + ' NÃO é data válida.');
 
Porém não sei como fazer para não aparecer o erro quando a data é inválida!!! 
Gente me ajudem 
 
Obrigado a todos!!!
 


-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! 
agora.

[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: [delphi-br] ME AJUDEM!!! Verificar se uma data string é valida

2005-02-10 Por tôpico bafcoelho

Olá é simples... seu código está correto

Com o projeto aberto, entre em TOLLS  DEBUGGER OPTIONS
acesse a paleta Language Exceptions
e desabilite a opção Stop On Delphi Exceptions

eh só...

assim todos os erros do seu projeto devem ser tratados por você!!!
eu apenas desabilito essa opção depois que meu sistema estiver completo...
pois é bom pegar os errinhos durante a fase de construção...
mas se estiver tudo bem mande bala!!!

Um abraço


Bruno Coelho
  - Original Message - 
  From: Erika Lemes 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, February 10, 2005 8:16 PM
  Subject: [delphi-br] ME AJUDEM!!! Verificar se uma data string é valida



  Bom pessoal, eu já mandei esta mensagem mas não consegui resolver meu 
problema e estou com urgência 

  Eu estou transferindo os dados de um banco access para o paradox, porém no 
access ele está declarado como texto e no paradox é date! Eu queria verificar 
se a data é válida, pois existem muitos campos com datas como 01/101999 e elas 
eu quero descartar.

  Estou usando este código:

  function tbStrIsDate(const S: string): boolean;
  begin
  try
  StrToDate(S);
  Result := true;
  except
  Result := false;
  end;

  end;

  Para chamar:
  if tbStrIsDate(Edit1.Text) then
 ShowMessage(Edit1.Text + ' é data válida.')
  else
 ShowMessage(Edit1.Text + ' NÃO é data válida.');

  Porém não sei como fazer para não aparecer o erro quando a data é inválida!!! 
  Gente me ajudem 

  Obrigado a todos!!!


  
  -
  Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do Yahoo! 
agora.

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