节日倒计时(大智慧)

{大智慧-----节日倒计时}

INPUT:节日日期(1100213,900000,2222222);{参数填下个节日日期,如春节是2010年02月13日填 1100213}

节:=节日日期;年:=INTPART(节/10000)+1900 ;月:=INTPART(节/100)-(年-1900)*100;日:=节-INTPART(节/100)*100;

当前:=DATE;当前年:=INTPART(当前/10000)+1900 ;当前月:=INTPART(当前/100)-(当前年-1900)*100;当前日:=当前-INTPART(当前/100)*100;

日差:=DATETOD1970(节)-DATETOD1970(当前);

{以下显示坐标根据自己的显示器自行调整}

DRAWTEXTAbs(6 ,2 ,'当前是'+当前年+'年'+当前月+'月'+当前日+'日'+'距下个节日'+年+'年'+月+'月'+日+'日'+'还有' + 日差+'天'),COLOR8888FF,LINETHICK3;

DRAwrECTABS(5,2 ,457 ,22 ,RGB(255,255,0) ),LAYER7;