** mztolo 2006 cari minggu ke "n" dlm 1 thn itu dari tgl berapa s/d tgl berapa :)
** 1 thn asumsi 52 minggu
FUNCTION ctgl_aa
PARAMETERS minggu_ke,tgl_skr
SET ESCAPE ON
SET DATE DMY
SET CENTURY ON
CLEAR
STORE tgl_skr TO TGL,AA,BB,CC

x=0
DO WHILE WEEK(TGL)<=minggu_ke
   TGL2 = TGL
   TGL  = TGL + 1
   IF WEEK(TGL)>WEEK(TGL2)
       IF WEEK(TGL)=minggu_ke
          IF x=0
             AA = TGL
             x=1
          ENDIF
       ENDIF
   ELSE
      IF WEEK(TGL)=minggu_ke
          BB=TGL
      ENDIF
      IF MONTH(TGL)=12 AND WEEK(TGL)=1 AND YEAR(TGL)=YEAR(CC)
   	     BB=TGL-1
   	     EXIT
      ENDIF 
   ENDIF
ENDDO
RETURN trans(aa)+' - '+trans(bb)