www.pudn.com > jq_caiwu.ARJ > GDCY.PRG

 SET COLOR TO N/B 
 @ 7, 9 CLEAR TO 12, 50 
 SET COLOR TO W/G 
 x1 = 6 
 x2 = 11 
 y1 = 8 
 y2 = 46 
 @ 6, 7 CLEAR TO 11, 47 
 DO box_1 
 pd = 0 
 SET COLOR TO W+/G 
 @ 8, 15 SAY '请输入目标月份:' GET pd PICTURE '99' 
 READ 
 IF pd>12 .OR. pd<1 
      ?? CHR(7) 
      @ 8, 15 SAY '                          ' 
      SET COLOR TO GR+/G 
      @ 8, 15 SAY '一年当中有' 
      @ 8, 27 SAY pd PICTURE '99' 
      @ 8, 31 SAY '月份吗?' 
      i = INKEY(0) 
 ELSE 
      yf1 = pd 
      ryf = pd 
      cd1 = pd 
      pd = STR(pd, 2, 0) 
      pd = LTRIM(pd) 
      pd = 'm'+pd 
      yf = pd 
      RUN cd .. 
      ! cd &pd 
      cd = pd 
      SET COLOR TO GR+/G 
      ?? CHR(7) 
      @ 8, 15 SAY '                        ' 
      @ 8, 15 SAY '进入'+pd+'月工作区,已修改系统' 
      zz = DAY(rq1) 
      yy = YEAR(rq1) 
      xx = STR(cd1, 2, 0)+'/'+STR(zz, 2, 0)+'/'+STR(yy, 4, 0) 
      rq1 = CTOD(xx) 
      @ 9, 15 SAY '日期' 
      SET COLOR TO W+/R 
      @ 9, 22 SAY rq1 
      i = INKEY(0) 
 ENDI 
 SET COLOR TO W+/N 
 @ 2, 2, 20, 50 BOX '鞍鞍鞍鞍鞍鞍' 
 @ 23, 28 SAY '当前数据的月份:'+STR(ryear, 4, 0)+'年'+STR(ryf, 2, 0)+'月' COLOR B+/BG  
 RETU 
*