算一算退休时间

妙转人生

.版本 2
.程序集 窗口程序集_启动窗口
.子程序 _时钟1_周期事件
.局部变量 姓名, 文本型
.局部变量 出生日期, 日期时间型
.局部变量 退休年龄, 整数型
.局部变量 退休日期, 文本型
.局部变量 退休时间信息, 文本型
.局部变量 今天剩余时间信息, 文本型
_启动窗口.标题 ＝ “复制思维之人工智能 ” ＋ 到文本 (取现行时间 ())
.如果真 (姓名编辑框.内容 ≠ “” 且 出生日期编辑框.内容 ≠ “” 且 退休年龄编辑框.内容 ≠ “”)
    姓名 ＝ 姓名编辑框.内容
    出生日期 ＝ 到时间 (出生日期编辑框.内容)
    退休年龄 ＝ 到整数 (退休年龄编辑框.内容)
    退休日期 ＝ 到文本 (取年份 (出生日期) ＋ 退休年龄) ＋ “/” ＋ 到文本 (取月份 (出生日期)) ＋ “/” ＋ 到文本 (取日 (出生日期)) ＋ “/0/0/0”
    .如果真 (到时间 (退休日期) ＞ 取现行时间 ())
        退休时间信息 ＝ “您距离法定退休时间还有”
        退休时间信息 ＝ 退休时间信息 ＋ 到文本 (取时间间隔 (到时间 (退休日期), 取现行时间 (), #年份)) ＋ “年” ＋ #换行符
        退休时间信息 ＝ 退休时间信息 ＋ “共” ＋ 到文本 (取时间间隔 (到时间 (退休日期), 取现行时间 (), #月份)) ＋ “个月” ＋ #换行符
        退休时间信息 ＝ 退休时间信息 ＋ “共” ＋ 到文本 (到整数 (取时间间隔 (到时间 (退休日期), 取现行时间 (), #日))) ＋ “天” ＋ #换行符
        退休时间信息 ＝ 退休时间信息 ＋ “共” ＋ 到文本 (取时间间隔 (到时间 (退休日期), 取现行时间 (), #小时)) ＋ “小时” ＋ #换行符
        退休时间信息 ＝ 退休时间信息 ＋ “共” ＋ 到文本 (取时间间隔 (到时间 (退休日期), 取现行时间 (), #分钟)) ＋ “分钟” ＋ #换行符
        退休时间信息 ＝ 退休时间信息 ＋ “共” ＋ 到文本 (取时间间隔 (到时间 (退休日期), 取现行时间 (), #秒)) ＋ “秒” ＋ #换行符
    .如果真结束
    .如果真 (到时间 (退休日期) ＜ 取现行时间 ())
        退休时间信息 ＝ “您依法退休已经有”
        退休时间信息 ＝ 退休时间信息 ＋ 到文本 (取绝对值 (取时间间隔 (到时间 (退休日期), 取现行时间 (), #年份))) ＋ “年” ＋ #换行符
        退休时间信息 ＝ 退休时间信息 ＋ “累计” ＋ 到文本 (取绝对值 (取时间间隔 (到时间 (退休日期), 取现行时间 (), #月份))) ＋ “个月” ＋ #换行符
        退休时间信息 ＝ 退休时间信息 ＋ “累计” ＋ 到文本 (取绝对值 (到整数 (取时间间隔 (到时间 (退休日期), 取现行时间 (), #日)))) ＋ “天” ＋ #换行符
        退休时间信息 ＝ 退休时间信息 ＋ “累计” ＋ 到文本 (取绝对值 (取时间间隔 (到时间 (退休日期), 取现行时间 (), #小时))) ＋ “小时” ＋ #换行符
        退休时间信息 ＝ 退休时间信息 ＋ “累计” ＋ 到文本 (取绝对值 (取时间间隔 (到时间 (退休日期), 取现行时间 (), #分钟))) ＋ “分钟” ＋ #换行符
        退休时间信息 ＝ 退休时间信息 ＋ “累计” ＋ 到文本 (取绝对值 (取时间间隔 (到时间 (退休日期), 取现行时间 (), #秒))) ＋ “秒” ＋ #换行符
    .如果真结束
    今天剩余时间信息 ＝ “今天还剩下” ＋ #换行符
    今天剩余时间信息 ＝ 今天剩余时间信息 ＋ 到文本 (取时间间隔 (指定时间 (取年份 (取现行时间 ()), 取月份 (取现行时间 ()), 取日 (取现行时间 ()), 23, 59, 59), 取现行时间 (), #小时)) ＋ “小时” ＋ #换行符
    今天剩余时间信息 ＝ 今天剩余时间信息 ＋ “共” ＋ 到文本 (取时间间隔 (指定时间 (取年份 (取现行时间 ()), 取月份 (取现行时间 ()), 取日 (取现行时间 ()), 23, 59, 59), 取现行时间 (), #分钟)) ＋ “分钟” ＋ #换行符
    今天剩余时间信息 ＝ 今天剩余时间信息 ＋ “共” ＋ 到文本 (取时间间隔 (指定时间 (取年份 (取现行时间 ()), 取月份 (取现行时间 ()), 取日 (取现行时间 ()) ＋ 1, 0, 0, 0), 取现行时间 (), #秒)) ＋ “秒”
    名称编辑框.内容 ＝ “您好！” ＋ 姓名
    总退休时间编辑框.内容 ＝ 退休时间信息
    今天时间编辑框.内容 ＝ 今天剩余时间信息
.如果真结束

.子程序 __启动窗口_创建完毕
姓名编辑框.获取焦点 ()
_时钟1_周期事件 ()
.子程序 _姓名编辑框_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (姓名编辑框.内容 ≠ “” 且 键代码 ＝ #回车键 或 键代码 ＝ #左光标键)
    出生日期编辑框.获取焦点 ()
.如果真结束

.子程序 _出生日期编辑框_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (姓名编辑框.内容 ≠ “” 且 出生日期编辑框.内容 ≠ “” 且 键代码 ＝ #回车键 或 键代码 ＝ #左光标键)
    退休年龄编辑框.获取焦点 ()
.如果真结束

ghost12

欢迎常来帮助新人，谢谢~

相见欢

#在这里快速回复#大哥牛逼

妙转人生

发现bug：月底显示今天剩余秒数为负数问题代码：
今天剩余时间信息 ＝ 今天剩余时间信息 ＋ “共” ＋ 到文本 (取时间间隔 (指定时间 (取年份 (取现行时间 ()), 取月份 (取现行时间 ()), 取日 (取现行时间 ()) ＋ 1, 0, 0, 0), 取现行时间 (), #秒)) ＋ “秒”
中的“+1”删除，再将倒数三个0改成23,59,59
修复代码：
今天剩余时间信息 ＝ 今天剩余时间信息 ＋ “共” ＋ 到文本 (取时间间隔 (指定时间 (取年份 (取现行时间 ()), 取月份 (取现行时间 ()), 取日 (取现行时间 ()), 23, 59, 59), 取现行时间 (), #秒)) ＋ “秒”

124149449

很赞同，谢谢！

网络注册络员

主要是时间计算

懒人定制软件

很好很强悍，坚持下去哦~

天雨时晴

延迟退休了解一下

lgbc

为发出源码点赞

凉忆亦凉心

666666666666666