Muito obrigado. Vou testar e depois te dou o retorno.
Magno Nascimento
______________________________
TramaPaulista .:sites .:sistemas
11 4786.8167 9441.3165
----- Original Message -----
From: Fabiano Yahoo
To: [EMAIL PROTECTED]
Sent: Thursday, September 09, 2004 10:20 PM
Subject: Re: [delphi-br] Data Inválida
fiz uma funcao pra vc aqui esta
function Fdata(const s: string): boolean;
begin
try
StrtoDate(S);
Result := true;
except
Result := false;
end;
end;
coloque no seu codigo o seguinte
if Fdata(Copy(Tabela2Campotexto.Value,15,10)) then
Tabela1Campodata.Value := StrToDate(Copy(Tabela2Campotexto.Value,15,10));
----- Original Message -----
From: "Trama Paulista .:sites .:sistemas" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, September 09, 2004 2:28 PM
Subject: [delphi-br] Data Inválida
Estou fazendo uma leitura de um trecho de um campo de uma tabela para m
campo de outra tabela. Entretanto, eu gostaria de testar se o conteúdo está
correto.
Eu procedo da seguinte forma:
Tabela1Campodata.Value := StrToDate(Copy(Tabela2Campotexto).Value,015,010));
O conteúdo deste Copy é '21/12/2004' , mas às vezes acontece de o conteúdo
ser inválido, por exemplo, '56789 '.
Eu gostaria de saber se há como checar se o comando acima deu erro para daí
desconsiderá-lo, ou seja, verficar se seu conteúdo é realmente uma data.
Existe alguma rotina para tratamento de erros?
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]
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]
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
