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

myface

支持库就有现成。

wh1234567

ssshill 发表于 2025-12-7 11:22
改了一下农历：[e=0].版本 2
.支持库 CnCalendar
.支持库 spec

点击月历只能变化一次？再点击就没反应不跟随变化了哦

ssshill

代码和调试出的图片看了吗？

ssshill

重上一副图


补充内容 (2025-12-7 15:13):
你击12月3日就输出农历日期和年属性、点击11月6日就输出农历日期和年属性

wh1234567

ssshill 发表于 2025-12-7 15:11
重上一副图

.版本 2
.支持库 CnCalendar

.子程序 _月历1_选择日期被改变

农历日期框1.置公历日期 (取年份 (月历1.首选择日), 取月份 (月历1.首选择日), 取日 (月历1.首选择日))
编辑框1.内容 ＝ “公历：” ＋ 到文本 (取日期 (月历1.首选择日)) ＋ “（农历：” ＋ 到文本 (农历日期框1.农历年) ＋ “年” ＋ 到文本 (农历日期框1.农历月) ＋ “月” ＋ 到文本 (农历日期框1.农历日) ＋ “日 ” ＋ 农历日期框1.属相 ＋ “年）”

ssshill

用到2个组件，这个代码复制粘贴一下：

  

子程序名	返回值类型	公开	备 注
_月历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.属相 ＋ “年”)

ssshill

wh1234567 发表于 2025-12-7 15:17
.版本 2
.支持库 CnCalendar

你这个就对了啊，点击月历上12月3日就在编辑框显示公历、农历、和属性，再换一个点击就显示新的农历了。

wh1234567

ssshill 发表于 2025-12-7 15:33
你这个就对了啊，点击月历上12月3日就在编辑框显示公历、农历、和属性，再换一个点击就显示新的农历了。 ...

.版本 2
.支持库 CnCalendar

.子程序 _月历1_选择日期被改变

编辑框1.内容 ＝ “公历：” ＋ 到文本 (取日期 (月历1.首选择日)) ＋ “（农历：” ＋ 到文本 (农历日期框1.农历年) ＋ “年” ＋ 到文本 (农历日期框1.农历月) ＋ “月” ＋ 到文本 (农历日期框1.农历日) ＋ “日 ” ＋ 农历日期框1.属相 ＋ “年）”
点击不跟随变化

ssshill

wh1234567 发表于 2025-12-7 16:19
.版本 2
.支持库 CnCalendar

源文件你看看吧