易语言将日期时间转换成纯数字格式的代码

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_周期事件
获取时间 ()
显示编辑框.内容 ＝ 年 ＋ 月 ＋ 日 ＋ 时 ＋ 分 ＋ 秒