FoxPro/Visual FoxPro - Consistenciar entrada de Personal

Estimado Amigos

me han pedido consistenciar la entrada del personal al momento de marca
que solo pueda marcar 5 minutos antes de su hora de entrada y tener 5 minutos
de tolerencia despues de su hora de entrada.

hora_extrada=08:00 segun Horario Establecido

hora_marca=07:55
hora_marca=08:05

Si esta entre este rango si puede marcar su hora de entrada
Si no lo bloque con un mensaje de error


De antemano Gracias por su apoyo

lcHora_entrada=<Marca> left(time(),5)

lcRango_menor = "07:55"
lcRango_Mayor = "08:05"

lnHora_Entrada =val(chrtran(lcHora_Entrada,chr(58), "")
lnRango_Menor = val(chrtran(lcRango_Menor,chr(58),"")
lnRango_Mayor = val(chrtran(lcRango_Mayor,chr(58),"")


lcRespuesta = ICASE( BETWEEN(lnHora_Entrada,lnRango_Menor,lnRango_Mayor), "Entró en Horario",;
lnHora_Entrada < lnRango_Menor ,"Espere a que llegue la hora!" ,;
"Parece que quedará a fuera: LLEGÓ TARDE")

Messagebox( lcRespuesta)

Lo probare y te aviso mil Gracias

Estimado Fidel
Mil Gracias por tu apoyo, pero me acaban de detallar y alcanzar una tabla y veo
q los horarios de entrada varian algunos o la gran mayoria entran a las 8am
otros a las 9:30, 12:00 y otros 14:00 y 23:00.
en este caso q hago amigo se podra restar y sumar o como

Mil Gracias

Estimado Jesus.
Lo que puedes hacer en ese caso es definir una tabla intermedia en la cual tengas rangos posibles de entrada y salida como su fueran tipos de horarios. A suvez asignarle a la tabla que te pasaron de horarios el tipo de horario asignado y establecer los rangos de acuerdo al tipo de horario que tenga asociado cada legajo o personal.