显示日期、时间

{显示日期、时间}
年1:=YEAR;
月1:=MONTH;
日1:=DAY;
星期:=WEEKDAY;
时:=HOUR;
分:=MINUTE;
秒:=TIME;
wyy2:=LMONTH;
wyy3:=LDAY;
DRAWTEXTREL(600,770,NUMTOSTR(年1)+'年'+NUMTOSTR(月1)+'月'+NUMTOSTR(日1)+'日 星期'+NUMTOSTR(星期)+' 北京时间 '+STRLEFT(NUMTOSTRN(IF(CURRENTTIME<10000,0,CURRENTTIME),0),IF(CURRENTTIME>=10000 AND CURRENTTIME<100000,1,2))+'点 '+STRMID(NUMTOSTRN(CURRENTTIME,0),IF(CURRENTTIME<10000,1,IF(CURRENTTIME>=10000 AND CURRENTTIME<100000,2,3)),2)+'分 '{+STRRIGHT(NUMTOSTRN(CURRENTTIME,0),2)+'秒'}),LINETHICK2,Coloryellow;
DRAWTEXTREL(480,770,'农历:'+NUMTOSTRN(wyy2,0)+'月'+NUMTOSTRN(wyy3,0)+'日'),LINETHICK2,Coloryellow;