EncodeDate

Junta valores de ano, mês e dia formando uma data. No exemplo, estamos informando um valor às variáveis dia, mês e ano, e, a partir da função EncodeDate() iremos concatenar esses valores no formato de data, que será armazenada na variável data.

Exemplo:

xxxxxxxxxx

procedure TForm2.Button1Click(Sender: TObject);

var

 dia, mes, ano: Word; data: TDateTime;

begin

 ano := 2015;

 mes := 2;

 dia := 15;

 data := EncodeDate(ano, mes, dia);

 lblData.Caption := 'Data: ' + DateToStr(data);

end;