日期插入到高级表格

ttggnn

谢谢分享

lqylbh

感谢你的支持，精易有你更精彩

wh1234567

笨来无一悟 发表于 2025-2-23 14:29
逻辑搞复杂了 一个循环足够了 循环里面循环外面也不需要任何判断
[e=4].版本 2
.支持库 eGrid

老师帮修正一下楼主源码，是哪里问题导致不够精确插入的

year1970

感谢分享，学习一下

wh1234567

老师，超出日期范围的日期不应该插入以及本该插入到周日位置的却插入到了周一位置，这个问题的原因在哪里？能不能修正一下

wh1234567

循环里面的表格行数后面的+1就是起始行 你从第10行就+10 每次插入占用了多少行记录一下 下次插入就+这个值就行了    具体如何修正？还得老师亲自修正一下吧，呵呵

wh1234567

期待老师修正一下，把超出范围的多余的日期不要插入，期待...

wh1234567

笨来无一悟 发表于 2025-2-23 14:29
逻辑搞复杂了 一个循环足够了 循环里面循环外面也不需要任何判断
[e=4].版本 2
.支持库 eGrid

不是这样的老师，就昨晚上您写的那个需要修正一下即可

笨来无一悟

逻辑搞复杂了 一个循环足够了 循环里面循环外面也不需要任何判断

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
计次	整数型

表格.行数 ＝ 7
表格.列数 ＝ 7
表格.列宽 ＝ 表格.行高
表格.允许调整行高 ＝ 假
表格.允许调整列宽 ＝ 假
表格.移动 (0, 0, 表格.列宽 × 表格.列数 ＋ 5, 表格.行高 × 表格.行数 ＋ 5)
表格.置单元格文字颜色 (0, 0, 表格.行数, 0, #橙黄 )
表格.置单元格文字颜色 (0, 6, 表格.行数, 6, #橙黄 )
计次循环首 (7, 计次)
表格.置数据 (0, 计次 － 1, 1, 多项选择 (计次, “日”, “一”, “二”, “三”, “四”, “五”, “六”))
计次循环尾 ()
表格日历 ()
_启动窗口.宽度 ＝ 表格.宽度 ＋ 4
_启动窗口.高度 ＝ 表格.高度 ＋ 26

子程序名	返回值类型	公开	备 注
表格日历

变量名	类 型	静态	数组	备 注
现在	日期时间型
一号	整数型
天数	整数型
计次	整数型

现在 ＝ 取现行时间 ()
_启动窗口.标题 ＝ 到文本 (取年份 (现在)) ＋ “ / ” ＋ 到文本 (取月份 (现在))
一号 ＝ 取星期几 (指定时间 (取年份 (现在), 取月份 (现在), , , , )) － 1
天数 ＝ 取某月天数 (取年份 (现在), 取月份 (现在))
变量循环首 (一号, 一号 ＋ 天数 － 1, 1, 计次)
表格.置数据 (计次 ÷ 7 ＋ 1, 计次 ％ 7, 1, 计次 － 一号 ＋ 1)
变量循环尾 ()

i支持库列表	支持库注释
eGrid	高级表格支持库

.版本 2<br /> .支持库 eGrid<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 计次, 整数型<br /> <br /> 表格.行数 ＝ 7<br /> 表格.列数 ＝ 7<br /> 表格.列宽 ＝ 表格.行高<br /> 表格.允许调整行高 ＝ 假<br /> 表格.允许调整列宽 ＝ 假<br /> 表格.移动 (0, 0, 表格.列宽 × 表格.列数 ＋ 5, 表格.行高 × 表格.行数 ＋ 5)<br /> 表格.置单元格文字颜色 (0, 0, 表格.行数, 0, #橙黄)<br /> 表格.置单元格文字颜色 (0, 6, 表格.行数, 6, #橙黄)<br /> .计次循环首 (7, 计次)<br />     表格.置数据 (0, 计次 － 1, 1, 多项选择 (计次, “日”, “一”, “二”, “三”, “四”, “五”, “六”))<br /> .计次循环尾 ()<br /> 表格日历 ()<br /> _启动窗口.宽度 ＝ 表格.宽度 ＋ 4<br /> _启动窗口.高度 ＝ 表格.高度 ＋ 26<br /> <br /> .子程序 表格日历<br /> .局部变量 现在, 日期时间型<br /> .局部变量 一号, 整数型<br /> .局部变量 天数, 整数型<br /> .局部变量 计次, 整数型<br /> <br /> 现在 ＝ 取现行时间 ()<br /> _启动窗口.标题 ＝ 到文本 (取年份 (现在)) ＋ “ / ” ＋ 到文本 (取月份 (现在))<br /> 一号 ＝ 取星期几 (指定时间 (取年份 (现在), 取月份 (现在), , , , )) － 1<br /> 天数 ＝ 取某月天数 (取年份 (现在), 取月份 (现在))<br /> .变量循环首 (一号, 一号 ＋ 天数 － 1, 1, 计次)<br />     表格.置数据 (计次 ÷ 7 ＋ 1, 计次 ％ 7, 1, 计次 － 一号 ＋ 1)<br /> .变量循环尾 ()

wh1234567

出现这种情况，期待老师修正一下，把超出范围的多余的日期不要插入，期待...