将时间转换到纯数字格式的代码
.版本 2
.程序集 窗口程序集1
.程序集变量 年, 文本型
.程序集变量 月, 文本型
.程序集变量 日, 文本型
.程序集变量 时, 文本型
.程序集变量 分, 文本型
.程序集变量 秒, 文本型
.子程序 获取时间
年 = 到文本 (取年份 (取现行时间 ()))
.判断开始 (取月份 (取现行时间 ()) < 10)
月 = 到文本 (“0”) + 到文本 (取月份 (取现行时间 ()))
.默认
月 = 到文本 (取月份 (取现行时间 ()))
.判断结束
.判断开始 (取日 (取现行时间 ()) < 10)
日 = 到文本 (“0”) + 到文本 (取日 (取现行时间 ()))
.默认
日 = 到文本 (取日 (取现行时间 ()))
.判断结束
.判断开始 (取小时 (取现行时间 ()) < 10)
时 = 到文本 (“0”) + 到文本 (取小时 (取现行时间 ()))
.默认
时 = 到文本 (取小时 (取现行时间 ()))
.判断结束
.判断开始 (取分钟 (取现行时间 ()) < 10)
分 = 到文本 (“0”) + 到文本 (取分钟 (取现行时间 ()))
.默认
分 = 到文本 (取分钟 (取现行时间 ()))
.判断结束
.判断开始 (取秒 (取现行时间 ()) < 10)
秒 = 到文本 (“0”) + 到文本 (取秒 (取现行时间 ()))
.默认
秒 = 到文本 (取秒 (取现行时间 ()))
.判断结束
.子程序 _时钟1_周期事件
获取时间 ()
显示编辑框.内容 = 年 + 月 + 日 + 时 + 分 + 秒
运行结果:
总结
以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对的支持。如果你想了解更多相关内容请查看下面相关链接