.版本 2 .程序集 窗口程序集1 .子程序 _按钮1_被单击 .局部变量 局_是否闰月, 逻辑型 .局部变量 局_转换后公历日期, 日期时间型 .局部变量 局_年龄, 整数型 .局部变量 局_下次生日, 日期时间型 农历转公历 (到整数 (编辑框1.内容), 到整数 (编辑框2.内容), 到整数 (编辑框3.内容), 局_是否闰月, 局_转换后公历日期) 局_年龄 ＝ 取时间间隔 (取现行时间 (), 局_转换后公历日期, 1) 局_下次生日 ＝ 增减时间 (局_转换后公历日期, 1, 局_年龄) 标签1.标题 ＝ “当前年龄：” ＋ 到文本 (局_年龄) ＋ #换行符 ＋ “下次生日：” ＋ 到文本 (局_下次生日) ' 调试输出 (局_下次生日)