想实现农历与公历之间的相互转化，卡在了公历转农历，不知道时间精度型之间的关系

北之星

  

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

变量名	类 型	静态	数组	备 注
局_转换后农历年	整数型
局_转换后农历月	整数型
局_转换后农历日	整数型
局_转换后是否闰月	逻辑型
局_公历日期	日期时间型

公历转农历 (局_公历日期, 局_转换后农历年, 局_转换后农历月, 局_转换后农历日, 局_转换后是否闰月)
局_公历日期 ＝ 到时间 (标签4_结果.标题)
调试输出 (局_公历日期)

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

.版本 2<br /> .支持库 CnCalendar<br /> .支持库 spec<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 局_转换后农历年, 整数型<br /> .局部变量 局_转换后农历月, 整数型<br /> .局部变量 局_转换后农历日, 整数型<br /> .局部变量 局_转换后是否闰月, 逻辑型<br /> .局部变量 局_公历日期, 日期时间型<br /> <br /> 公历转农历 (局_公历日期, 局_转换后农历年, 局_转换后农历月, 局_转换后农历日, 局_转换后是否闰月)<br /> 局_公历日期 ＝ 到时间 (标签4_结果.标题)<br /> 调试输出 (局_公历日期)

何必太在意

  

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

变量名	类 型	静态	数组	备 注
n	整数型
y	整数型
r	整数型
k	逻辑型

公历转农历 (到时间 (编辑框1.内容), n, y, r, k)
调试输出 (n, y, r, k)
如果 (k ＝ 真)
编辑框2.内容 ＝ 到文本 (n) ＋ “-” ＋ “闰” ＋ 到文本 (y) ＋ “-” ＋ 到文本 (r)
编辑框2.内容 ＝ 到文本 (n) ＋ “-” ＋ 到文本 (y) ＋ 到文本 (r)

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

.版本 2<br /> .支持库 CnCalendar<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 n, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 r, 整数型<br /> .局部变量 k, 逻辑型<br /> <br /> 公历转农历 (到时间 (编辑框1.内容), n, y, r, k)<br /> 调试输出 (n, y, r, k)<br /> .如果 (k ＝ 真)<br />     编辑框2.内容 ＝ 到文本 (n) ＋ “-” ＋ “闰” ＋ 到文本 (y) ＋ “-” ＋ 到文本 (r)<br /> .否则<br />     编辑框2.内容 ＝ 到文本 (n) ＋ “-” ＋ 到文本 (y) ＋ 到文本 (r)<br /> .如果结束

取名字太难了

  

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

变量名	类 型	静态	数组	备 注
局_转换后农历年	整数型
局_转换后农历月	整数型
局_转换后农历日	整数型
局_转换后是否闰月	逻辑型
局_公历日期	日期时间型
局_下次生日	日期时间型
局_年龄	整数型
局_转换后农历	日期时间型

局_公历日期 ＝ 到时间 (编辑框1.内容 ＋ “年” ＋ 编辑框3.内容 ＋ “月” ＋ 编辑框2.内容 ＋ “日”)
公历转农历 (局_公历日期, 局_转换后农历年, 局_转换后农历月, 局_转换后农历日, 局_转换后是否闰月)
局_年龄 ＝ 取时间间隔 (取现行时间 (), 局_公历日期, 1)
' 局_下次生日 ＝ 增减时间 (局_公历日期, 1, 局_年龄)
' 局_公历日期 ＝ 到时间 (标签4_结果.标题)
' 调试输出 (局_公历日期)
调试输出 (到文本 (局_转换后农历年) ＋ “年” ＋ 到文本 (局_转换后农历月) ＋ “月” ＋ 到文本 (局_转换后农历日) ＋ “日”)

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

.版本 2<br /> .支持库 CnCalendar<br /> .支持库 spec<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 局_转换后农历年, 整数型<br /> .局部变量 局_转换后农历月, 整数型<br /> .局部变量 局_转换后农历日, 整数型<br /> .局部变量 局_转换后是否闰月, 逻辑型<br /> .局部变量 局_公历日期, 日期时间型<br /> .局部变量 局_下次生日, 日期时间型<br /> .局部变量 局_年龄, 整数型<br /> .局部变量 局_转换后农历, 日期时间型<br /> <br /> 局_公历日期 ＝ 到时间 (编辑框1.内容 ＋ “年” ＋ 编辑框3.内容 ＋ “月” ＋ 编辑框2.内容 ＋ “日”)<br /> 公历转农历 (局_公历日期, 局_转换后农历年, 局_转换后农历月, 局_转换后农历日, 局_转换后是否闰月)<br /> 局_年龄 ＝ 取时间间隔 (取现行时间 (), 局_公历日期, 1)<br /> <br /> ' 局_下次生日 ＝ 增减时间 (局_公历日期, 1, 局_年龄)<br /> <br /> ' 局_公历日期 ＝ 到时间 (标签4_结果.标题)<br /> ' 调试输出 (局_公历日期)<br /> 调试输出 (到文本 (局_转换后农历年) ＋ “年” ＋ 到文本 (局_转换后农历月) ＋ “月” ＋ 到文本 (局_转换后农历日) ＋ “日”)

漩涡鸣人

【一周一训练NO.0048】女神生日计算器
http://bbs.125.la/forum.php?mod=viewthread&tid=14008588
(出处: 精易论坛)

北之星

漩涡鸣人 发表于 2017-8-2 19:48
【一周一训练NO.0048】女神生日计算器
http://bbs.125.la/forum.php?mod=viewthread&tid=14008588
(出处: ...

你好，我是还想实现一个直接输入阳历，我直接计算的功能，但是自己不会把编辑框里面输入的数字进行运算