Função DecodeDateTime

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.