Obtener fechas especificas

[OscarRd]

Saludos colegas,


Trabajo en un sistema de Recursos Humanos y Nominas
y se me ha pedido crear automaticamente los periodos de pagos
los culaes pueden ser mensuales, quincenales o Semanales
por tanto necesito crear una funcion que pasandole la fecha o solo
el año, me retorne las quincenas de todos los meses del año, las semanas y logico el mes. Para de esta manera insertar la informacion en una tabla.

Ej:
Año :=2006
Quncenas :=True;
Enero 01/01/2006 al 15/01/2006 y 16/01/2006 al 31/012006

Febrero 01/02/2006 al 15/02/2006 y 16/01/2006 al 28/02/2006

lo mismo seria para las semanas..
Cualquier sugerencia, recomendacion o codigo sera bien recibido

Les estare sumamente agradecido por su colaboracion

Gracias de antemano

Delphi 5.0
Windows XP