Resta de Horas mediante DateTimePicker??

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