Clipper/FiveWin - Calendario de Turnos

Amigos: Por casualidad alguien disponde de un programa para confeccionar calendario de turnos laborales rotativos, que pueda compartir. Turnos de 8 Hrs, Noche,Mañana,Tarde con dos domingos libres en el mes.
De antemano
Muchas Gracias

Existe un programa shareware llamado Gesturn, que te lo puedes descargar de
www.gesturn.com/descargas.htm
Esta en castellano.

Algo para calcular los domingos..

cls
set date fren
set cent on

cFecha1:=date()
cFecha2:=date()
total := 0
@1,1 SAY "FECHA 1" GET cFecha1
@2,1 SAY "FECHA 2" GET cFecha2
READ
t1 := dow(cfecha1)
t2 := cdow(cfecha1)
Total := cFecha2 - cFecha1

t := total
Domingos := 0
cFechita := cFecha1

Do While.t.
If cDow(cFechita) = "Domingo"
Domingos ++
End
cFechita ++
t--
if t = 0
exit
end

ENDDO

@ 4,1 SAY "DIAS......" + str(total)
@ 5,1 SAY "Domingos.." + STR(Domingos)
@ 6,1 SAY "nDia......" + STR(Total - domingos)