飞狐用 农历年月日时 请自行优化 抛砖

问候天

飞狐用 农历年月日时 请自行优化 抛砖

来自：MACD论坛(bbs.macd.cn) 作者：问候天 浏览：7157 回复：5

1. -100    COLORBLACK;
   
2. 上市:LLV(DATE ,0 ),linethick0;
   
3. K1:=SYSPARAM(1)=BARPOS;
   
4. DRAWTEXT(K1 AND DATE,90,'    年'),ALIGN1,COLORYELLOW;
   
5. DRAWYITEXT(K1 AND DATE,91,GANZHI(DATE,0,0),0),ALIGN1,COLORYELLOW;
   
6. 
   
7. DRAWTEXT(K1 AND DATE,66,'    月'),ALIGN1,COLORWHITE;
   
8. DRAWYITEXT(K1 AND DATE,66,GANZHI(DATE,0,1),0),ALIGN1,COLORWHITE;
   
9. 
   
10. DRAWTEXT(K1 AND DATE,43,'    日'),ALIGN1,COLORCYAN;
    
11. DRAWYITEXT(K1 AND DATE,43,GANZHI(DATE,0,2),0),ALIGN1,COLORCYAN;
    
12. 
    
13. 日干:DRAWYITEXT(DATE,24,GANZHI(DATE,0,2),0),ALIGN3,COLORAAAAAA;
    
14. DRAWYITEXT(K1 AND DATE,24,GANZHI(DATE,0,2),0),ALIGN3,COLORFF9900;
    
15. 
    
16. 
    
17. 
    
18. //
    
19. 自然日:=DAYS1970-7651;
    
20. 自然日a:=DAYS1970-7653;
    
21. ab:=INTPART(自然日a/10);
    
22. acc:=ab*10;
    
23. 天干:=自然日a-acc+1;
    
24. b:=INTPART(自然日/12);
    
25. cc:=b*12;
    
26. 
    
27. 地支:=自然日-cc+1;
    
28. ggg:=GANZHI(DATE, TIME, 0);
    
29. b:=INTPART(ggg/12);
    
30. cc:=b*12;
    
31. 年支:=ggg-cc+1 POINTDOT;
    
32. 
    
33. QA:=SYSPARAM(1)=BARPOS;
    
34. DRAWTEXT(CLOSE>0  AND QA,8,'                         (    )空           ')PXUP90,COLORFFFFCC,ALIGN2;
    
35. 
    
36. 自然日3:=DAYS1970-7723;  dwd:=INTPART(自然日3/60);   dd2:=dwd*60;天数数:=自然日3-dd2+1;
    
37. aaaa:=IF(天数数>INTPART(自然日/60),1,0);bbba:=IF(天数数>10,1,0);ccca:=IF(天数数>20,1,0);
    
38. ddda:=IF(天数数>30,1,0);eeea:=IF(天数数>40,1,0);fffa:=IF(天数数>50,1,0);ggga:=IF(天数数>60,1,0);
    
39.     空亡1:=aaaa+bbba+ccca+ddda+eeea+fffa+1;bbb1:=IF(空亡1=1,12,0);ccc1:=IF(空亡1=2,10,0);
    
40.     ddd1:=IF(空亡1=3,8,0);eee1:=IF(空亡1=4,6,0);fff1:=IF(空亡1=5,4,0);ggg1:=IF(空亡1=6,2,0);
    
41.     月份份1:=bbb1+ccc1+ddd1+eee1+fff1+ggg1;
    
42. 空亡:=月份份1+(月份份1/100-1) POINTDOT;
    
43. DRAWTEXT(空亡=1.02  AND QA,8,'             子丑              ')PXUP90,COLORRED,ALIGN2;
    
44. DRAWTEXT(空亡=3.04  AND QA,8,'             寅卯              ')PXUP90,COLORRED,ALIGN2;
    
45. DRAWTEXT(空亡=5.06  AND QA,8,'             辰巳              ')PXUP90,COLORRED,ALIGN2;
    
46. DRAWTEXT(空亡=7.08  AND QA,8,'             午未              ')PXUP90,COLORRED,ALIGN2;
    
47. DRAWTEXT(空亡=9.10  AND QA,8,'             申酉              ')PXUP90,COLORRED,ALIGN2;
    
48. DRAWTEXT(空亡=11.12  AND QA,8,'            戌亥              ')PXUP90,,COLORRED,ALIGN2;
    
49. //
    
50. 
    
51. //
    
52. po:=SYSPARAM(1)=BARPOS;
    
53. N:=GANZHI(DATE,0,3);
    
54. 申:=N+8;
    
55. 未:=N+7;
    
56. 午:=N+6;
    
57. 巳:=N+5;
    
58. DRAWTEXT(po AND DATE,90,'时：    '),ALIGN2,colorCC00FF;
    
59. DRAWYITEXT(po AND DATE,90,巳,0),ALIGN2,colorCC00FF;
    
60. 
    
61. DRAWTEXT(po AND DATE,66,'时：    '),ALIGN2,colorFF;
    
62. DRAWYITEXT(po AND DATE,66,午,0),ALIGN2,colorFF;
    
63. 
    
64. DRAWTEXT(po AND DATE,43,'时：    '),ALIGN2,color33CCFF;
    
65. DRAWYITEXT(po AND DATE,43,未,0)PXUP,ALIGN2,color33CCFF;

复制代码

问候天

不揣浅陋 论坛好友见笑 抛砖引玉！

芬兰528

多谢

kingcobra007

股金可为

这个飞狐的软件全名称叫什么 ？

u2_dphvc74231

我执行出来怎么光标点击没反应，而且天支是横着显示的，求解