精易论坛

标题: 计算出当前虚岁与周岁以及属的问题 [打印本页]

---

作者: wh1234567    时间: 前天 23:36
标题: 计算出当前虚岁与周岁以及属的问题
如何用易 编辑框输入生日年月日即可自动计算出当前虚岁与周岁以及属相？

  

子程序名	返回值类型	公开	备 注
_按钮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    时间: 前天 23:54
建议你还是问AI,因为他们回复你答案，也是问AI......

---

作者: wh1234567    时间: 前天 23:58

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

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

---

作者: Marvin    时间: 昨天 00:13



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

昨天 00:13 上传

点击文件名下载附件


看下是不是你要的

---

作者: wh1234567    时间: 昨天 00:40

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

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

---

作者: RainCharm    时间: 昨天 00:41
发你了，手写的测试没有问题，你试一下

取年龄与属相.e

昨天 00:41 上传

点击文件名下载附件

5.69 KB, 下载次数: 4

---

作者: Marvin    时间: 昨天 00:43

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

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

---

作者: wh1234567    时间: 昨天 01:09

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

虚岁计算的对吗？

---

作者: wh1234567    时间: 昨天 01:12

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

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

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

---

作者: liwei321gogo    时间: 昨天 06:09

  

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

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

信息框 (计算 (), 0, , )

子程序名	返回值类型	公开	备 注
计算	文本型

变量名	类 型	静态	数组	备 注
起始日期	日期时间型
结束日期年	整数型
结束日期月	整数型
结束日期日	整数型
实岁	整数型
虚岁	整数型
属相	文本型
生肖数组	文本型		0

起始日期 ＝ 到时间 (编辑框1.内容)
结束日期年 ＝ 取年份 (取现行时间 ())
结束日期月 ＝ 取月份 (取现行时间 ())
结束日期日 ＝ 取日 (取现行时间 ())
判断 (结束日期月 ＜ 取月份 (起始日期))
实岁 ＝ 结束日期年 － 取年份 (起始日期) － 1
判断 (结束日期日 ＜ 取日 (起始日期))
实岁 ＝ 结束日期年 － 取年份 (起始日期) － 1
实岁 ＝ 结束日期年 － 取年份 (起始日期)

判断 (取月份 (起始日期) ≥ 结束日期月)
虚岁 ＝ 实岁 ＋ 1
判断 (取日 (起始日期) ≥ 结束日期日)
虚岁 ＝ 实岁 ＋ 1
虚岁 ＝ 实岁 ＋ 1
生肖数组 ＝ { “猴”, “鸡”, “狗”, “猪”, “鼠”, “牛”, “虎”, “兔”, “龙”, “蛇”, “马”, “羊” }
判断 (取年份 (起始日期) ％ 12 ＝ 0)
属相 ＝ 生肖数组 [12]
属相 ＝ 生肖数组 [取年份 (起始日期) ％ 12 ＋ 1]

返回 (“实岁：” ＋ 到文本 (实岁) ＋ #换行符 ＋ “虚岁：” ＋ 到文本 (虚岁) ＋ #换行符 ＋ “属相：” ＋ 属相)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 信息框 (计算 (), 0, , )<br /> <br /> .子程序 计算, 文本型<br /> .局部变量 起始日期, 日期时间型<br /> .局部变量 结束日期年, 整数型<br /> .局部变量 结束日期月, 整数型<br /> .局部变量 结束日期日, 整数型<br /> .局部变量 实岁, 整数型<br /> .局部变量 虚岁, 整数型<br /> .局部变量 属相, 文本型<br /> .局部变量 生肖数组, 文本型, , "0"<br /> <br /> 起始日期 ＝ 到时间 (编辑框1.内容)<br /> 结束日期年 ＝ 取年份 (取现行时间 ())<br /> 结束日期月 ＝ 取月份 (取现行时间 ())<br /> 结束日期日 ＝ 取日 (取现行时间 ())<br /> .判断开始 (结束日期月 ＜ 取月份 (起始日期))<br />     实岁 ＝ 结束日期年 － 取年份 (起始日期) － 1<br /> .判断 (结束日期日 ＜ 取日 (起始日期))<br />     实岁 ＝ 结束日期年 － 取年份 (起始日期) － 1<br /> .默认<br />     实岁 ＝ 结束日期年 － 取年份 (起始日期)<br /> .判断结束<br /> <br /> .判断开始 (取月份 (起始日期) ≥ 结束日期月)<br />     虚岁 ＝ 实岁 ＋ 1<br /> .判断 (取日 (起始日期) ≥ 结束日期日)<br />     虚岁 ＝ 实岁 ＋ 1<br /> .默认<br />     虚岁 ＝ 实岁 ＋ 1<br /> .判断结束<br /> 生肖数组 ＝ { “猴”, “鸡”, “狗”, “猪”, “鼠”, “牛”, “虎”, “兔”, “龙”, “蛇”, “马”, “羊” }<br /> .判断开始 (取年份 (起始日期) ％ 12 ＝ 0)<br />     属相 ＝ 生肖数组 [12]<br /> .默认<br />     属相 ＝ 生肖数组 [取年份 (起始日期) ％ 12 ＋ 1]<br /> .判断结束<br /> <br /> 返回 (“实岁：” ＋ 到文本 (实岁) ＋ #换行符 ＋ “虚岁：” ＋ 到文本 (虚岁) ＋ #换行符 ＋ “属相：” ＋ 属相)

---

作者: wh1234567    时间: 昨天 09:07

liwei321gogo 发表于 2026-7-2 06:09
[e=4].版本 2

.程序集 窗口程序集_启动窗口

能不能带有选择框：按农历、按阳历  2种选择和计算方法
否则就会计算不够精确吧？期待老师帮助完善

---

作者: wh1234567    时间: 昨天 15:26

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

能不能带有选择框：按农历、按阳历  2种选择和计算方法
否则就会计算不够精确吧？期待老师帮助完善

---

作者: liwei321gogo    时间: 昨天 22:42

  

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

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

计算 (到时间 (“2014/7/1”), 真)

子程序名	返回值类型	公开	备 注
计算	文本型
参数名	类 型	参考	可空	数组	备 注
出生日期	日期时间型
是否农历	逻辑型

变量名	类 型	静态	数组	备 注
结束日期年	整数型
结束日期月	整数型
结束日期日	整数型
实岁	整数型
虚岁	整数型
属相	文本型
生肖数组	文本型		0

判断 (是否农历 ＝ 真)
农历日期框1.置公历日期 (取年份 (取现行时间 ()), 取月份 (取现行时间 ()), 取日 (取现行时间 ()))
结束日期年 ＝ 农历日期框1.农历年
结束日期月 ＝ 农历日期框1.农历月
结束日期日 ＝ 农历日期框1.农历日
农历日期框1.置公历日期 (取年份 (出生日期), 取月份 (出生日期), 取日 (出生日期))
出生日期 ＝ 到时间 (到文本 (农历日期框1.农历年) ＋ “/” ＋ 到文本 (农历日期框1.农历月) ＋ “/” ＋ 到文本 (农历日期框1.农历日))
调试输出 (出生日期)
结束日期年 ＝ 取年份 (取现行时间 ())
结束日期月 ＝ 取月份 (取现行时间 ())
结束日期日 ＝ 取日 (取现行时间 ())

判断 (结束日期月 ＜ 取月份 (出生日期))
实岁 ＝ 结束日期年 － 取年份 (出生日期) － 1
判断 (结束日期日 ＜ 取日 (出生日期))
实岁 ＝ 结束日期年 － 取年份 (出生日期) － 1
实岁 ＝ 结束日期年 － 取年份 (出生日期)

判断 (取月份 (出生日期) ≥ 结束日期月)
虚岁 ＝ 实岁 ＋ 1
判断 (取日 (出生日期) ≥ 结束日期日)
虚岁 ＝ 实岁 ＋ 1
虚岁 ＝ 实岁 ＋ 1
生肖数组 ＝ { “猴”, “鸡”, “狗”, “猪”, “鼠”, “牛”, “虎”, “兔”, “龙”, “蛇”, “马”, “羊” }
判断 (取年份 (出生日期) ％ 12 ＝ 0)
属相 ＝ 生肖数组 [12]
属相 ＝ 生肖数组 [取年份 (出生日期) ％ 12 ＋ 1]

返回 (“实岁：” ＋ 到文本 (实岁) ＋ #换行符 ＋ “虚岁：” ＋ 到文本 (虚岁) ＋ #换行符 ＋ “属相：” ＋ 属相)

i支持库列表	支持库注释
CnCalendar	农历日期支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 CnCalendar<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 计算 (到时间 (“2014/7/1”), 真)<br /> <br /> .子程序 计算, 文本型<br /> .参数 出生日期, 日期时间型<br /> .参数 是否农历, 逻辑型<br /> .局部变量 结束日期年, 整数型<br /> .局部变量 结束日期月, 整数型<br /> .局部变量 结束日期日, 整数型<br /> .局部变量 实岁, 整数型<br /> .局部变量 虚岁, 整数型<br /> .局部变量 属相, 文本型<br /> .局部变量 生肖数组, 文本型, , "0"<br /> <br /> .判断开始 (是否农历 ＝ 真)<br />     农历日期框1.置公历日期 (取年份 (取现行时间 ()), 取月份 (取现行时间 ()), 取日 (取现行时间 ()))<br />     结束日期年 ＝ 农历日期框1.农历年<br />     结束日期月 ＝ 农历日期框1.农历月<br />     结束日期日 ＝ 农历日期框1.农历日<br />     农历日期框1.置公历日期 (取年份 (出生日期), 取月份 (出生日期), 取日 (出生日期))<br />     出生日期 ＝ 到时间 (到文本 (农历日期框1.农历年) ＋ “/” ＋ 到文本 (农历日期框1.农历月) ＋ “/” ＋ 到文本 (农历日期框1.农历日))<br />     调试输出 (出生日期)<br /> .默认<br />     结束日期年 ＝ 取年份 (取现行时间 ())<br />     结束日期月 ＝ 取月份 (取现行时间 ())<br />     结束日期日 ＝ 取日 (取现行时间 ())<br /> <br /> .判断结束<br /> <br /> <br /> .判断开始 (结束日期月 ＜ 取月份 (出生日期))<br />     实岁 ＝ 结束日期年 － 取年份 (出生日期) － 1<br /> .判断 (结束日期日 ＜ 取日 (出生日期))<br />     实岁 ＝ 结束日期年 － 取年份 (出生日期) － 1<br /> .默认<br />     实岁 ＝ 结束日期年 － 取年份 (出生日期)<br /> .判断结束<br /> <br /> .判断开始 (取月份 (出生日期) ≥ 结束日期月)<br />     虚岁 ＝ 实岁 ＋ 1<br /> .判断 (取日 (出生日期) ≥ 结束日期日)<br />     虚岁 ＝ 实岁 ＋ 1<br /> .默认<br />     虚岁 ＝ 实岁 ＋ 1<br /> .判断结束<br /> 生肖数组 ＝ { “猴”, “鸡”, “狗”, “猪”, “鼠”, “牛”, “虎”, “兔”, “龙”, “蛇”, “马”, “羊” }<br /> .判断开始 (取年份 (出生日期) ％ 12 ＝ 0)<br />     属相 ＝ 生肖数组 [12]<br /> .默认<br />     属相 ＝ 生肖数组 [取年份 (出生日期) ％ 12 ＋ 1]<br /> .判断结束<br /> <br /> 返回 (“实岁：” ＋ 到文本 (实岁) ＋ #换行符 ＋ “虚岁：” ＋ 到文本 (虚岁) ＋ #换行符 ＋ “属相：” ＋ 属相)

添加个农历日期框组件，你测试一下试试

---

作者: wh1234567    时间: 昨天 23:49

liwei321gogo 发表于 2026-7-2 22:42
[e=4].版本 2
.支持库 CnCalendar
.支持库 spec

.版本 2
.支持库 CnCalendar

    农历框_出生.置公历日期 (取年份 (出生日期), 取月份 (出生日期), 取日 (出生日期))
    编辑框3.内容 ＝ 到文本 (农历框_出生.农历年) ＋ “年” ＋ 到文本 (农历框_出生.农历月) ＋ “月” ＋ 到文本 (农历框_出生.农历日) ＋ “日”

.版本 2
.支持库 CnCalendar

    农历框_出生.置农历日期 (取年份 (出生日期), 取月份 (出生日期), 取日 (出生日期), 假)  ' 假表示非闰月
    编辑框3.内容 ＝ 到文本 (农历框_出生.公历年) ＋ “年” ＋ 到文本 (农历框_出生.公历月) ＋ “月” ＋ 到文本 (农历框_出生.公历日) ＋ “日”  为什么不对，求指点，也就是想把日期互相转换一下

---

欢迎光临 精易论坛 (https://bbs.ijingyi.com/)

Powered by Discuz! X3.4