通达信 年月日 干支 显示

道可道2088

通达信 年月日 干支 显示

来自：MACD论坛(bbs.shudaoyoufang.com) 作者：道可道2088 浏览：42785 回复：69

{算八字: 干支从1开始, 1970到1900天数 25567+1 ,1990.12.19到1900的天数 33224+1 ,0.375是收盘修正}
{DD    :=DATEC;}
DD   :=DATE;
{距日  :=DATETOD1970(DD)  +  25568 - 0.375 +1 ,NODRAW;}
距日 :=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(  哪年 -(距日<积日春) +6 ,10) +1 ,NODRAW;
年支:MOD(  哪年 -(距日<积日春)+12 ,12) +1 ,NODRAW;
月干:MOD(  哪年*12+  MOD(INTPART(DD/100),100) -(距日<积日) +2 ,10) +1 ,NODRAW;
月支:MOD(  哪年*12+  MOD(INTPART(DD/100),100) -(距日<积日)    ,12) +1 ,NODRAW;
{日干:MOD(DATETOD1970(DD) +7,10) +1 ,NODRAW;}
{日支:MOD(DATETOD1970(DD) +5,12) +1 ,NODRAW;}
日干:MOD(DATETODAY(DD) +4,10) +1 ,NODRAW;
日支:MOD(DATETODAY(DD) +6,12) +1 ,NODRAW;





{算八字: 显示}
NGW:=IF(年干=1,'甲',IF(年干=2,'乙',IF(年干=3,'丙',IF(年干=4,'丁',IF(年干=5,'戊',
     IF(年干=6,'己',IF(年干=7,'庚',IF(年干=8,'辛',IF(年干=9,'壬','癸')))))))));
NZW:=IF(年支=1,'子',IF(年支=2,'丑',IF(年支=3,'寅',IF(年支=4,'卯',IF(年支=5,'辰',IF(年支=6,'巳',
     IF(年支=7,'午',IF(年支=8,'未',IF(年支=9,'申',IF(年支=10,'酉',IF(年支=11,'戌','亥')))))))))));
YGW:=IF(月干=1,'甲',IF(月干=2,'乙',IF(月干=3,'丙',IF(月干=4,'丁',IF(月干=5,'戊',
     IF(月干=6,'己',IF(月干=7,'庚',IF(月干=8,'辛',IF(月干=9,'壬','癸')))))))));
YZW:=IF(月支=1,'子',IF(月支=2,'丑',IF(月支=3,'寅',IF(月支=4,'卯',IF(月支=5,'辰',IF(月支=6,'巳',
     IF(月支=7,'午',IF(月支=8,'未',IF(月支=9,'申',IF(月支=10,'酉',IF(月支=11,'戌','亥')))))))))));
RGW:=IF(日干=1,'甲',IF(日干=2,'乙',IF(日干=3,'丙',IF(日干=4,'丁',IF(日干=5,'戊',
     IF(日干=6,'己',IF(日干=7,'庚',IF(日干=8,'辛',IF(日干=9,'壬','癸')))))))));
RZW:=IF(日支=1,'子',IF(日支=2,'丑',IF(日支=3,'寅',IF(日支=4,'卯',IF(日支=5,'辰',IF(日支=6,'巳',
     IF(日支=7,'午',IF(日支=8,'未',IF(日支=9,'申',IF(日支=10,'酉',IF(日支=11,'戌','亥')))))))))));

DRAWTEXT(1,6,NGW),COLORFF80FF;
DRAWTEXT(1,5,NZW),COLORFF80FF;
DRAWTEXT(1,4,YGW),COLOR00FF00;
DRAWTEXT(1,3,YZW),COLOR00FF00;
DRAWTEXT(1,2,RGW),COLOR00FFFF;
DRAWTEXT(1,1,RZW),COLOR00FFFF;



7;
0;

道可道2088

逛了很久的论坛, 学到不少, 没有做什么贡献, 所以花了点时间 编了 这个通达信 公式 .  

和利达才

道可道2088 发表于 2017-6-20 18:48
逛了很久的论坛, 学到不少, 没有做什么贡献, 所以花了点时间 编了 这个通达信 公式 .

大智慧能不能

易中说易

感恩师兄的付出

忽如

好

易中说易

http://bbs.macd.cn/thread-2813401-1-1.html这样的指标您会编写吗？谢谢

明江

谢谢分享

angt351

神人

cgf9999

道可道2088

通达信的手机版非常强大, 至少目前为止 , 可以自编公式,   上面的代码可以直接 手机运行  , 一机在手 , 随时可观 , 酸爽 啊 !!!  

道可道2088

编易学公式, 最好用的是金魔方和交易师 , 可惜没有 手机版  , 通达信不太好编 , 函数少, 另外楼上说的哪些指标, 只要知道思路, 都可以编写!

cmj2004

道可道2088

G:\通达信  干支.png

道可道2088

不太会贴图 ,

道可道2088

大智慧, 肯定可以, 他的函数比通达信好.

伤心雨8

道可道2088 发表于 2017-6-21 01:20
通达信的手机版非常强大, 至少目前为止 , 可以自编公式,   上面的代码可以直接 手机运行  , 一机在手 , 随 ...

你好，请教下怎么导入到手机里面去！谢谢！

道可道2088

很简单, 我是直接电脑发QQ . 手机QQ收, 复制, 然后黏贴到通达信手机版, 就可以了.

HUAYAOBOBO

这两天正在找干支公式，太谢谢了！

天心明月

道可道2088 发表于 2017-6-21 15:42
不太会贴图 ,

道可道兄，有两个问题，一头雾水，能否赐教一下。


1。年干、年支、月干、月支、日干、日支，这几个干支后面的数字，是什么意思？


2。：7.00 ：0.00，是什么意思？

和利达才

道可道2088 发表于 2017-6-21 15:43
大智慧, 肯定可以, 他的函数比通达信好.

写个大智慧能用，谢谢