|
以下是通达信二十四节气提醒源码幅图（无源码的请下载附件导入）
{二十四节气提醒}
PLH:=CONST(HHV(H,130));
PLL:=CONST(LLV(L,130));
DRAWTEXT(CURRBARSCOUNT=105,PLH-(PLH-PLL)*0.191,'■本月农历节气'),COLOR0079F1;
DRAWTEXT(REFDATE(MONTH,DATE)=1 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.251,'小寒5日-7日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=1 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.308,'大寒20日-22日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=2 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.251,'立春3日-5日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=2 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.308,'雨水18日-20日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=3 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.251,'惊蛰5日-7日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=3 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.308,'春分20日-22日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=4 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.251,'清明4日-6日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=4 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.308,'谷雨19日-21日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=5 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.251,'立夏5日-7日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=5 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.308,'小满20日-22日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=6 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.251,'芒种5日-7日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=6 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.308,'夏至21日-23日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=7 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.251,'小暑6日-8日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=7 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.308,'大暑22日-24日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=8 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.251,'立秋7日-9日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=8 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.308,'处暑22日-24日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=9 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.251,'白露7日-9日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=9 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.308,'秋分22日-24日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=10 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.251,'寒露8日-10日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=10 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.308,'霜降23日-25日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=11 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.251,'立冬7日-9日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=11 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.308,'小雪22日-24日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=12 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.251,'大雪6日-8日'),COLORWHITE;
DRAWTEXT(REFDATE(MONTH,DATE)=12 AND CURRBARSCOUNT=102,PLH-(PLH-PLL)*0.308,'冬至21日-23日'),COLORWHITE;
843577701.png
|
