olha...eu sei q já existe um monte de tópico auqi sobre isso....
mas não consegui encontrar nenhum q conseguiu me ajudar..
é o seguinte...
estou tentando validar a data deste jeito:
procedure TfrmCadCli.txtCadCli_DataNascExit(Sender: TObject);
var Data: TDate;
begin
Data := StrToDate(txtCadCli_DataNasc.Text);
if not (txtCadCli_DataNasc.Text = ' / / ') then
begin
[red]if not IsDate(Data) then[/red]
begin
Application.MessageBox('Data inválida!!! ', 'WINSUPERM', MB_ICONEXCLAMATION);
txtCadCli_DataNasc.SetFocus;
end;
end;
end;
mas sempre dá o erro na linha q está em vermelho, dizendo:
Pergunta
Gabriel Cabral
Boa tarde, galera..
olha...eu sei q já existe um monte de tópico auqi sobre isso....
mas não consegui encontrar nenhum q conseguiu me ajudar..
é o seguinte...
estou tentando validar a data deste jeito:
mas sempre dá o erro na linha q está em vermelho, dizendo:
[Error] U_frmCadCli.pas(1448): Undeclared identifier: 'IsDate'
qual pode ser o problema aí??
Muito Obrigado
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.