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;
ou ainda, caso o Field não estaja adicionado ao TTable/TQuery
procedure TDados.FormShow(Sender: TObject);
Begin
If TblCliente.FieldByName( 'Dt_Cadastro' ).AsDateTime < StrToDate(
'09/10/2007' ) Then
BitBtn4.Visible := false;
end;
sucesso por ai...
.......................................................
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]
