PHSYS - Wiki

A função DecodeDateTime decompõe um valor de data e hora (TDateTime) nos componentes de ano, mês, dia, hora, minuto, segundo e milissegundo.

Sintaxe

procedure DecodeDateTime(e: TDateTime; var Ano, Mes, Dia, Hora, Minuto, Segundo, MiliSegundo: Word);

Parâmetros

Nome	Tipo	Descrição
e	TDateTime	Valor numérico que representa a data e hora.
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.
Hora	Word	Variável de saída que receberá a hora.
Minuto	Word	Variável de saída que receberá os minutos.
Segundo	Word	Variável de saída que receberá os segundos.
MiliSegundo	Word	Variável de saída que receberá os milissegundos.

Exemplos

var
  dataHora: TDateTime;
  ano, mes, dia, hora, minuto, segundo, miliSegundo: Word;
begin
  dataHora := Now;
  DecodeDateTime(dataHora, ano, mes, dia, hora, minuto, segundo, miliSegundo);
  Informacao('Ano: ' + IntToStr(ano) + ', Mês: ' + IntToStr(mes) + ', Dia: ' + IntToStr(dia) +
             ', Hora: ' + IntToStr(hora) + ', Minuto: ' + IntToStr(minuto) +
             ', Segundo: ' + IntToStr(segundo) + ', Milissegundo: ' + IntToStr(miliSegundo));
end.