Ver Mensaje Individual
  #7  
Antiguo 04-07-2006
Avatar de Ferrari
Ferrari Ferrari is offline
Miembro
 
Registrado: jun 2006
Ubicación: Torreón, México
Posts: 154
Reputación: 18
Ferrari Va por buen camino
Checate con Esto

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;
Responder Con Cita