How to get week nos for a month ?

Question

hi frends...
i ve a requirement i ve to display week nos available in a  month....
for e.g.,
this is my input  month = 0908 that is (september 2008)
and i ve to get output as
36
37
38
39 ....these are all week nos

Answer 1

hi ,
make use of the following code  for your requirment.
FUNCTION ZZTEST1.
""Local Interface:
*"  IMPORTING
*"     REFERENCE(I_DATE) TYPE  CHAR4 OPTIONAL
*"  EXPORTING
*"     REFERENCE(EX_WEEK1) TYPE  CHAR2
*"     REFERENCE(EX_WEEKUPTO) TYPE  CHAR2
data : lv_date1 type sy-datum,
       lv_date2 type sy-datum,
       lv_week1 type scal-week,
       lv_week2 type scal-week,
       lv_mon type sy-datum,
       lv_sun type sy-datum,
       lv_enddt type S033-SPTAG.
Data : lv_mm(2) type c,
       lv_yy(2) type c,
       lv_dd(2) type c.
lv_mm = i_date(2).
lv_yy = i_date+2(2).
lv_dd = '01'.
concatenate '20' lv_yy lv_mm lv_dd into lv_date1.
CALL FUNCTION 'DATE_GET_WEEK'
        EXPORTING
            date         = lv_date1
        IMPORTING
            WEEK         = lv_Week1
        EXCEPTIONS
            DATE_INVALID = 1
            OTHERS       = 2.
ex_week1 = lv_week1+4(2).
CALL FUNCTION 'CBIH_RP02_GET_END_MONTH'
  EXPORTING
    DATE_MONTH       = lv_date1
IMPORTING
   END_MONTH        =  lv_enddt.
CALL FUNCTION 'DATE_GET_WEEK'
        EXPORTING
            date         = lv_enddt
        IMPORTING
            WEEK         = lv_Week2
        EXCEPTIONS
            DATE_INVALID = 1
            OTHERS       = 2.
ex_weekupto = lv_week2+4(2).
ENDFUNCTION.