Ayuda acumular Horas

[[cHackAll]]

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.