Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Tiempo (https://www.clubdelphi.com/foros/showthread.php?t=67860)

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

Cita:

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????
:confused:

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 :)

Cita:

Empezado por armando (Mensaje 363474)

no existe el BETWEEN????
:confused:

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.

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