Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Proyecto AjpdSoft: Foros

AjpdSoft :: Ver tema - Restar dos horas y obtener la diferencia en número
Foros de discusión Buscar Perfil FAQ Iniciar sesión
Information Restar dos horas y obtener la diferencia en número

Publicar nuevo tema Responder al tema
Foros de discusión » Borland Delphi, Codegear Delphi .Net   
Ver tema anterior :: Ver tema siguiente
AutorMensaje
delphi-time
Invitado





Asunto: Restar dos horas y obtener la diferencia en número Responder citando

¿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).
MensajePublicado:
Mar Sep 12, 2006 8:12 am
Top of Page
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: Restar dos horas y obtener la diferencia en número Responder citando



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:

Código:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DateUtils;

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.
MensajePublicado:
Mar Sep 12, 2006 8:26 am
Top of PageVer perfil de usuario
Mostrar mensajes de anteriores:   
Todas las horas son GMT - 1 Horas
Publicar nuevo tema Responder al tema
Foros de discusión » Borland Delphi, Codegear Delphi .Net  

Cambiar a:  
Key
  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