通达信二十四节气提醒源码幅图

{二十四节气提醒}

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;