DecodeDate

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.