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:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
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; |
