将时间转换到纯数字格式的代码
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
.版本 2 .程序集 窗口程序集1 .程序集变量 年, 文本型 .程序集变量 月, 文本型 .程序集变量 日, 文本型 .程序集变量 时, 文本型 .程序集变量 分, 文本型 .程序集变量 秒, 文本型 .子程序 获取时间 年 = 到文本 (取年份 (取现行时间 ())) .判断开始 (取月份 (取现行时间 ()) < 10) 月 = 到文本 (“0”) + 到文本 (取月份 (取现行时间 ())) .默认 月 = 到文本 (取月份 (取现行时间 ())) .判断结束 .判断开始 (取日 (取现行时间 ()) < 10) 日 = 到文本 (“0”) + 到文本 (取日 (取现行时间 ())) .默认 日 = 到文本 (取日 (取现行时间 ())) .判断结束 .判断开始 (取小时 (取现行时间 ()) < 10) 时 = 到文本 (“0”) + 到文本 (取小时 (取现行时间 ())) .默认 时 = 到文本 (取小时 (取现行时间 ())) .判断结束 .判断开始 (取分钟 (取现行时间 ()) < 10) 分 = 到文本 (“0”) + 到文本 (取分钟 (取现行时间 ())) .默认 分 = 到文本 (取分钟 (取现行时间 ())) .判断结束 .判断开始 (取秒 (取现行时间 ()) < 10) 秒 = 到文本 (“0”) + 到文本 (取秒 (取现行时间 ())) .默认 秒 = 到文本 (取秒 (取现行时间 ())) .判断结束 .子程序 _时钟1_周期事件 获取时间 () 显示编辑框.内容 = 年 + 月 + 日 + 时 + 分 + 秒 |
运行结果:
总结
以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对服务器之家的支持。如果你想了解更多相关内容请查看下面相关链接