求助各位老师,光标上所指的日期怎么写,比如当光标定在某k线上,即可德到108xxxx,谢谢各位老师!

//光标移动显示日期(可加入任一主图)
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,'改编：jn8188'),ALIGN5,LINETHICK4,colorFFFF;