PHSYS - Wiki

A função DecodeTime decompõe um valor de data e hora (TDateTime) nos componentes de hora, minuto, segundo e milissegundo.

Sintaxe

procedure DecodeTime(e: TDateTime; var Hora, Minuto, Segundo, MiliSegundo: Word);

Parâmetros

Nome	Tipo	Descrição
e	TDateTime	Valor numérico que representa a data e hora.
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;
  hora, minuto, segundo, miliSegundo: Word;
begin
  dataHora := Now;
  DecodeTime(dataHora, hora, minuto, segundo, miliSegundo);
  Informacao('Hora: ' + IntToStr(hora) + ', Minuto: ' + IntToStr(minuto) +
            ', Segundo: ' + IntToStr(segundo) + ', Milissegundo: ' + IntToStr(miliSegundo));
end.