Asunto: Restar dos horas y obtener la diferencia en número
¿Existe en Delphi alguna función para restar dos horas (de tipo TTime) y obtener la diferencia en número? lo que pretendo es lo siguiente:
Tengo una hora de entrada y una hora de salida y quiero saber las horas que hay trabajado un técnico (restando estas dos).
Publicado:
Mar Sep 12, 2006 8:12 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Restar dos horas y obtener la diferencia en número
Anuncios
delphi-time escribió:
¿Existe en Delphi alguna función para restar dos horas (de tipo TTime) y obtener la diferencia en número? lo que pretendo es lo siguiente:
Tengo una hora de entrada y una hora de salida y quiero saber las horas que hay trabajado un técnico (restando estas dos).
En la unidad DateUtils de Delphi existen multitud de funciones para tratamiento de fechas y horas. La función para restar dos horas y obtener el número de horas (en Double) es HourSpan. A continuación te mostramos un ejemplo de uso de esta función:
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
horaEntrada : TTime;
horaSalida : TTime;
begin
horaentrada := Now;
//incrementamos 5 horas a la hora de salida (para ver el resultado)
horaSalida := IncHour(now, 5);
ShowMessage ('Horas empleadas: ' + FloatToStr (HourSpan(horaSalida, horaEntrada)));
end;
end.
Nota: hemos utilizado también otra función de esta unidad llamada IncHour para incrementar a una fecha un número de horas.
No olvides poner en el uses del formulario la unidad DateUtils.
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A