主题：[建议]期权板块分类

以下内容为程序代码:

1     Y:=YEAR;
2     YY:=STRRIGHT(NUMTOSTR(Y,0),2);
3     MT:=MONTH;    //真实月份
4     //FDW:=DAYOFWEEK((Y-1900)*10000+MT*100+1);    //本月第一天星期几
5     FDW:=0;
6     FW3:=IF(FDW＜=3,3-FDW+22,7-(FDW-3)+22);    //本月第四个周三是几号
7     //DAY1:=STRCAT(STRCAT(YY,NUMTOSTREX(MT,0,2)),'01');    //本月第一天日期
8     tt:=DAYOFWEEK(1160616);
9     D:=DAY;
10     D1900:=(Y-1900)*10000+MT*100+D;
11     
12     M:=MT;
13     当月:=STRCAT(YY,NUMTOSTREX(M,0,2));
14     次月:=IF(M=12,STRCAT(STRRIGHT(NUMTOSTR(Y+1,0),2),'01'),STRCAT(YY,NUMTOSTREX(M+1,0,2)));
15     下季月:=IF(M=2 OR M=3 OR M=4,6,IF(M=5 OR M=6 OR M=7,9,IF(M=8 OR M=9 OR M=10,12,3)));
16     下下季月:=IF(M=2 OR M=3 OR M=4,9,IF(M=5 OR M=6 OR M=7,12,IF(M=8 OR M=9 OR M=10,3,6)));