How I can calculate how many sundays there are in a month ?
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Sunday calc
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 nSundayEmail: SamirSSabreu@gmail.com
xHarbour 1.2.3 + Fwhh 20.2
xHarbour 1.2.3 + Fwhh 20.2
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
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
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 )
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.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
thanks