Saber dias de inicio y fin de semana dentro de un mes

se me ocurre que una forma pudiera ser haciendo un ciclo desde el dia 1
hasta el ultimo dia del mes y puedes evaluar cada una de las fechas (1/5,
2/5, 3/5 etc) con la funcion dow para saber si es lunes o no, pienso que
por alli puede salir

"Dario David Puccio" escribió en el mensaje de
noticias:#$Da2iR#

Amigos sabiendo por ejemplo que estamos en el mes 5 que calculo pucedo
usar para saber que dia comienza cada semana de mayo?

Gracias

Dario David Puccio
El Cyber_Gaucho
www.chispazodetradicion.com.ar
Las Malvinas Son Argentinas

http://groups.google.com/group/publ...13aa9b0a73


Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________


El 21/05/2010 16:06, Dario David Puccio escribió:

Amigos sabiendo por ejemplo que estamos en el mes 5 que calculo puedo usar
para saber que dia comienza cada semana de mayo?

Gracias

Mira si esto se sirve

*********************************************

* Calcula la semana que tiene un año y las

* distribuye entre los 12 meses

* elaborada por Edwin Duran, Republica Dominicana

* PERIODO(2009)

=PERIODO(2009)

Function PERIODO

Parameters ano

Local Fecha1,fecha2,Semana,CAL,mtotal

mtotal = 0

Clear

Fecha1 =Ctod("01/12/"+Str(ano-1))

fecha2 =Ctod("01/12/"+Str(ano))

?Fecha1

?Fecha2

*Para calcular cual es la ultima semana del año

Do While .T.

If Week(fecha2,1,1) = 1

Exit

Else

fecha2 = fecha2 + 1

Endif

Enddo

*Para calcular cual es la primera semana del año

Do While .T.

If Week(Fecha1,1,1) = 1

Exit

Else

Fecha1 = Fecha1 + 1

Endif

Enddo

Semana = 0

Do While mtotal <= Week(fecha2-1,1,1) &&fecha1 <= (fecha2-1)

Semana = Semana + 1

If Semana > 4

*Set Step On

CAL = CALCULTIMO(Fecha1,Month(Fecha1),(fecha2-1))

If CAL = 1

?Month(Fecha1),"TOTAL SEMANA MES", Alltrim(Str(Semana))

mtotal = mtotal + Semana

Semana = 0

Else

If CAL = 0

?Month(Fecha1),"TOTAL SEMANA MES", Alltrim(Str(Semana-1))

mtotal = mtotal + (Semana-1)

Fecha1 = Fecha1 -7

Semana = 0

Else

Exit

Endif

Endif

Endif

If Week(Fecha1,1,1) <= (Week(fecha2-1,1,1)-1)

Fecha1 = Fecha1 +7

Else

mtotal = mtotal +(Week(fecha2-1,1,1)-mtotal)

?Month(Fecha1),"TOTAL SEMANA MES", Alltrim(Str(Semana))

Exit

Endif

Enddo

?"total", mtotal

Return ""

Endfu



Procedure CALCULTIMO

Parameters FECHAS,MES,UltimoDia_Ultimasemana

Local SEMANAMISMOMES,SEMANA1,fecha

SEMANAMISMOMES = 2

For D = 1 To 7

SEMANA1 = Dow(FECHAS+D)

fecha = FECHAS+D

If SEMANA1 = 5

If Month(fecha) = MES &&And (fecha) <= UltimoDia_Ultimasemana

SEMANAMISMOMES = 1

Else

SEMANAMISMOMES = 0

Endif

Exit

ELSE

SEMANAMISMOMES = 0

Endif

Next D

Return SEMANAMISMOMES



"Dario David Puccio" escribió en el mensaje
news:%23$Da2iR%

Amigos sabiendo por ejemplo que estamos en el mes 5 que calculo puedo usar
para saber que dia comienza cada semana de mayo?

Gracias

Dario David Puccio
El Cyber_Gaucho
www.chispazodetradicion.com.ar
Las Malvinas Son Argentinas

FUNCTION strzero

PARAMETERS tcdato,tntamfinal,tndecimal

tndecimal = iif(pcount()<3,0,tndecimal)

local lcval

lcval = strtran(str(tcdato,tntamfinal,tndecimal),' ','0')

return lcval

FUNCTION Semana

PARAMETERS ldfecha

LOCAL fecdesde,fechasta,dia,quesemana,j

fecdesde =
ctod('01-'+Strzero(month(ldfecha),2)+'-'+Strzero(Year(ldfecha),4))

fechasta = gomo(fecdesde,1) - 1

quesemana=0

for j=1 to day(ldfecha)

dia =
ctod(strzero(j,2)+'-'+strzero(month(ldfecha),2)+'-'+strzero(year(ldfecha),4))

if dow(dia)=1 OR quesemana=0

quesemana = quesemana + 1

endif

Next

return quesemana



"Dario David Puccio" escribió en el mensaje
news:%23$Da2iR%

Amigos sabiendo por ejemplo que estamos en el mes 5 que calculo puedo usar
para saber que dia comienza cada semana de mayo?

Gracias

Dario David Puccio
El Cyber_Gaucho
www.chispazodetradicion.com.ar
Las Malvinas Son Argentinas