求能否继续精简初学

a154038274 · 发表于 2019-1-31 21:53:13

本帖最后由 a154038274 于 2019-1-31 22:31 编辑

如图是否还能精简  或者其他办法实现代码精简

.子程序 __启动窗口_创建完毕
时间处理 ()
启动线程 (&实时时间, , )
.子程序实时时间, 子程序指针
编辑框1.内容＝到文本 (取现行时间 ())
延迟 (950)
返回 (实时时间 ())
.子程序时间处理, 日期时间型
.局部变量时间, 日期时间型
.局部变量年, 整数型
.局部变量月, 整数型
.局部变量日, 整数型
.局部变量 sss, 逻辑型
公历转农历 (取现行时间 (), 年, 月, 日, sss)
时间＝到时间 (到文本 (年) ＋ “年” ＋到文本 (月) ＋ “月” ＋到文本 (日) ＋ “日”)
返回 (时间)
.子程序 _组合框2_列表项被选择
.局部变量生日, 日期时间型
.局部变量公历, 日期时间型
.如果真 (组合框1.内容 ≠ “”)
.如果真 (组合框2.内容 ≠ “”)
      生日＝到时间 (到文本 (取时间部分 (取现行时间 (), #年份)) ＋ “年” ＋组合框1.内容＋ “月” ＋组合框2.内容＋ “日”)
      编辑框4.内容＝到文本 (取时间间隔 (生日, 时间处理 (), #日))
      农历月历1.置农历日期 (取时间部分 (取现行时间 (), #年份), 到整数 (组合框1.内容), 到整数 (组合框2.内容), 假)
      农历转公历 (取时间部分 (取现行时间 (), #年份), 到整数 (组合框1.内容), 到整数 (组合框2.内容), 假, 公历)
      编辑框5.内容＝到文本 (公历)
      编辑框6.内容＝系统_取星座 (公历)
.如果真结束
.如果真结束

.子程序 _组合框1_列表项被选择
_组合框2_列表项被选择 ()

补充内容 (2019-2-2 01:48):
改了一个版本 https://bbs.125.la/forum.php?mod=viewthread&tid=14309774&page=1&extra=#pid15179746