日月干支和纳音 通达信 手机和电脑版

尚易君

不错，有创意
取您个月支玩玩


DD   :=DATE;
距日 :=DATETODAY(DD)    +  33225 - 0.375 +1,NODRAW;
哪年  :=INTPART(DD/10000),NODRAW;
哪节  :=( MOD(INTPART(DD/100),100) -1 ) *2 ,NODRAW;
积日  :=365.242*哪年+6.15+15.2226*哪节-1.9*SIN(0.262*哪节) ,NODRAW;
积日春:=365.242*哪年+6.15+15.2226*  2 -1.9*SIN(0.262* 2  ) ,NODRAW;

月支:MOD(  哪年*12+  MOD(INTPART(DD/100),100) -(距日<积日)    ,12) +1 ,NODRAW;
月支位:=5;
DRAWTEXT(月支=REF(月支,1) AND 月支=1 ,月支位,'子'),COLORFFCC00;
DRAWTEXT(月支=REF(月支,1) AND 月支=2 ,月支位,'丑'),COLORYELLOW;
DRAWTEXT(月支=REF(月支,1) AND 月支=3 ,月支位,'寅'),COLORGREEN;
DRAWTEXT(月支=REF(月支,1) AND 月支=4 ,月支位,'卯'),COLORGREEN;
DRAWTEXT(月支=REF(月支,1) AND 月支=5 ,月支位,'辰'),COLORYELLOW;
DRAWTEXT(月支=REF(月支,1) AND 月支=6 ,月支位,'巳'),COLORRED;
DRAWTEXT(月支=REF(月支,1) AND 月支=7 ,月支位,'午'),COLORRED;
DRAWTEXT(月支=REF(月支,1) AND 月支=8 ,月支位,'未'),COLORYELLOW;
DRAWTEXT(月支=REF(月支,1) AND 月支=9 ,月支位,'申'),COLORWHITE;
DRAWTEXT(月支=REF(月支,1) AND 月支=10,月支位,'酉'),COLORWHITE;
DRAWTEXT(月支=REF(月支,1) AND 月支=11,月支位,'戌'),COLORYELLOW;
DRAWTEXT(月支=REF(月支,1) AND 月支=12,月支位,'亥'),COLORFFCC00;

尚易君

天心明月 发表于 2020-1-5 17:17
个人感觉还是电脑版，运用比较顺手一些。

易文化，最好粗看，粗用，
五行升降与股价升降，有对应性，但要活用，取生旺可也

天心明月

尚易君 发表于 2020-1-5 20:29
易文化，最好粗看，粗用，
五行升降与股价升降，有对应性，但要活用，取生旺可也

没别要那么复杂吧。

我现在感觉五行学好了也就可以了。


化繁为简。

我的一贯主张。

尚易君

天心明月 发表于 2020-1-5 20:33
没别要那么复杂吧。

我现在感觉五行学好了也就可以了。

是的！五行就够用了。
易者，简也！要简，要精，不要多，不要繁而众。

问候天

平道 发表于 2019-8-23 16:44
不需要有偿 , 复杂了 我也没有时间去弄 , 大家可以交流一下!

平道兄  飞狐和交易师  也有易学指标 需交流

平道

交易师编写比较简单 .