Codigo validar data

[Popin 0]

Ola, peguei esse codigo que faz a validação de data em um campo MaskEdit,

mas naõ estou conseguindo entender como ele funciona, Se alguém puder me ajudar.

ele funciona corretmante.

 

procedure CompletaData (Edit : TMasKEdit);

var Texto1, Texto2 : string;

begin

if (Edit.Text = ' / / ') then

Exit;

Texto1 := Copy (Edit.Text, 1, 6) + '2000';

Texto2 := Trim (Copy (Edit.Text, 7, 4));

Edit.Text := Copy (Texto1, 1, Length (Texto1)- Length(Texto2)) + Texto2;

try

StrToDate(Edit.Text);

except

MessageDlg('Data inválida', mtError, [mbOk], 0);

Edit.Clear;

Edit.SetFocus;

end;

end;

[ederverza 0]

Se dua intenção é somente validar uma data, pode usar assim:

 

if Trim(CampoData.Text) <> '/ /' then

begin

try

CampoData.Text := FormatDateTime('dd/mm/yyyy',StrToDate(CampoData.Text));

except

ShowMessage('Data inválida.');

CampoData.SetFocus;

CampoData.SelectAll;

SysUtils.Abort;

end;

end;