|
|
|
发表于 2009-7-4 12:44
|
请求各路高手帮忙修改阴历纪年法
来自：MACD论坛(bbs.macd.cn)
作者：股手95900
浏览：2500
回复：1
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
以下这个显示阴历纪年编码，只能显示当天日期，请求各路高手帮忙修改一下，使其成为光标调动时，使其日期也随之变化。尤为感谢大家！
NGZ:=GANZHI(DATE,TIME,0)+1;
YGZ:=GANZHI(DATE,TIME,1)+1;
RGZ:=GANZHI(DATE,TIME,2)+1;
NG:=MOD(NGZ,10)+(IF(MOD(NGZ,10)=0,10,0));
NZ:=MOD(NGZ,12)+(IF(MOD(NGZ,12)=0,12,0));
YG:=MOD(YGZ,10)+(IF(MOD(YGZ,10)=0,10,0));
YZ:=MOD(YGZ,12)+(IF(MOD(YGZ,12)=0,12,0));
RG:=MOD(RGZ,10)+(IF(MOD(RGZ,10)=0,10,0));
RZ:=MOD(RGZ,12)+(IF(MOD(RGZ,12)=0,12,0));
XK:=INTPART(((IF(RGZ=0,60,RGZ))-1)/10);
PO:=SYSPARAM(1)=BARPOS;
DRAWTEXTEX(1,1,0,0, ' 年 月 日 旬( )空 '),colorFFFFCC;
DRAWTEXTEX(NG=1,1,0,0, ' 甲 '),colorFF;
DRAWTEXTEX(NG=2,1,0,0, ' 乙 '),colorFF;
DRAWTEXTEX(NG=3,1,0,0, ' 丙 '),colorFF;
DRAWTEXTEX(NG=4,1,0,0, ' 丁 '),colorFF;
DRAWTEXTEX(NG=5,1,0,0, ' 戊 '),colorFF;
DRAWTEXTEX(NG=6,1,0,0, ' 己 '),colorFF;
DRAWTEXTEX(NG=7,1,0,0, ' 庚 '),colorFF;
DRAWTEXTEX(NG=8,1,0,0, ' 辛 '),colorFF;
DRAWTEXTEX(NG=9,1,0,0, ' 壬 '),colorFF;
DRAWTEXTEX(NG=10,1,0,0, ' 癸 '),colorFF;
DRAWTEXTEX(NZ=1,1,0,0, ' 子 '),colorFF;
DRAWTEXTEX(NZ=2,1,0,0, ' 丑 '),colorFF;
DRAWTEXTEX(NZ=3,1,0,0, ' 寅 '),colorFF;
DRAWTEXTEX(NZ=4,1,0,0, ' 卯 '),colorFF;
DRAWTEXTEX(NZ=5,1,0,0, ' 辰 '),colorFF;
DRAWTEXTEX(NZ=6,1,0,0, ' 巳 '),colorFF;
DRAWTEXTEX(NZ=7,1,0,0, ' 午 '),colorFF;
DRAWTEXTEX(NZ=8,1,0,0, ' 未 '),colorFF;
DRAWTEXTEX(NZ=9,1,0,0, ' 申 '),colorFF;
DRAWTEXTEX(NZ=10,1,0,0, ' 酉 '),colorFF;
DRAWTEXTEX(NZ=11,1,0,0, ' 戌 '),colorFF;
DRAWTEXTEX(NZ=12,1,0,0, ' 亥 '),colorFF;
DRAWTEXTEX(YG=1,1,0,0, ' 甲 '),colorFF;
DRAWTEXTEX(YG=2,1,0,0, ' 乙 '),colorFF;
DRAWTEXTEX(YG=3,1,0,0, ' 丙 '),colorFF;
DRAWTEXTEX(YG=4,1,0,0, ' 丁 '),colorFF;
DRAWTEXTEX(YG=5,1,0,0, ' 戊 '),colorFF;
DRAWTEXTEX(YG=6,1,0,0, ' 己 '),colorFF;
DRAWTEXTEX(YG=7,1,0,0, ' 庚 '),colorFF;
DRAWTEXTEX(YG=8,1,0,0, ' 辛 '),colorFF;
DRAWTEXTEX(YG=9,1,0,0, ' 壬 '),colorFF;
DRAWTEXTEX(YG=10,1,0,0, ' 癸 '),colorFF;
DRAWTEXTEX(YZ=1,1,0,0, ' 子 '),colorFF;
DRAWTEXTEX(YZ=2,1,0,0, ' 丑 '),colorFF;
DRAWTEXTEX(YZ=3,1,0,0, ' 寅 '),colorFF;
DRAWTEXTEX(YZ=4,1,0,0, ' 卯 '),colorFF;
DRAWTEXTEX(YZ=5,1,0,0, ' 辰 '),colorFF;
DRAWTEXTEX(YZ=6,1,0,0, ' 巳 '),colorFF;
DRAWTEXTEX(YZ=7,1,0,0, ' 午 '),colorFF;
DRAWTEXTEX(YZ=8,1,0,0, ' 未 '),colorFF;
DRAWTEXTEX(YZ=9,1,0,0, ' 申 '),colorFF;
DRAWTEXTEX(YZ=10,1,0,0, ' 酉 '),colorFF;
DRAWTEXTEX(YZ=11,1,0,0, ' 戌 '),colorFF;
DRAWTEXTEX(YZ=12,1,0,0, ' 亥 '),colorFF;
DRAWTEXTEX(RG=1,1,0,0, ' 甲 '),colorFF;
DRAWTEXTEX(RG=2,1,0,0, ' 乙 '),colorFF;
DRAWTEXTEX(RG=3,1,0,0, ' 丙 '),colorFF;
DRAWTEXTEX(RG=4,1,0,0, ' 丁 '),colorFF;
DRAWTEXTEX(RG=5,1,0,0, ' 戊 '),colorFF;
DRAWTEXTEX(RG=6,1,0,0, ' 己 '),colorFF;
DRAWTEXTEX(RG=7,1,0,0, ' 庚 '),colorFF;
DRAWTEXTEX(RG=8,1,0,0, ' 辛 '),colorFF;
DRAWTEXTEX(RG=9,1,0,0, ' 壬 '),colorFF;
DRAWTEXTEX(RG=10,1,0,0, ' 癸 '),colorFF;
DRAWTEXTEX(RZ=1,1,0,0, ' 子 '),colorFF;
DRAWTEXTEX(RZ=2,1,0,0, ' 丑 '),colorFF;
DRAWTEXTEX(RZ=3,1,0,0, ' 寅 '),colorFF;
DRAWTEXTEX(RZ=4,1,0,0, ' 卯 '),colorFF;
DRAWTEXTEX(RZ=5,1,0,0, ' 辰 '),colorFF;
DRAWTEXTEX(RZ=6,1,0,0, ' 巳 '),colorFF;
DRAWTEXTEX(RZ=7,1,0,0, ' 午 '),colorFF;
DRAWTEXTEX(RZ=8,1,0,0, ' 未 '),colorFF;
DRAWTEXTEX(RZ=9,1,0,0, ' 申 '),colorFF;
DRAWTEXTEX(RZ=10,1,0,0, ' 酉 '),colorFF;
DRAWTEXTEX(RZ=11,1,0,0, ' 戌 '),colorFF;
DRAWTEXTEX(RZ=12,1,0,0, ' 亥 '),colorFF;
DRAWTEXTEX(XK+1=6 ,1,0,0,' 甲戌 '),colorFF;
DRAWTEXTEX(XK+1=5 ,1,0,0,' 甲申 '),,colorFF;
DRAWTEXTEX(XK+1=4 ,1,0,0,' 甲午 '),,colorFF;
DRAWTEXTEX(XK+1=3 ,1,0,0,' 甲辰 '),,colorFF;
DRAWTEXTEX(XK+1=2 ,1,0,0,' 甲寅 '),,colorFF;
DRAWTEXTEX(XK+1=1 ,1,0,0,' 甲子 '),,colorFF;
DRAWTEXTEX(XK+1=6 ,1,0,0,' 子丑 '),colorFF;
DRAWTEXTEX(XK+1=5 ,1,0,0,' 寅卯 '),colorFF;
DRAWTEXTEX(XK+1=4 ,1,0,0,' 辰巳 '),colorFF;
DRAWTEXTEX(XK+1=3 ,1,0,0,' 午未 '),colorFF;
DRAWTEXTEX(XK+1=2 ,1,0,0,' 申酉 '),colorFF;
DRAWTEXTEX(XK+1=1 ,1,0,0,' 戌亥 '),colorFF;
[ 本帖最后由 股手95900 于 2009-7-4 12:46 编辑 ] |
|
|
陕ICP19026207号—2 陕ICP备20004035号
