送一个小玩意:光标移动显示日期
//光标移动显示日期(可加入任一主图)
variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=年份;
fm:=月份;
fd:=日期;
wd:=星期;
p:=系统参数(1);
str1:='今天是：'+numtostr(fy[p],0)+'年'+numtostr(fm[p],0)+'月'
+数字转化为字符串(fd[p],0)+'日, '+wday[wd[p]+1];
DRAWTEXT(BARSCOUNT(C)=SYSPARAM(1),h,str1),ALIGN2,coloryellow;
DRAWTEXT(SYSPARAM(1)=BARPOS,CLOSE,'改编：zhzwdc'),ALIGN5,LINETHICK4,colorFFFF;
附件: 您所在的用户组无法下载或查看附件
