易语言如何取农历日期以及属相

wh1234567

易语言如何取农历日期以及属相，例如输出：农历：2025年11月17日 蛇年

zainex

  

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

子程序名	返回值类型	公开	备 注
差不多得了	文本型
参数名	类 型	参考	可空	数组	备 注
日期	日期时间型

变量名	类 型	静态	数组	备 注
年	整数型
月	整数型
日	整数型
闰月	逻辑型
数	整数型
当前年	整数型
闰年	逻辑型
结果	文本型

' 日期 ＝ 取现行时间 ()
当前年 ＝ 取年份 (日期)
计次循环首 (12, 数)
' 调试输出 (到时间 (格式化文本 (“%d年%d月1日”, 当前年, 数)))
公历转农历 (到时间 (格式化文本 (“%d年%d月1日”, 当前年, 数)), 年, 月, 日, 闰月)
如果真 (闰月 ＝ 真)
闰年 ＝ 真
跳出循环 ()

计次循环尾 ()
公历转农历 (日期, 年, 月, 日, 闰月)
' 调试输出 (闰年, 闰月)
结果 ＝ 格式化文本 (“%d年%d月%d日 %s”, 年, 月, 日, 格式化日期 (日期, “%S年”))
如果真 (闰年 ＝ 真)
结果 ＝ 结果 ＋ “ 闰年”
如果真 (闰月 ＝ 真)
结果 ＝ 结果 ＋ “ 闰月”
返回 (结果)

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

变量名	类 型	静态	数组	备 注
日期	日期时间型

日期 ＝ 取现行时间 ()
调试输出 (格式化日期 (日期, “%Y年”), 差不多得了 (日期))
日期 ＝ 到时间 (“2026-8-1”)
调试输出 (格式化日期 (日期, “%Y年”), 差不多得了 (日期))
日期 ＝ 到时间 (“2025-8-1”)
调试输出 (格式化日期 (日期, “%Y年”), 差不多得了 (日期))

i支持库列表	支持库注释
CnCalendar	农历日期支持库
eAPI	应用接口支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 CnCalendar<br /> .支持库 eAPI<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 差不多得了, 文本型<br /> .参数 日期, 日期时间型<br /> .局部变量 年, 整数型<br /> .局部变量 月, 整数型<br /> .局部变量 日, 整数型<br /> .局部变量 闰月, 逻辑型<br /> .局部变量 数, 整数型<br /> .局部变量 当前年, 整数型<br /> .局部变量 闰年, 逻辑型<br /> .局部变量 结果, 文本型<br /> <br /> ' 日期 ＝ 取现行时间 ()<br /> 当前年 ＝ 取年份 (日期)<br /> .计次循环首 (12, 数)<br />     ' 调试输出 (到时间 (格式化文本 (“%d年%d月1日”, 当前年, 数)))<br />     公历转农历 (到时间 (格式化文本 (“%d年%d月1日”, 当前年, 数)), 年, 月, 日, 闰月)<br />     .如果真 (闰月 ＝ 真)<br />         闰年 ＝ 真<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 公历转农历 (日期, 年, 月, 日, 闰月)<br /> ' 调试输出 (闰年, 闰月)<br /> 结果 ＝ 格式化文本 (“%d年%d月%d日 %s”, 年, 月, 日, 格式化日期 (日期, “%S年”))<br /> .如果真 (闰年 ＝ 真)<br />     结果 ＝ 结果 ＋ “ 闰年”<br /> .如果真结束<br /> .如果真 (闰月 ＝ 真)<br />     结果 ＝ 结果 ＋ “ 闰月”<br /> .如果真结束<br /> 返回 (结果)<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 日期, 日期时间型<br /> <br /> 日期 ＝ 取现行时间 ()<br /> 调试输出 (格式化日期 (日期, “%Y年”), 差不多得了 (日期))<br /> 日期 ＝ 到时间 (“2026-8-1”)<br /> 调试输出 (格式化日期 (日期, “%Y年”), 差不多得了 (日期))<br /> 日期 ＝ 到时间 (“2025-8-1”)<br /> 调试输出 (格式化日期 (日期, “%Y年”), 差不多得了 (日期))

开始运行被调试程序
* “乙巳年” | “2025年10月18日 蛇年 闰年”
* “丙午年” | “2026年6月19日 马年”
* “乙巳年” | “2025年6月8日 蛇年 闰年 闰月”
被调试易程序运行完毕

zainex

  

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

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

变量名	类 型	静态	数组	备 注
日期	日期时间型

日期 ＝ 取现行时间 ()
调试输出 (格式化日期 (日期, “%y年%m月%d日 %S年”))

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

.版本 2<br /> .支持库 spec<br /> .支持库 CnCalendar<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 日期, 日期时间型<br /> <br /> 日期 ＝ 取现行时间 ()<br /> 调试输出 (格式化日期 (日期, “%y年%m月%d日 %S年”))

开始运行被调试程序
* “2025年12月6日 蛇年”
被调试易程序运行完毕

wh1234567

zainex 发表于 2025-12-6 23:26
[e=1].版本 2
.支持库 spec
.支持库 CnCalendar

要农历，不是公历，呵呵，期待老师帮修正

zainex

农历:

  

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

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

变量名	类 型	静态	数组	备 注
日期	日期时间型
年	整数型
月	整数型
日	整数型
闰月	逻辑型

日期 ＝ 取现行时间 ()
公历转农历 (日期, 年, 月, 日, 闰月)
调试输出 (闰月)
调试输出 (格式化文本 (“%d年%d月%d日 %s”, 年, 月, 日, 格式化日期 (日期, “%S年”)))

i支持库列表	支持库注释
CnCalendar	农历日期支持库
spec	特殊功能支持库
eAPI	应用接口支持库

.版本 2<br /> .支持库 CnCalendar<br /> .支持库 spec<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 日期, 日期时间型<br /> .局部变量 年, 整数型<br /> .局部变量 月, 整数型<br /> .局部变量 日, 整数型<br /> .局部变量 闰月, 逻辑型<br /> <br /> 日期 ＝ 取现行时间 ()<br /> 公历转农历 (日期, 年, 月, 日, 闰月)<br /> 调试输出 (闰月)<br /> 调试输出 (格式化文本 (“%d年%d月%d日 %s”, 年, 月, 日, 格式化日期 (日期, “%S年”)))

开始运行被调试程序
* 假
* “2025年10月17日 蛇年”
被调试易程序运行完毕

wh1234567

zainex 发表于 2025-12-6 23:31
农历:
[e=1].版本 2
.支持库 CnCalendar

感谢老师，如果当年是闰年，就显示加上闰年，当月是闰月就加上闰月”，能不能实现？

wh1234567

zainex 发表于 2025-12-6 23:31
农历:
[e=1].版本 2
.支持库 CnCalendar

老师好，还想求助您一个问题：高级表格有多行多列，在最后末尾插入了一行，并且把这行的所有列单独合并成一行，置数据后，为什么该行字体无法修改？
高级表格1.插入行 (“”, 高级表格1.行数)
高级表格1.合并 (高级表格1.行数 － 1, 1, 高级表格1.行数 － 1, 高级表格1.列数 － 1)
高级表格1.置数据 (高级表格1.行数 － 1, 1, 1, “插入文字内容”)
高级表格1.置字体尺寸 (高级表格1.行数 － 1, 0, 高级表格1.行数, 高级表格1.列数 － 1, 7)
求老师帮忙修正一下吧，是哪里不对？

ssshill

指定日期显示农历和属相，易语言自带组件就行了。

ssshill

ssshill 发表于 2025-12-7 11:10
指定日期显示农历和属相，易语言自带组件就行了。

点击哪天就显示哪天的农历和属相

ssshill

ssshill 发表于 2025-12-7 11:11
点击哪天就显示哪天的农历和属相

改了一下农历：

  

子程序名	返回值类型	公开	备 注
_月历1_选择日期被改变

农历日期框1.置公历日期 (取年份 (月历1.首选择日), 取月份 (月历1.首选择日), 取日 (月历1.首选择日))
调试输出 (“公历日期：” ＋ 到文本 (取日期 (月历1.首选择日)) ＋ “为”)
调试输出 (“农历：” ＋ 到文本 (农历日期框1.农历年) ＋ “年” ＋ 到文本 (农历日期框1.农历月) ＋ “月” ＋ 到文本 (农历日期框1.农历日) ＋ “日 ” ＋ 农历日期框1.属相 ＋ “年”)

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

调试输出 (“公历日期：” ＋ 到文本 (取日期 (月历1.首选择日)) ＋ “为”)
调试输出 (“农历：” ＋ 到文本 (农历日期框1.农历年) ＋ “年” ＋ 到文本 (农历日期框1.农历月) ＋ “月” ＋ 到文本 (农历日期框1.农历日) ＋ “日 ” ＋ 农历日期框1.属相 ＋ “年”)

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

.版本 2<br /> .支持库 CnCalendar<br /> .支持库 spec<br /> <br /> .子程序 _月历1_选择日期被改变<br /> <br /> 农历日期框1.置公历日期 (取年份 (月历1.首选择日), 取月份 (月历1.首选择日), 取日 (月历1.首选择日))<br /> 调试输出 (“公历日期：” ＋ 到文本 (取日期 (月历1.首选择日)) ＋ “为”)<br /> 调试输出 (“农历：” ＋ 到文本 (农历日期框1.农历年) ＋ “年” ＋ 到文本 (农历日期框1.农历月) ＋ “月” ＋ 到文本 (农历日期框1.农历日) ＋ “日 ” ＋ 农历日期框1.属相 ＋ “年”)<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 调试输出 (“公历日期：” ＋ 到文本 (取日期 (月历1.首选择日)) ＋ “为”)<br /> 调试输出 (“农历：” ＋ 到文本 (农历日期框1.农历年) ＋ “年” ＋ 到文本 (农历日期框1.农历月) ＋ “月” ＋ 到文本 (农历日期框1.农历日) ＋ “日 ” ＋ 农历日期框1.属相 ＋ “年”)