|
Tengo una duda incontenible, tal sistema debe incluir a los segundos tambien verdad? por que no guardas la cantidad de segundos trabajados? como el asunto es mensual (supongo), debe reiniciar el contador o iniciar una nueva tupla (registro) mensualmente?
diariamente guarda:
[delphi]
var Entrada, Salida: TTimeStamp; Horas: Cardinal;
begin
Entrada := DateTimeToTimeStamp(Now); // La hora de entrada del empleado del día de hoy
...
...
Salida := DateTimeToTimeStamp(Now); // La hora de salida del mismo empleado
Horas := ((Salida.Date - Entrada.Date) * SecsPerDay) + ((Salida.Time - Entrada.Time) div MSecsPerSec);
end;[delphi]
finalmente tal valor lo añades al antuguo registro. puedes hasta guardar la hora de entrada temporalmente.
|