Sunday calc

[Eoeo]

How I can calculate how many sundays there are in a month ?

[sambomb]

Code: Select all

Function GetSunday( nMonth, nYear )
Local nCont := 0, nSunday := 0, dDayIni := cTod("01/"+StrZero(nMonth,2)+"/"+StrZero(nYear,4))

   While Month(dDayIni+nCont) = nMonth
      If Dow(dDayIni+nCont++) = "Sunday"
         nSunday++
      end
   end

Return nSunday

 

[nageswaragunupudi]

Code: Select all

function Sundays( dDate )

   local x, d := EOM( dDate )

return If( ( x := Day( d ) - 28 ) == 0 .or. dow( d ) > x, 4, 5 )
 

Usage: Sundays( STOD( "20120101" ) ) --> Sundays in Jan 2012
Sundays( Date() ) --> Sundays in Sep 2012

[Eoeo]

Mr Nages Ineed the number of sunday in a month sample

september there are 30 days with 5 sundays

this I need to calculate the work Hour in this month

this run ok ( thanks to all )

Function GetSunday( nMonth, nYear )
Local nCont := 0
Local nSunday := 0
Local dInizio := cTod("01/"+StrZero(nMonth,2)+"/"+StrZero(nYear,4))
nSunday:=Sundays(dInizio)
Return nSunday


function Sundays( dDate )
local x, d := EOM( dDate )
return If( ( x := Day( d ) - 28 ) == 0 .or. dow( d ) > x, 4, 5 )

[nageswaragunupudi]

Code: Select all

function GetSundays( nMonth, nYear )

   local x, d := EOM( STOD( Str( nYear, 4 ) + StrZero( nMonth, 2 ) + '01' ) )

return If( ( x := Day( d ) - 28 ) == 0 .or. dow( d ) > x, 4, 5 )
 

CTOD() depends on SET DATE setting. Using STOD is safer.

[Eoeo]

thanks