PHSYS - Wiki

A função EncodeTime combina valores individuais de hora, minuto, segundo e milissegundo em um único valor de hora do tipo TDateTime.

Sintaxe

function EncodeTime(Hora, Minuto, Segundo, MiliSegundo: Word): TDateTime;

Parâmetros

Nome	Tipo	Descrição
Nome	Tipo	Descrição
Hora	Word	Hora (0 a 23).
Minuto	Word	Minuto (0 a 59).
Segundo	Word	Segundo (0 a 59).
MiliSegundo	Word	Milissegundo (0 a 999).

Exemplos

var
  hora: TDateTime;
  h, m, s, ms: Word;
begin
  h := 14;      // 14 horas
  m := 30;      // 30 minutos
  s := 0;       // 0 segundos
  ms := 0;      // 0 milissegundos
  hora := EncodeTime(h, m, s, ms);
  Informacao(TimeToStr(hora));
end.