Question

用易语言制作一个小程序的问题 输入身份证 直接 得到 出生年月日

Answer 1

.版本 2
.支持库 spec

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

编辑框1.输入方式 ＝ 3
编辑框1.最大允许长度 ＝ 18

.子程序 _按钮1_被单击
.局部变量 年, 文本型
.局部变量 月, 文本型
.局部变量 日, 文本型

.判断开始 (取文本长度 (编辑框1.内容) ≠ 18)
信息框 (“身份证号码错误！”, 0, )
.默认
年 ＝ 取文本中间 (编辑框1.内容, 7, 4)
月 ＝ 取文本中间 (编辑框1.内容, 11, 2)
日 ＝ 取文本中间 (编辑框1.内容, 13, 2)

调试输出 (年, 月, 日)

.判断结束

Answer 2

.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

编辑框1.输入方式 ＝ 3
编辑框1.最大允许长度 ＝ 18

.子程序 _按钮1_被单击
.局部变量 年, 文本型
.局部变量 月, 文本型
.局部变量 日, 文本型

.如果真 (取文本长度 (编辑框1.内容) ≠ 18)
信息框 (“身份证号码错误！”, 0, “错误”)
返回 ()

.如果真结束

年 ＝ 取文本中间 (编辑框1.内容, 7, 4)
月 ＝ 取文本中间 (编辑框1.内容, 11, 2)
日 ＝ 取文本中间 (编辑框1.内容, 13, 2)
编辑框2.内容 ＝ “你的生日是：” ＋ 年 ＋ “年” ＋ 月 ＋ “月” ＋ 日 ＋ “号”