易语言高级表格公历农历日历源码

.版本 2
.支持库 eGrid
.支持库 CnCalendar

.程序集 窗口程序集1, , , ' 本源码来自三叶资源网(www.sanye.cx)
.程序集变量 i, 整数型

.子程序 __启动窗口_创建完毕
.局部变量 y, 整数型
.局部变量 m, 整数型
.局部变量 ii, 整数型

.计次循环首 (50, i)
    y ＝ 1990 ＋ i
    .计次循环首 (12, ii)
        m ＝ ii
        组合框1.加入项目 (到文本 (y) ＋ “-” ＋ 到文本 (m), )
    .计次循环尾 ()
.计次循环尾 ()

.子程序 _组合框1_列表项被选择
.局部变量 sj, 日期时间型
.局部变量 h, 整数型
.局部变量 l, 整数型
.局部变量 k, 日期时间型
.局部变量 是, 逻辑型
.局部变量 年0, 整数型
.局部变量 月0, 整数型
.局部变量 日0, 整数型
.局部变量 r, 文本型
.局部变量 q, 文本型

h ＝ 1
l ＝ 1
高级表格1.清空数据 ()
高级表格1.点燃色 ＝ #红色
写标题 ()
高级表格1.置对齐方式 (0, 0, 10, 7, 2)
标签1.标题 ＝ 组合框1.取项目文本 (组合框1.现行选中项)
sj ＝ 到时间 (组合框1.取项目文本 (组合框1.现行选中项) ＋ “-” ＋ 到文本 (1))
.计次循环首 (取某月天数 (取年份 (sj), 取月份 (sj)), i)
    sj ＝ 到时间 (组合框1.取项目文本 (组合框1.现行选中项) ＋ “-” ＋ 到文本 (i))
    l ＝ 取星期几 (sj)
    公历转农历 (sj, 年0, 月0, 日0, 是)
    高级表格1.置单元格背景颜色 (h ＋ 1, l, , 7, #绿色)
    .判断开始 (日0 ＞ 1 且 日0 ＜ 10)
        r ＝ “初” ＋ 到文本 (数值到大写 (日0, 真))
    .判断 (日0 ＝ 10)
        r ＝ “初” ＋ 取文本右边 (到文本 (数值到大写 (日0, 真)), 2)
    .判断 (日0 ＞ 10 且 日0 ＜ 20)
        r ＝ 取文本右边 (到文本 (数值到大写 (日0, 真)), 4)
    .判断 (日0 ＞ 19)
        r ＝ 到文本 (数值到大写 (日0, 真))
    .判断 (日0 ＝ 1)
        高级表格1.置单元格背景颜色 (h ＋ 1, l, , , #红色)
        r ＝ 多项选择 (月0, “正月”, “二月”, “三月”, “四月”, “五月”, “六月”, “七月”, “八月”, “九月”, “十月”, “冬月”, “腊月”)
    .默认

    .判断结束
    高级表格1.置数据 (h, l, 1, i)
    .如果 (取日 (sj) ＝ 取日 (取现行时间 ()))
        高级表格1.置单元格背景颜色 (h, l, , , #黄色)
    .否则

    .如果结束
    高级表格1.置数据 (h ＋ 1, l, 1, r)
    .如果 (l ＝ 7)
        h ＝ h ＋ 2
    .否则

    .如果结束

.计次循环尾 ()

.子程序 写标题

.计次循环首 (8, i)
    高级表格1.置数据 (0, i － 1, 1, 多项选择 (i, “星期”, “日”, “一”, “二”, “三”, “四”, “五”, “六”))
.计次循环尾 ()
' 本源码来自三叶资源网(www.sanye.cx)
.计次循环首 (10, i)
    高级表格1.置数据 (i, 0, 1, 多项选择 (i, “公历”, “农历”, “公历”, “农历”, “公历”, “农历”, “公历”, “农历”, “公历”, “农历”))
.计次循环尾 ()

@易语言代码编写例子