计算出当前虚岁与周岁以及属的问题

wh1234567

如何用易 编辑框输入生日年月日即可自动计算出当前虚岁与周岁以及属相？

  

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

变量名	类 型	静态	数组	备 注
出生日期	日期时间型
周岁	整数型
虚岁	整数型
属相	文本型
年份	整数型

' 获取用户选择的出生日期
' 出生日期 ＝ 日期框1.今天
出生日期 ＝ 到时间 (“1928-01-03”)
' 计算周岁
周岁 ＝ 计算周岁 (出生日期)
' 编辑框_周岁.内容 ＝ 到文本 (周岁)
' 计算虚岁
虚岁 ＝ 计算虚岁 (出生日期)
' 编辑框_虚岁.内容 ＝ 到文本 (虚岁)
' 计算属相（用年份取模）
年份 ＝ 取年份 (出生日期)
属相 ＝ 取属相 (年份)
' 编辑框_属相.内容 ＝ 属相
编辑框1.内容 ＝ “当前虚岁：” ＋ 到文本 (虚岁) ＋ “  当前周岁：” ＋ 到文本 (周岁) ＋ “  属相：” ＋ 属相

子程序名	返回值类型	公开	备 注
计算周岁	整数型
参数名	类 型	参考	可空	数组	备 注
出生日期	日期时间型

变量名	类 型	静态	数组	备 注
当前日期	日期时间型
周岁年龄	整数型

当前日期 ＝ 取现行时间 ()
周岁年龄 ＝ 取年份 (当前日期) － 取年份 (出生日期)
如果 (取月份 (当前日期) ＜ 取月份 (出生日期))
周岁年龄 ＝ 周岁年龄 － 1
如果 (取月份 (当前日期) ＝ 取月份 (出生日期) 且 取日 (当前日期) ＜ 取日 (出生日期))
周岁年龄 ＝ 周岁年龄 － 1
' 年龄不变


返回 (周岁年龄)

子程序名	返回值类型	公开	备 注
计算虚岁	整数型
参数名	类 型	参考	可空	数组	备 注
出生日期	日期时间型

变量名	类 型	静态	数组	备 注
当前日期	日期时间型
农历当前	农历日期框
农历出生	农历日期框
虚岁年龄	整数型

当前日期 ＝ 取现行时间 ()
' 转换为农历日期
农历当前.置公历日期 (取年份 (当前日期), 取月份 (当前日期), 取日 (当前日期))
农历出生.置公历日期 (取年份 (出生日期), 取月份 (出生日期), 取日 (出生日期))
虚岁年龄 ＝ 农历当前.农历年 － 农历出生.农历年 ＋ 1
返回 (虚岁年龄)

子程序名	返回值类型	公开	备 注
取属相	文本型
参数名	类 型	参考	可空	数组	备 注
年份	整数型

变量名	类 型	静态	数组	备 注
生肖数组	文本型		0
索引	整数型

生肖数组 ＝ { “猴”, “鸡”, “狗”, “猪”, “鼠”, “牛”, “虎”, “兔”, “龙”, “蛇”, “马”, “羊” }
索引 ＝ 年份 ％ 12
如果真 (索引 ＝ 0)
索引 ＝ 12

返回 (生肖数组 [索引])
为什么错误信息：指定窗口或窗口组件不存在或尚未载入

i支持库列表	支持库注释
CnCalendar	农历日期支持库

.版本 2<br /> .支持库 CnCalendar<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 出生日期, 日期时间型<br /> .局部变量 周岁, 整数型<br /> .局部变量 虚岁, 整数型<br /> .局部变量 属相, 文本型<br /> .局部变量 年份, 整数型<br /> <br /> ' 获取用户选择的出生日期<br /> ' 出生日期 ＝ 日期框1.今天<br /> 出生日期 ＝ 到时间 (“1928-01-03”)<br /> ' 计算周岁<br /> 周岁 ＝ 计算周岁 (出生日期)<br /> ' 编辑框_周岁.内容 ＝ 到文本 (周岁)<br /> ' 计算虚岁<br /> 虚岁 ＝ 计算虚岁 (出生日期)<br /> ' 编辑框_虚岁.内容 ＝ 到文本 (虚岁)<br /> ' 计算属相（用年份取模）<br /> 年份 ＝ 取年份 (出生日期)<br /> 属相 ＝ 取属相 (年份)<br /> ' 编辑框_属相.内容 ＝ 属相<br /> 编辑框1.内容 ＝ “当前虚岁：” ＋ 到文本 (虚岁) ＋ “  当前周岁：” ＋ 到文本 (周岁) ＋ “  属相：” ＋ 属相<br /> <br /> .子程序 计算周岁, 整数型, , <br /> .参数 出生日期, 日期时间型<br /> .局部变量 当前日期, 日期时间型<br /> .局部变量 周岁年龄, 整数型<br /> <br /> 当前日期 ＝ 取现行时间 ()<br /> 周岁年龄 ＝ 取年份 (当前日期) － 取年份 (出生日期)<br /> <br /> .如果 (取月份 (当前日期) ＜ 取月份 (出生日期))<br />     周岁年龄 ＝ 周岁年龄 － 1<br /> .否则<br />     .如果 (取月份 (当前日期) ＝ 取月份 (出生日期) 且 取日 (当前日期) ＜ 取日 (出生日期))<br />         周岁年龄 ＝ 周岁年龄 － 1<br />     .否则<br />         ' 年龄不变<br />     .如果结束<br /> <br /> .如果结束<br /> <br /> 返回 (周岁年龄)<br /> <br /> .子程序 计算虚岁, 整数型, , <br /> .参数 出生日期, 日期时间型<br /> .局部变量 当前日期, 日期时间型<br /> .局部变量 农历当前, 农历日期框<br /> .局部变量 农历出生, 农历日期框<br /> .局部变量 虚岁年龄, 整数型<br /> <br /> 当前日期 ＝ 取现行时间 ()<br /> <br /> ' 转换为农历日期<br /> 农历当前.置公历日期 (取年份 (当前日期), 取月份 (当前日期), 取日 (当前日期))<br /> 农历出生.置公历日期 (取年份 (出生日期), 取月份 (出生日期), 取日 (出生日期))<br /> <br /> 虚岁年龄 ＝ 农历当前.农历年 － 农历出生.农历年 ＋ 1<br /> 返回 (虚岁年龄)<br /> <br /> .子程序 取属相, 文本型, , <br /> .参数 年份, 整数型<br /> .局部变量 生肖数组, 文本型, , "0"<br /> .局部变量 索引, 整数型<br /> <br /> 生肖数组 ＝ { “猴”, “鸡”, “狗”, “猪”, “鼠”, “牛”, “虎”, “兔”, “龙”, “蛇”, “马”, “羊” }<br /> <br /> 索引 ＝ 年份 ％ 12<br /> .如果真 (索引 ＝ 0)<br />     索引 ＝ 12<br /> .如果真结束<br /> <br /> 返回 (生肖数组 [索引])<br /> 为什么错误信息：指定窗口或窗口组件不存在或尚未载入

补充内容 (2026-7-1 23:37):
这是ai给的代码，为什么无法正常计算？

RainCharm

建议你还是问AI,因为他们回复你答案，也是问AI......

wh1234567

RainCharm 发表于 2026-7-1 23:54
建议你还是问AI,因为他们回复你答案，也是问AI......

期待老师正确指点，呵呵呵，AI不靠谱对易不够专业

Marvin

1.e (6.27 KB, 下载次数: 1)

1 小时前 上传

点击文件名下载附件


看下是不是你要的

wh1234567

Marvin 发表于 2026-7-2 00:13
看下是不是你要的

例如输入19921230”这样的格式也可以吧？另外问问输入的出生时间只能是农历还是可以是阳历？好像计算出来的岁数和属相会不同吧？非常感谢老师正确解答

RainCharm

发你了，手写的测试没有问题，你试一下

Marvin

wh1234567 发表于 2026-7-2 00:40
例如输入19921230”这样的格式也可以吧？另外问问输入的出生时间只能是农历还是可以是阳历？好像计算出来 ...

算的是阳历，日期格式必须是1992-12-30或1992/12/30

wh1234567

RainCharm 发表于 2026-7-2 00:41
发你了，手写的测试没有问题，你试一下

虚岁计算的对吗？

wh1234567

Marvin 发表于 2026-7-2 00:43
算的是阳历，日期格式必须是1992-12-30或1992/12/30

能不能带有选择框：按农历、按阳历  2种选择和计算方法

补充内容 (2026-7-2 01:12):
否则就会计算不够精确吧？期待老师帮助完善