Función Delphi que devuelve la hora, minutos, segundos y milisegundos por separado de una fecha y hora dada (TDateTime).

La función tiene la siguiente sintaxis:

EncodeTime (fecha_completa, horas, minutos, segundos, milisegundos)

Ejemplo de uso:

procedure TformIncidencia.actResolverExecute(Sender: TObject);

var

  hora, minuto, segundo, milisegundo : word;

begin

  if permisosMenuUsuario (vtCodigoUsuario,

      vtNumIncidencia, vtPermisoResolverIncidenciaTecnico, true) then

  begin

    if md.tcIncidencia.RecordCount <= 0 then

      MessageDlg ('No hay incidencias para resolver.',

          mtWarning, [mbok], 0)

    else

    begin

      if md.tcIncidenciaresueltatecnico.AsString = 'S' then

        MessageDlg('La incidencia que intenta resolver ' +

            'ya ha sido resuelta.',

            mtInformation, [mbok], 0)

      else

      begin

        application.createform(TFormIncidenciaResolver,

            FormIncidenciaResolver);

        formIncidenciaResolver.Tag :=

            md.tcIncidenciacodigo.AsInteger;

        formIncidenciaResolver.txtFecha.Date := now;

        DecodeTime(Now, hora, minuto, segundo, milisegundo);

        formIncidenciaResolver.txtHoraResolucion.Time :=

            EncodeTime(hora, minuto, segundo, milisegundo);

        FormIncidenciaResolver.showmodal;

      end;

    end;

  end;

end;

Funciones Delphi