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

   
Vista:

Saber los cantidad de lunes en el mes

Publicado por Endre Laczky (1 intervención) el 15/10/2007 01:52:34
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Saber los cantidad de lunes en el mes

Publicado por Plinio (7771 intervenciones) el 15/10/2007 12:33:41
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Saber los cantidad de lunes en el mes

Publicado por Ernesto Hernandez (4632 intervenciones) el 16/10/2007 01:28:41
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar