3000年万年历模块源码

.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕



.子程序 _按钮1_被单击
.局部变量 y
.局部变量 m
.局部变量 当月节气, 文本型
.局部变量 d
.局部变量 h
.局部变量 f
.局部变量 nln
.局部变量 nly
.局部变量 nlr
.局部变量 闰月, 逻辑型
.局部变量 年柱, 文本型
.局部变量 月柱, 文本型
.局部变量 日柱, 文本型
.局部变量 时柱, 文本型
.局部变量 n
.局部变量 sm
.局部变量 sd
.局部变量 sh
.局部变量 sf

y ＝ 到数值 (编辑框2.内容)
m ＝ 到数值 (编辑框3.内容)
d ＝ 到数值 (编辑框4.内容)
h ＝ 到数值 (编辑框5.内容)
f ＝ 到数值 (编辑框6.内容)
公历转农历 (y, m, d, h, nln, nly, nlr, 闰月)
取柱 (y, m, d, h, f, 年柱, 月柱, 日柱, 时柱)
编辑框1.内容 ＝ “农历 ” ＋ 到文本 (nln) ＋ “年 ” ＋ 选择 (闰月, “闰”, “”) ＋ 到文本 (nly) ＋ “月” ＋ 到文本 (nlr) ＋ “日 ” ＋ #换行符
编辑框1.内容 ＝ 编辑框1.内容 ＋ 年柱 ＋ “ ” ＋ 月柱 ＋ “ ” ＋ 日柱 ＋ “ ” ＋ 时柱 ＋ #换行符
' 编辑框1.内容 ＝ 编辑框1.内容 ＋ “这天是星期” ＋ 取星期 (y, m, d) ＋ #换行符
' 编辑框1.内容 ＝ 编辑框1.内容 ＋ “这天星宿 ” ＋ 取星宿名 (y, m, d) ＋ #换行符
' 编辑框1.内容 ＝ 编辑框1.内容 ＋ “历史年号: ” ＋ 取年号 (y) ＋ #换行符
编辑框1.内容 ＝ 编辑框1.内容 ＋ “(取六十甲子纳音测试)戊子->” ＋ 取六十甲子纳音 (“戊子”) ＋ #换行符
编辑框1.内容 ＝ 编辑框1.内容 ＋ “本年节气: ” ＋ #换行符

.计次循环首 (24, n)
    当月节气 ＝ 多项选择 (n, “立春”, “雨水”, “惊蛰”, “春分”, “清明”, “谷雨”, “立夏”, “小满”, “芒种”, “夏至”, “小暑”, “大暑”, “立秋”, “处暑”, “白露”, “秋分”, “寒露”, “霜降”, “立冬”, “小雪”, “大雪”, “冬至”, “小寒”, “大寒”)
    ' 取交节气时刻 (y, n)
    编辑框1.内容 ＝ 编辑框1.内容 ＋ 当月节气 ＋ “ ” ＋ 到文本 (取交节气时刻 (y, n)) ＋ #换行符

.计次循环尾 ()


.子程序 _按钮2_被单击
.局部变量 y
.局部变量 m
.局部变量 d
.局部变量 h
.局部变量 公历年
.局部变量 公历月
.局部变量 公历日

y ＝ 到数值 (编辑框2.内容)
m ＝ 到数值 (编辑框3.内容)
d ＝ 到数值 (编辑框4.内容)
.如果 (农历转公历 (y, m, d, 选择框1.选中, 公历年, 公历月, 公历日))
    编辑框1.内容 ＝ “转换公历为:” ＋ 到文本 (公历年) ＋ “年” ＋ 到文本 (公历月) ＋ “月” ＋ 到文本 (公历日) ＋ “日” ＋ #换行符
.否则
    编辑框1.内容 ＝ “不能转换农历到公历”
.如果结束