Função DecodeTime

Revisão de 16h10min de 23 de julho de 2024 por Peron.nobrega (discussão | contribs)
(dif) ← Edição anterior | Revisão atual (dif) | Versão posterior → (dif)

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.