Week2Month() Conversion function

[unixkd]

Hi all

I need a Function say Week2Month(nWeek, dDate) ----> nMonth

Where nWeek is 1-52 representing nWeek of the year
dDate default to Date()

Thanks

Joe

[Auge_Ohr]

I need a Function say Week2Month(nWeek, dDate) ----> nMonth

i use this to find Monday of a given Week / Year

Code: Select all

FUNCTION XF_KwMontag( nWoche, nJahr )
LOCAL dDay, nDayOfWeek, dDatum

   dDay := CTOD( "01.01." + LTRIM( STR( nJahr, 4, 0 ) ) )
   nDayOfWeek := IF( DOW( dDay ) = 1, 7, DOW( dDay ) - 1 )
   dDatum := IF( nDayOfWeek < 5, dDay - 6 - nDayOfWeek + 7 * nWoche, dDay + 8 - nDayOfWeek + 7 * ( nWoche - 1 ) )

RETURN ( dDatum )

now it is easy to find Month

[unixkd]

Perfect !!!

Thanks Jimmy