Re: [delphi-br] Erro ao pegar data de um DBEdit

2007-09-24 Por tôpico Eduardo Silva dos Santos
Olá Fernando, que bom que deu certo.. sucesso pra vc.. Em 24/09/07, Fernando <[EMAIL PROTECTED]> escreveu: > > Muito bom, Eduardo!!! Usei essa segunda forma, ficou mais elegante > e deu certinho! > Obrigado e um grande abraço > > Fernando > Interbrasileira > > Eduardo Silva dos Santos escr

RES: [delphi-br] Erro ao pegar data de um DBEdit

2007-09-24 Por tôpico Elcio Domingos Ramos
l- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Interbrasileira Enviada em: domingo, 23 de setembro de 2007 10:17 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Erro ao pegar data de um DBEdit Prezados, estou a tentar fazer algo assim: procedure TDados.Form

Re: [delphi-br] Erro ao pegar data de um DBEdit

2007-09-24 Por tôpico Fernando
Muito bom, Eduardo!!! Usei essa segunda forma, ficou mais elegante e deu certinho! Obrigado e um grande abraço Fernando Interbrasileira Eduardo Silva dos Santos escreveu: > > Olá "*Interbrasileira"* > ** > Eu novamente... vc pode fazer de forma direta também... > > procedure TDados.FormShow(S

Re: [delphi-br] Erro ao pegar data de um DBEdit

2007-09-23 Por tôpico Eduardo Silva dos Santos
Olá "*Interbrasileira"* ** Eu novamente... vc pode fazer de forma direta também... procedure TDados.FormShow(Sender: TObject); Begin BitBtn4.Visible := TblCliente.FieldByName( 'Dt_Cadastro' ).AsDateTime > StrToDate( '09/10/2007' ); //Note que o simple fato de comparar o campo com a d

Re: [delphi-br] Erro ao pegar data de um DBEdit

2007-09-23 Por tôpico Eduardo Silva dos Santos
Olá "*Interbrasileira"* ** Acho que você deveria comparar o valor diretamente do Campo ao qual o DBEDIT esta ligado, mais ou menos assim: procedure TDados.FormShow(Sender: TObject); Begin If TblClienteDt_Cadastro.AsDateTime < StrToDate( '09/10/2007' ) Then BitBtn4.Visible := false; end

[delphi-br] Erro ao pegar data de um DBEdit

2007-09-23 Por tôpico Interbrasileira
Prezados, estou a tentar fazer algo assim: procedure TDados.FormShow(Sender: TObject); Begin If StrToDate(DBEdit4.Text) <= 09/10/2007 Then BitBtn4.Visible := false; end; Ou seja, se a data é anterior a X, torna o botão invisível o caso é que tá me retornando msg de errro assim: digamos que a