易语言高级表格日历源码

.版本 2
.支持库 eGrid

.程序集 窗口程序集1
.程序集变量 i, 整数型

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

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

.子程序 _组合框1_列表项被选择
.局部变量 sj, 日期时间型
.局部变量 h, 整数型
.局部变量 l, 整数型

h ＝ 1
l ＝ 1
高级表格1.清空数据 ()
高级表格1.点燃色 ＝ #红色
写标题 ()
sj ＝ 到时间 (组合框1.取项目文本 (组合框1.现行选中项) ＋ “-” ＋ 到文本 (1))
.计次循环首 (取某月天数 (取年份 (sj), 取月份 (sj)), i)
    sj ＝ 到时间 (组合框1.取项目文本 (组合框1.现行选中项) ＋ “-” ＋ 到文本 (i))
    l ＝ 取星期几 (sj)
    高级表格1.置数据 (h, l, 1, i)
    .如果 (l ＝ 7)
        h ＝ h ＋ 2
    .否则

    .如果结束

.计次循环尾 ()

.子程序 写标题

.计次循环首 (8, i)
    高级表格1.置数据 (0, i － 1, 1, 多项选择 (i, “星期”, “一”, “二”, “三”, “四”, “五”, “六”, “日”))
.计次循环尾 ()
.计次循环首 (10, i)
    高级表格1.置数据 (i, 0, 1, 多项选择 (i, “日期”, “计划”, “日期”, “计划”, “日期”, “计划”, “日期”, “计划”, “日期”, “计划”))
.计次循环尾 ()

@易语言代码编写例子