Ajuda Com Data

[Guest - Fernando -]

PessoALL

Tem alguma função pré definida que verifique se toda a data foi digitada corretamente, inclusive verificar se não foi digitado 00, datas inválidas.

Formato da data : DD/MM/YY

Abraços e Sucesso para ALL.

Att.

Fernando Vilela

[bolomaster]

cara tente trabalhar com as mascaras de entrada.. ou editmask como preferir..

elas já vao colocar para você no formato.. e não vai ter como alguém fugir dos padroes..... da sua maskra .. espero ter te ajudado

desculpe-me se falei bobeira

[DELPHI-Man32]

há!

se for um campo DBEdit você pode usar o editmask dos campos.

assim

##/##/## pode colocar assim que ele ajusta.

a data será verificada se é valida pelo sistema que verifique o formada da data usada pelo SO, se for false, retorna mensagem

invalid date.

tenta ai, sei lá..

qualquer coisa.....pergunta!!!!!!!!

falowss!

[Henrique Mizael]

procedure TForm1.(...........);

var

data: TDate; //variável que vai receber a data digitada

dia: word; //receberá o dia

mes: word; //receberá o mês

ano: word //receberá o ano

begin

try

data := StrToDate(Edit1.Text); //receberá a data digitada

DecodeDate(data, ano, mes, dia); //quebrará a data... não é nacessário usar este comando

except

ShowMessage('a data digitada é inválida!'); //se não for uma data válida retornará uma menssagem

end;

end;