精易论坛

标题: 算一算退休时间 [打印本页]

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

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

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

作者: 人间疾苦 时间: 2021-4-24 16:11
源码你还没上传！

作者: 妙转人生 时间: 2021-4-24 17:19

Authen 发表于 2021-4-24 16:11
源码你还没上传！

第一次发帖，不熟悉。马上重发

作者: 凉忆亦凉心 时间: 2021-4-25 02:18
666666666666666

作者: lgbc 时间: 2021-4-25 08:03
为发出源码点赞

作者: 天雨时晴 时间: 2021-4-25 13:18
延迟退休了解一下

作者: 懒人定制软件 时间: 2021-4-27 01:01
很好很强悍，坚持下去哦~

作者: 网络注册络员 时间: 2021-4-27 22:03
主要是时间计算

作者: 124149449 时间: 2021-4-30 01:01
很赞同，谢谢！

作者: 妙转人生 时间: 2021-4-30 22:05
本帖最后由妙转人生于 2021-4-30 22:16 编辑

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

作者: 相见欢 时间: 2021-6-12 00:20
#在这里快速回复#大哥牛逼

作者: ghost12 时间: 2022-6-4 09:00
欢迎常来帮助新人，谢谢~

作者: 是永乐哟 时间: 2025-5-18 11:32
奇奇怪怪的知识+1

欢迎光临精易论坛 (https://125.confly.eu.org/)