Muchas gracias de nuevo, ya lo he probado y funciona perfectamente, solo faltaba esto.
fechaFin := EncodeDate(2007, 08, 8-DayOfTheWeek(fechaIni)) un ; al final
fechaFin := DayInc(fechaIni,7); -> fechaFin := IncDay(fechaIni,6);
Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
|