标签：THENstrWeekly citect2018 TimeCurrent DateMonth DateWeekDay ENDIF THENstrMonth 美化

前段时间现场使用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

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。