Resta de Horas mediante DateTimePicker??

[[Lepe]]

Mira las funciones de la unidad DateUtils:

MillisecondsBetween
etc...

Saludos

[anghell77]

No he logrado solucionar nada con las funciones....
Lo siento...he batallado un resto con esta situacion....no creen ustedes que es mejor simplemente registrar hora de entrada y salida??

[ContraVeneno]

¿no puedes simplemente restar el valor de la entrada menos el valor de la salida?

si mi memoria no me falla, eso te dara un valor flotante donde la parte entera son los días y la parte decimal son las horas.

[luisgutierrezb]

quieres saber cuanto duraron en el sistema??
digamos...

Código Delphi [-]
Var
  Entrada,Salida, diferencia:TDatetime;
  dias:Integer;
  horas:string;
begin
  Entrada := DatetimePicker1.Date;
  Salida := Datetimepicker2.date;
  diferencia := salida - entrada;
  //para conocer el numero de dias que estuvo en el sistema:
  dias := Trunc(diferencia);
  //para conocer cuantas horas estuvo en el sistema:
  horas := formatdatetime('hh:mm:ss', Frac(diferencia));
end;

Espero te sirva, saludos!!

[anghell77]

Ok, Luis, parece que eso ha bastado para solucionar el problema este, he añadido un MaskEdit con Máscara de ShortTime para que me devuelva el valor...y falta hacer unos arreglos (conversiones) para realizar los calculos necesarios....Gracias....

Eso fue todo en este hilo....Gracias

[Ferrari]

Necesitas sacar el total de minutos ..prueba con este query:

select (3600*(sum(Datepart(hour,salida))) + 60*(sum(Datepart(minute,salida))) + (sum(Datepart(second,salida))) )-
(3600*(sum(Datepart(hour,entrada))) + 60*(sum(Datepart(minute,entrada))) + (sum(Datepart(second,entrada))) ) as TotalMinutos
from nres nolock
where convert(varchar (8),Entrada,112)='20050307'
and NoEmp=12

una vez que tengas el numero de minutos lo armas de nueva cuenta:
procedure TForm1.Button3Click(Sender: TObject);
var
T, H, M, S: Integer;
Time: TTime;
begin
//T := Query1['total'];
T := 27372;
H := T div 3600;
M := (T mod 3600) div 60;
S := (T mod 3600) mod 60;
Time := EncodeTime(H, M, S, 0);
label4.Caption:= TimeToStr(Time);
end;