Ver Mensaje Individual
  #6  
Antiguo 27-02-2007
Avatar de gluglu
[gluglu] gluglu is offline
Miembro Premium
 
Registrado: sep 2004
Ubicación: Málaga - España
Posts: 1.455
Reputación: 21
gluglu Va por buen camino
Es muy facil. Es dificil de creer que la solución que te voy a dar es la más simple y eficiente. Puedes comprobarla, y analiza el algoritmo que te explico, y verás que es correcto.

Yo lo utilizo en mi sistema de gestión de reservas de hoteles.

1. Obtienes todos los registros de fechas de trabajo de un profesor de terminado, ordenados por fechas de inicio. (Muy importante esto último.)

2. Realizas un loop 'Do while not eof' de esos registros obtenidos, habiendo creado previamente dos variables tipo fecha, p.ej. FechaMin y FechaMax.

3. Reemplazas FechaMin y FechaMax con los respectivos valores del 1er registro.

4. Realizamos el 'Do while not eof'

Código Delphi [-]
If (Fecha Inicio Nuevo Registro <= FechaMax)
  and  (Fecha Final Nuevo Registro >= FechaMin) then begin
    if Fecha Final Nuevo Registro > FechaMax then
      FechaMax := Fecha Final Nuevo Registro
end;

Presta especial atención a lo expuesto : Tienes que comparar Fecha Inicio nuevo registro con FechaMax (<=), y Fecha Final nuevo registro con FechaMin (>=).

5. Si la condición anterior NO se cumple estamos ante un nuevo periodo de fechas que NO se solapa con ningún otro, por lo que sumamos el número de días entre FechaMin y FechaMax a una variable TotalComputo o algo parecido.

6. Procedemos de nuevo por el punto 3 con el último registro y las nuevas FechasMin y FechaMax con los respectivos valores de FechaInicio y FechaFinal

7. Al final de recorrer todos los registros, obtendrás el total de días trabajados en la variable TotalComputo.

... envío este hilo y ahora intentaré añadir otro con un código más concreto como ejemplo.
__________________
Piensa siempre en positivo !
Responder Con Cita