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 data ja retorna
true ou false, logo vc não precisa necessariamente do IF
//agora se tiver mais código para a condição ai sim, use o IF.
end;
.......................................................
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com/
.......................................................
Em 23/09/07, Interbrasileira <[EMAIL PROTECTED]> escreveu:
>
> 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 data do registro constante no DBEdit fosse 21.08.2007
>
> então dá o seguinte erro:
>
> project inter.exe raised exception class EconvertError with message
> "21.08.1907' is not a valid date'. Process stopped...etc etc
>
> ou seja, a data fica sem formato,, alem de diminur 100 anos...
>
> o DBEdit nesse caso, está pegando a data de uma tabela paradox...
>
> já alterei a máscara no datafield de diversas formas, mas não deu certo...
>
> agradeço qualquer dica do fundo do coração!!!!
>
> Abraços.
> Fernando.
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Links do Yahoo! Grupos
>
>
[As partes desta mensagem que não continham texto foram removidas]
