PHSYS - Wiki

A função DecodeDate decompõe um valor de data (do tipo TDateTime) nos componentes ano, mês e dia.

Sintaxe

procedure DecodeDate(e: TDateTime; var Ano, Mes, Dia: Word);

Parâmetros

Nome	Tipo	Descrição
e	TDateTime	Valor numérico que representa a data.
Ano	Word	Variável de saída que receberá o ano.
Mês	Word	Variável de saída que receberá o mês.
Dia	Word	Variável de saída que receberá o dia.

Exemplos

var
  dataA: TDateTime;
  ano, mes, dia: Word;
begin
  dataA := Now;
  DecodeDate(dataA, ano, mes, dia);
  Informacao('Ano: ' + IntToStr(ano) + ', Mês: ' + IntToStr(mes) + ', Dia: ' + IntToStr(dia));
end.