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
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
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
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
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
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
6 matches
Mail list logo