飞狐公式----日干支：）

东海孤尘

飞狐公式----日干支：）

来自：MACD论坛(bbs.macd.cn) 作者：东海孤尘 浏览：9033 回复：11

  常常为了知道软件的上K线当天的干支和星期几而去查万年历，为了偷懒就做了个公式：）
  代码如下：
**************************************************
drawtext(weekday=1,10,'一') colorgray;
drawtext(weekday=2,10,'二') colorgray;
drawtext(weekday=3,10,'三') colorgray;
drawtext(weekday=4,10,'四') colorgray;
drawtext(weekday=5,10,'五') colorgray;
z:=GANZHI(DATE, 0, 2);
drawtext(z=0,0,'甲子') colorgray;
drawtext(z=1,0,'乙丑') coloryellow;
drawtext(z=2,0,'丙寅') colorgreen;
drawtext(z=3,0,'丁卯') colorgreen;
drawtext(z=4,0,'戊辰') coloryellow;
drawtext(z=5,0,'己巳') colorred;
drawtext(z=6,0,'庚午') colorred;
drawtext(z=7,0,'辛未') coloryellow;
drawtext(z=8,0,'壬申') colorwhite;
drawtext(z=9,0,'癸酉') colorwhite;
drawtext(z=10,0,'甲戍') coloryellow;
drawtext(z=11,0,'乙亥') colorgray;
drawtext(z=12,0,'丙子') colorgray;
drawtext(z=13,0,'丁丑') coloryellow;
drawtext(z=14,0,'戊寅') colorgreen;
drawtext(z=15,0,'己卯') colorgreen;
drawtext(z=16,0,'庚辰') coloryellow;
drawtext(z=17,0,'辛巳') colorred;
drawtext(z=18,0,'壬午') colorred;
drawtext(z=19,0,'癸未') coloryellow;
drawtext(z=20,0,'甲申') colorwhite;
drawtext(z=21,0,'乙酉') colorwhite;
drawtext(z=22,0,'丙戍') coloryellow;
drawtext(z=23,0,'丁亥') colorgray;
drawtext(z=24,0,'戊子') colorgray;
drawtext(z=25,0,'己丑') coloryellow;
drawtext(z=26,0,'庚寅') colorgreen;
drawtext(z=27,0,'辛卯') colorgreen;
drawtext(z=28,0,'壬辰') coloryellow;
drawtext(z=29,0,'癸巳') colorred;
drawtext(z=30,0,'甲午') colorred;
drawtext(z=31,0,'乙未') coloryellow;
drawtext(z=32,0,'丙申') colorwhite;
drawtext(z=33,0,'丁酉') colorwhite;
drawtext(z=34,0,'戍戍') coloryellow;
drawtext(z=35,0,'巳亥') colorgray;
drawtext(z=36,0,'庚子') colorgray;
drawtext(z=37,0,'辛丑') coloryellow;
drawtext(z=38,0,'壬寅') colorgreen;
drawtext(z=39,0,'癸卯') colorgreen;
drawtext(z=40,0,'甲辰') coloryellow;
drawtext(z=41,0,'乙巳') colorred;
drawtext(z=42,0,'丙午') colorred;
drawtext(z=43,0,'丁未') coloryellow;
drawtext(z=44,0,'戊申') colorwhite;
drawtext(z=45,0,'己酉') colorwhite;
drawtext(z=46,0,'庚戍') coloryellow;
drawtext(z=47,0,'辛亥') colorgray;
drawtext(z=48,0,'壬子') colorgray;
drawtext(z=49,0,'癸丑') coloryellow;
drawtext(z=50,0,'甲寅') colorgreen;
drawtext(z=51,0,'乙卯') colorgreen;
drawtext(z=52,0,'丙辰') coloryellow;
drawtext(z=53,0,'丁巳') colorred;
drawtext(z=54,0,'戊午') colorred;
drawtext(z=55,0,'己未') coloryellow;
drawtext(z=56,0,'庚申') colorwhite;
drawtext(z=57,0,'辛酉') colorwhite;
drawtext(z=58,0,'壬戍') coloryellow;
drawtext(z=59,0,'癸亥') colorgray;

东海孤尘

谢谢了：）看来您是个高手，有机会一定要向您学习一下：）

戊子

写那么多,飞狐会变成牛车的!

东海孤尘

[这个贴子最后由东海孤尘在 2003/03/19 09:14pm 第 2 次编辑]

没有关系，我有一个公式，写了200多页WORD，还一样用：）

戊子

飞狐公式编辑器最多只能写800行,你到是写了200多页!

jrgt

请问   DRAWYITEXT( date,30,ganzhi(date,0,2),0);
DRAWYITEXT(date,20,ganzhi(date,0,1),0);
DRAWYITEXT(date,10,(5 - INTPART(GANZHI(DATE, 0,2)/10)) * 2,0);
加在哪个后面
请 从新贴下
谢谢~~~~~

k88

飞狐自带函数的年天干，年地支每年一月份与其他月份不同，你们注意到了吗？
mod(ganzhi(date,0,0),12);
mod(ganzhi(date,0,0),10);
请看一月份

zhouhengde

谢谢楼主的程式，可以移植到其它软件中去，如MetaTrader......

wangxiao

Originally posted by dklsc at 2003-3-23 07:47
[这个贴子最后由dklsc在 2003/03/23 01:19pm 第 1 次编辑]

drawtext(weekday=1,35,'一') ,colorgray;
drawtext(weekday=2,35,'二') ,colorgray;
drawtext(weekday=3,35,'三') ,colorgray;
drawtext(weekday=4 ...

我的飞狐年干支（方框中）怎么会变化？

zjxcjd

如:2007年10月16日:山地剥(乾宫6)、天泽履(艮宫8)、山水蒙(离宫9)、泽山咸(天山遁6后一天)(兑7)、秋季、查地址一样、这个预测我几个月前就会看到、九宫格中、年月周或月周日都形成三角形、宫格加为23、月周日宫格加为23(以天山遁6计)、
有研究此方法的易友共同研究、QQ：253823944

ibm0002

DRAWYITEXT(date,10,(5 - INTPART(GANZHI(DATE, 0,2)/10)) * 2,0);

年干支总是跳动