FoxPro/Visual FoxPro - Saber los cantidad de lunes en el mes

Saludos a todos los foristas

Necesito una rutina que me permita saber la cantidad de lunes que existen en un mes, tengo una base de datos anual, pero hay que actualizarla todos los años y la idea es que sea automatico para calcular fechas anteriores

Agradecido de antemano

fecha = DATE() &&Aqui pones cualquir fecha
contador_lunes = 0
FOR dia = 1 TO DAY(Eom(fecha))
fecha_evaluar = CTOD(ALLTRIM(STR(dia))+"/"+ALLTRIM(STR(MONTH(fecha)))+"/"+ALLTRIM(STR(YEAR(fecha))))
IF DOW(fecha_evaluar)=2 &&es Lunes
contador_lunes = contador_lunes + 1
ENDIF
ENDFOR
? contador_lunes
****Ultimo dia del mes
FUNCTION EoM(tdFecha)
LOCAL ld
ld = GOMONTH(tdFecha,1)
RETURN ld - DAY(ld)
ENDFUNC

lee esto y complementaras el buen aporte del compañero plinio

http://www.portalfox.com/index.php?name=News&file=article&sid=1162&mode=nested&order=0&thold=0