DecodeTime

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;
alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario