其他分享
首页 > 其他分享> > citect2018页面日期时间显示美化

citect2018页面日期时间显示美化

作者:互联网

前段时间现场使用citect2018做了一个小的项目,不过使用单位总觉得日期时间显示不好看,本着为其服务的精神,我尝试着做了一下美化,不知道能入法眼不。

1.新建两个内部变量strWeekly,strMonth,都是字符串型。新建一个cicode函数

FUNCTION showweekly()
IF DateWeekDay(TimeCurrent())=1 THEN
strWeekly="星期天"
END
IF DateWeekDay(TimeCurrent())=2 THEN
strWeekly="星期一"
END
IF DateWeekDay(TimeCurrent())=3 THEN
strWeekly="星期二"
END
IF DateWeekDay(TimeCurrent())=4 THEN
strWeekly="星期三"
END
IF DateWeekDay(TimeCurrent())=5 THEN
strWeekly="星期四"
END
IF DateWeekDay(TimeCurrent())=6 THEN
strWeekly="星期五"
END
IF DateWeekDay(TimeCurrent())=7 THEN
strWeekly="星期六"
END

IF DateMonth(TimeCurrent())=1 THEN
strMonth="一月"
END
IF DateMonth(TimeCurrent())=2 THEN
strMonth="二月"
END
IF DateMonth(TimeCurrent())=3 THEN
strMonth="三月"
END
IF DateMonth(TimeCurrent())=4 THEN
strMonth="四月"
END
IF DateMonth(TimeCurrent())=5 THEN
strMonth="五月"
END
IF DateMonth(TimeCurrent())=6 THEN
strMonth="六月"
END
IF DateMonth(TimeCurrent())=7 THEN
strMonth="七月"
END
IF DateMonth(TimeCurrent())=8 THEN
strMonth="八月"
END
IF DateMonth(TimeCurrent())=9 THEN
strMonth="九月"
END
IF DateMonth(TimeCurrent())=10 THEN
strMonth="十月"
END
IF DateMonth(TimeCurrent())=11 THEN
strMonth="十一月"
END
IF DateMonth(TimeCurrent())=12 THEN
strMonth="十二月"
END
END

画面进入事件调用这个函数。

2. 画一个矩形,146*133,填充颜色RGB为255,128,0,画几条短的竖线,宽度为6,3D效果为突出,深度为1

放四个数字控件,分别显示strWeekly、DateDay(Timecurrent())、DateYear(Timecurrent(),10)、strMonth

 

 3. 

画一个矩形,146*133,填充颜色RGB为255,43,43,画几条短的竖线,宽度为6,3D效果为突出,深度为1

放一个数字控件,显示timetostr(timecurrent(),0)

保存编译运行,就可以看到效果了

 、

标签:THENstrWeekly,citect2018,TimeCurrent,DateMonth,DateWeekDay,ENDIF,THENstrMonth,美化
来源: https://www.cnblogs.com/fishingsriver/p/14544009.html