易语言（取现行时间格式的设置）

易语言（取现行时间并设置格式）
先在启动窗口里面创建一个编辑框，在创建一个时钟


.版本 2

.子程序 _时钟1_周期事件
.局部变量 年, 文本型
.局部变量 月, 文本型
.局部变量 日, 文本型
.局部变量 时, 文本型
.局部变量 分, 文本型
.局部变量 秒, 文本型

年 ＝ 到文本 (取年份 (取现行时间 ()))
月 ＝ 到文本 (取月份 (取现行时间 ()))
日 ＝ 到文本 (取日 (取现行时间 ()))
时 ＝ 到文本 (取小时 (取现行时间 ()))
分 ＝ 到文本 (取分钟 (取现行时间 ()))
秒 ＝ 到文本 (取秒 (取现行时间 ()))

.如果真 (取文本长度 (月) ＝ 1)
月 ＝ “0” ＋ 月
.如果真结束
.如果真 (取文本长度 (日) ＝ 1)
日 ＝ “0” ＋ 日
.如果真结束
.如果真 (取文本长度 (时) ＝ 1)
时 ＝ “0” ＋ 时
.如果真结束
.如果真 (取文本长度 (分) ＝ 1)
分 ＝ “0” ＋ 分
.如果真结束
.如果真 (取文本长度 (秒) ＝ 1)
秒 ＝ “0” ＋ 秒
.如果真结束

编辑框1.内容 ＝ 年 ＋ “年” ＋ 月 ＋ “月” ＋ 日 ＋ “日” ＋ 时 ＋ “时” ＋ 分 ＋ “分” ＋ 秒 ＋ “秒”