Ver Mensaje Individual
  #1  
Antiguo 28-03-2005
Pascual Montes Pascual Montes is offline
Baneado
 
Registrado: nov 2004
Posts: 76
Reputación: 0
Pascual Montes Va por buen camino
Question time, comparar 2 campos ttime

hola colegas , tengo una aplicacion que es un control de timbres
es decir que por medio de codigo enciendo y apago el timbre de la empresa
para emitir una señal sonora. mi pregunta es esta
tengo una tabla con 1 solo campo que se llama HORA y que es tipo ttime
alli guardo los horarios en donde debe activarse mi timbre
ok, la cuestion es que tengo un timer en donde comparo la hora del sistema
con las horas que tengo programadas , cuando es igual debe activarse, el problema es que comparar por ejemplo 13:02:48 contra 13:02:16 no son iguales
obviamente como compara mis 2 campos ttime para que solo compare la hora y los segundos ? o alguna mejor idea ?

mi codigo es el siguiente:

bandera:=0;
for c:=0 to altura-1 do begin
Xcdn1:=matriz[c,0];

mhora:=strtotime(Xcdn1);
syshora:=time();
showmessage('horas = '+timetostr(mhora)+' <-> '+timetostr(syshora));
if syshora = mhora then begin
bandera:=1;
exit;
end;
end;

if bandera=1 then begin
showmessage('entre por bandera = 1');
asm
push dx
mov dx, 378h //
mov al, 255
out dx, al
pop dx
end;

sleep(4000);
asm
push dx
mov dx, 378h //
mov al, 255
out dx, al
pop dx
end;
bandera:=0;

end;

------------------
Gracias
saludos desde tierra de los mayas
Responder Con Cita