Tiempo

[armando]

saludos
necesito hacer una aplicacion con tiempos, trabajo con delphi 7 y firebird
resulta que en un turno se trabaja de 7 de la mañana a 2 de la tarde en segundo turno de 14 a 23 de la noche
existe alguan funcion que pueda medir el tiempo, es decir que me pueda decir en que periodo de tiempo esta conforme al reloj del cpu

label13.Caption:=timetostr(now);
IF STRTOTIME(LABEL13.Caption)>= strtotime('10:01:00 p.m.') THEN
BEGIN
EDIT2.Enabled:=TRUE;
EDIT4.Enabled:=TRUE;
P11.Enabled:=TRUE;
MT1.Enabled:=TRUE;
T1T.Enabled:=FALSe;
END
else
IF STRTOTIME(LABEL13.Caption) = strtotime('12:30:00 p.m.') THEN
BEGIN

end;

no existe el BETWEEN????

[ioco]

Una opción sería crear una función que devuelva un booleano en función del resultado de dos CompareTime que comparen el valor del reloj en ese momento con el minimo y el máximo que te interesen respectivamente.

Espero te sirva la idea

[mcs]

Empezado por armando

no existe el BETWEEN????

Hacer un BETWEEN es muy simple:

Código Delphi [-]
var
  val1, val2, val3: Integer;
 
if (val1>=val2) and (val2<=val3) then
    // val2 está entre (between) val1 y val2

Y para hacerlo más efectivo, antes mirar que val1<val3, o sinó intercambiar las variables.

[armando]

ioco y mcs
Lo intento comienzo de nuevo, gracias como siempre
...