Vale, Aquí más información:
ZConfigHORA1 = La hora límite de llegada, por defecto está como 8:15:59 AM.
TiempoDespues = viene siendo media hora despúes del registro, despúes de media se realiza la salida.
Ahora = viene siendo el tiempo en el momento.
Ahora bien, la hora de llega oficial es a las 8:00:00 AM y el límite es a las 8:15:59 (ZConfigHORA1) si el usuario llega en ese rango no se marca tardanza pero despúes de ahi si se marca la tardanza, ejemplo:
juan perez llego marco a la 8:05:27 AM tardanza: 0
Fernando Leonor llego marco a las 8:16:31 AM tardanza: 1
de ahi el codigo:
Código Delphi
[-]if Ahora > ZCondigHora1.asTime then...
Si
Ahora es mayor que la hora limite pues se marca tardanza si no, No se marca.
Espero haberme explicado mejor,
.
Saludos.