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

wh1234567

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

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

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

wh1234567

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

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

liwei321gogo

  

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

子程序名	返回值类型	公开	备 注
_按钮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

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

.版本 2
.支持库 CnCalendar

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

.版本 2
.支持库 CnCalendar

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