年:=INTPART(节/10000)+1900 ;
月:=INTPART(节/100)-(年-1900)*100;
日:=节-INTPART(节/100)*100;
当前:=DATE;
当前年:=INTPART(当前/10000)+1900 ;
当前月:=INTPART(当前/100)-(当前年-1900)*100;
当前日:=当前-INTPART(当前/100)*100;
日差:=DATETOD1970(节)-DATETOD1970(当前);
{以下显示坐标根据自己的显示器自行调整}
DRAWTEXTABS(10,20,'当前是'+numtostrn(当前年,0)+'年'+numtostrn(当前月,0)+'月'
+numtostrn(当前日,0)+'日 '+'距下个节日'+numtostrn(年,0)+'年'+numtostrn(月,0)+'月'
+numtostrn(日,0)+'日'+' 还有' +numtostrn(日差,0)+'天'),colorred;