How the get week of the month and from the year from a date

SUBROUTINE WeekNo(WEEK, DATE)
year = OCONV(DATE, 'D4Y')
gosub calc
WEEK = int((DATE - day1) / 7) + 1
if DATE < day1 then
     year -= 1
     gosub calc
     WEEK = int((DATE - day1) / 7) + 1
end else
     if WEEK = 53 then
          year += 1
          gosub calc
          if day1 >= dd0101 then WEEK = 1 
     end 
end 
return 
*---------------------------------------
calc:
     date0101 = ICONV('01.01.' : year, 'D4.') ;* date of first january
     dd0101 = OCONV(date0101, 'DW')       ;* day of week of first january
     if dd0101 < 4 then shift = 1 else shift = 8
     day1 = date0101 - dd0101 + shift
return
​

int( oconv(date,'DD') / 7 ) + 1 ​

Thanks Manu

It works perfectly everything, it was just everything that I needed, and with a good code I imagine that I was going to have to invoke ghosts to get to this result hahah

thanks again for your quick response...