关于计算退休日期年龄等问题

wh1234567

https://www.ahzwfw.gov.cn/wst-ds ... or/index.html#/home根据这个计算器让AI写了个易语言版本的，结果发现计算错误，希望结合http://www.tuixiunianling.cc/计算器功能，求老师帮忙修正。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

日期框1.今天 ＝ 到时间 (“19820927”)
' 组合框1.加入项目 (“男职工”, )
' 组合框1.加入项目 (“女职工”, )
' 组合框1.加入项目 (“女干部”, )
' 组合框1.现行选中项 ＝ 0

子程序名	返回值类型	公开	备 注
_按钮1_被单击			计算

变量名	类 型	静态	数组	备 注
出生年	整数型
出生月	整数型
退休年龄	整数型
退休年	整数型
退休月	整数型
延迟月数	整数型
性别	文本型
当前年龄	整数型

出生年 ＝ 取年份 (日期框1.今天)
出生月 ＝ 取月份 (日期框1.今天)
性别 ＝ 组合框1.取项目文本 (组合框1.现行选中项)
判断 (性别 ＝ “男职工”)
退休年龄 ＝ 60


判断 (性别 ＝ “女职工”)
退休年龄 ＝ 50


判断 (性别 ＝ “女干部”)
退休年龄 ＝ 55



退休年 ＝ 出生年 ＋ 退休年龄 ＋ 延迟月数 ÷ 12
退休月 ＝ 出生月
如果 (退休月 ＞ 12)
退休年 ＝ 退休年 ＋ 1
退休月 ＝ 退休月 － 12



延迟月数 ＝ 计算延迟月数 (出生年, 退休年龄)
退休年龄 ＝ 退休年龄 ＋ 延迟月数 ÷ 12
退休年龄编辑框1.内容 ＝ “退休年龄: ” ＋ 到文本 (退休年龄) ＋ “岁”
退休时间编辑框2.内容 ＝ “退休时间: ” ＋ 到文本 (退休年) ＋ “年” ＋ 到文本 (退休月) ＋ “月”
延迟月数编辑框3.内容 ＝ “延迟月数: ” ＋ 到文本 (延迟月数) ＋ “个月”

子程序名	返回值类型	公开	备 注
计算延迟月数	整数型
参数名	类 型	参考	可空	数组	备 注
出生年	整数型
原退休年龄	整数型

变量名	类 型	静态	数组	备 注
退休年	整数型
延迟月数	整数型

退休年 ＝ 出生年 ＋ 原退休年龄
如果 (退休年 ＜ 2025)
延迟月数 ＝ 0


如果 (退休年 ≥ 2025 且 退休年 ＜ 2035)
延迟月数 ＝ (退休年 － 2025) × 6
延迟月数 ＝ 60
返回 (延迟月数)

子程序名	返回值类型	公开	备 注
_按钮2_被单击			重置

日期框1.今天 ＝ 取现行时间 ()
组合框1.现行选中项 ＝ 0
退休年龄编辑框1.内容 ＝ “退休年龄:”
退休时间编辑框2.内容 ＝ “退休时间:”
延迟月数编辑框3.内容 ＝ “延迟月数:”

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 日期框1.今天 ＝ 到时间 (“19820927”)<br /> ' 组合框1.加入项目 (“男职工”, )<br /> ' 组合框1.加入项目 (“女职工”, )<br /> ' 组合框1.加入项目 (“女干部”, )<br /> ' 组合框1.现行选中项 ＝ 0<br /> <br /> .子程序 _按钮1_被单击, , , 计算<br /> .局部变量 出生年, 整数型<br /> .局部变量 出生月, 整数型<br /> .局部变量 退休年龄, 整数型<br /> .局部变量 退休年, 整数型<br /> .局部变量 退休月, 整数型<br /> .局部变量 延迟月数, 整数型<br /> .局部变量 性别, 文本型<br /> .局部变量 当前年龄, 整数型<br /> <br /> 出生年 ＝ 取年份 (日期框1.今天)<br /> 出生月 ＝ 取月份 (日期框1.今天)<br /> 性别 ＝ 组合框1.取项目文本 (组合框1.现行选中项)<br /> <br /> .判断开始 (性别 ＝ “男职工”)<br />     退休年龄 ＝ 60<br /> .默认<br /> <br /> .判断结束<br /> .判断开始 (性别 ＝ “女职工”)<br />     退休年龄 ＝ 50<br /> .默认<br /> <br /> .判断结束<br /> .判断开始 (性别 ＝ “女干部”)<br />     退休年龄 ＝ 55<br /> .默认<br /> <br /> .判断结束<br /> <br /> 退休年 ＝ 出生年 ＋ 退休年龄 ＋ 延迟月数 ÷ 12<br /> 退休月 ＝ 出生月<br /> <br /> .如果 (退休月 ＞ 12)<br />     退休年 ＝ 退休年 ＋ 1<br />     退休月 ＝ 退休月 － 12<br /> .否则<br /> <br /> .如果结束<br /> <br /> 延迟月数 ＝ 计算延迟月数 (出生年, 退休年龄)<br /> 退休年龄 ＝ 退休年龄 ＋ 延迟月数 ÷ 12<br /> <br /> 退休年龄编辑框1.内容 ＝ “退休年龄: ” ＋ 到文本 (退休年龄) ＋ “岁”<br /> 退休时间编辑框2.内容 ＝ “退休时间: ” ＋ 到文本 (退休年) ＋ “年” ＋ 到文本 (退休月) ＋ “月”<br /> 延迟月数编辑框3.内容 ＝ “延迟月数: ” ＋ 到文本 (延迟月数) ＋ “个月”<br /> <br /> .子程序 计算延迟月数, 整数型<br /> .参数 出生年, 整数型<br /> .参数 原退休年龄, 整数型<br /> .局部变量 退休年, 整数型<br /> .局部变量 延迟月数, 整数型<br /> <br /> 退休年 ＝ 出生年 ＋ 原退休年龄<br /> .如果 (退休年 ＜ 2025)<br />     延迟月数 ＝ 0<br /> .否则<br /> <br /> .如果结束<br /> .如果 (退休年 ≥ 2025 且 退休年 ＜ 2035)<br />     延迟月数 ＝ (退休年 － 2025) × 6<br /> .否则<br />     延迟月数 ＝ 60<br /> .如果结束<br /> 返回 (延迟月数)<br /> <br /> .子程序 _按钮2_被单击, , , 重置<br /> <br /> 日期框1.今天 ＝ 取现行时间 ()<br /> 组合框1.现行选中项 ＝ 0<br /> 退休年龄编辑框1.内容 ＝ “退休年龄:”<br /> 退休时间编辑框2.内容 ＝ “退休时间:”<br /> 延迟月数编辑框3.内容 ＝ “延迟月数:”

最终效果例如：

当前年龄

缴费年限

退休年龄

退休时间

延迟月数

退休情况

1173847128

1000多个B给5个就离谱

yb139

lz你好~这个问题我看了下，你的代码主要有个逻辑漏洞：
在计算延迟月数子程序里，最后一句延迟月数 ＝ 60直接覆盖了前面所有的计算结果，导致无论什么情况都返回60个月~
正确的写法应该是这样的：
.子程序 计算延迟月数, 整数型.参数 出生年, 整数型.参数 原退休年龄, 整数型.局部变量 退休年, 整数型.局部变量 延迟月数, 整数型退休年 ＝ 出生年 ＋ 原退休年龄.如果 (退休年 ＜ 2025)    延迟月数 ＝ 0.否则 if (退休年 ＜ 2035)    延迟月数 ＝ (退休年 － 2025) × 6    ' 最多60个月，不能超过    如果 (延迟月数 ＞ 60)        延迟月数 ＝ 60    .否则    延迟月数 ＝ 60.结束如果返回 (延迟月数)然后在你主程序里记得要先调用计算延迟月数，算出延迟月数后，再去加到退休年龄上~
还有一个问题：你原始代码里把退休年龄和延迟月数混在一起了，应该先算基础退休年龄（男60女50女55），然后再加上延迟月数~
试试看，应该能算对的

wh1234567

yb139 发表于 2026-3-19 22:20
lz你好~这个问题我看了下，你的代码主要有个逻辑漏洞：
在计算延迟月数子程序里，最后一句延迟月数 ＝ 60直 ...

老师能不能帮修改一下？

z573277679

干社保工作的吧

z573277679

示例.e (959.34 KB, 下载次数: 1)

2 小时前 上传

点击文件名下载附件

wh1234567

z573277679 发表于 2026-3-20 01:52

非常感谢老师帮助，效果不错，能不能按http://www.tuixiunianling.cc/这个左边那个计算器的计算结果输出？
输出格式例如：
当前年龄:?
缴费年限:?
退休年龄:?
退休时间:?
延迟月数:?
退休情况:?

补充内容 (2026-3-20 02:48):
调试输出 (“最终结果：”+当前年龄:?,缴费年限:?,退休年龄:?,退休时间:?,延迟月数:?,退休情况:?)