日期插入到高级表格

杨明煜

值得学习，谢谢呀！..........

wh1234567

笨来无一悟 发表于 2025-2-24 00:19
[e=4].版本 2
.支持库 eGrid

你用打印预览测试

wh1234567

笨来无一悟 发表于 2025-2-24 00:19
[e=4].版本 2
.支持库 eGrid

第0行和0列文字颜色和背景颜色，在打印时如何打印出来？求解

wh1234567

.版本 2 .支持库 eGrid  .如果真 (高级表格1.行数 ＜ 8)     高级表格1.行数 ＝ 8 这里任意修改没影响吧？

wh1234567

笨来无一悟 发表于 2025-2-24 00:19
[e=4].版本 2
.支持库 eGrid

发现一个问题，今天到3-31日时就少插入了31号这个日期了，6月30日也是少插入了，2026年3月2日也是如此没插入

wh1234567

笨来无一悟 发表于 2025-2-24 00:19
[e=4].版本 2
.支持库 eGrid

高级表格1.左右居中打印怎么写？

wh1234567

笨来无一悟 发表于 2025-2-24 00:19
[e=4].版本 2
.支持库 eGrid

这次闹对了，呵呵呵，如果像楼主换行加农历的话，只在一处添加 ＋ #换行符 ＋ 格式化日期 (开始日期, “%M%D”)吧？

笨来无一悟

wh1234567 发表于 2025-2-23 21:37
我要的是楼主这样的效果，您可能没看懂我的意思https://bbs.125.la/thread-14848938-1-1.html，你的这个 ...

  

子程序名	返回值类型	公开	备 注
表格日历
参数名	类 型	参考	可空	数组	备 注
开始日期	日期时间型
结束日期	日期时间型

变量名	类 型	静态	数组	备 注
开始	整数型

如果真 (开始日期 ＞ 结束日期)
交换变量 (开始日期, 结束日期)
结束日期 ＝ 增减时间 (结束日期, 5, 1)
开始 ＝ 选择 (取星期几 (开始日期) ＝ 1, 6, 取星期几 (开始日期) － 2)
表格.行数 ＝ ���取整 (��� ( (取时间间隔 (结束日期, 开始日期, 5) ＋ 开始 － 1) ÷ 7)) ＋ 1
表格.清空单元格数据 (1, 0, 表格.行数, 表格.列数)
判断循环首 (开始日期 ≠ 结束日期)
表格.置数据 (开始 ÷ 7 ＋ 1, 开始 ％ 7 ＋ 1, 1, 到文本 (取月份 (开始日期)) ＋ “.” ＋ 到文本 (取日 (开始日期)))
开始日期 ＝ 增减时间 (开始日期, 5, 1)
开始 ＝ 开始 ＋ 1
判断循环尾 ()
计次循环首 (表格.行数, 开始)
表格.置数据 (开始, 0, 1, 开始)
计次循环尾 ()
如果真 (表格.行数 ＜ 8)
表格.行数 ＝ 8
表格.置对齐方式 (0, 0, 表格.行数, 表格.行数, 2)
表格.置单元格文字颜色 (0, 0, 表格.行数, 0, #天蓝 )
表格.置单元格文字颜色 (0, 6, 表格.行数, 7, #橙黄 )

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

.版本 2<br /> .支持库 eGrid<br /> <br /> .子程序 表格日历<br /> .参数 开始日期, 日期时间型<br /> .参数 结束日期, 日期时间型<br /> .局部变量 开始, 整数型<br /> <br /> .如果真 (开始日期 ＞ 结束日期)<br />     交换变量 (开始日期, 结束日期)<br /> .如果真结束<br /> 结束日期 ＝ 增减时间 (结束日期, 5, 1)<br /> 开始 ＝ 选择 (取星期几 (开始日期) ＝ 1, 6, 取星期几 (开始日期) － 2)<br /> 表格.行数 ＝ －取整 (－((取时间间隔 (结束日期, 开始日期, 5) ＋ 开始 － 1) ÷ 7)) ＋ 1<br /> 表格.清空单元格数据 (1, 0, 表格.行数, 表格.列数)<br /> .判断循环首 (开始日期 ≠ 结束日期)<br />     表格.置数据 (开始 ÷ 7 ＋ 1, 开始 ％ 7 ＋ 1, 1, 到文本 (取月份 (开始日期)) ＋ “.” ＋ 到文本 (取日 (开始日期)))<br />     开始日期 ＝ 增减时间 (开始日期, 5, 1)<br />     开始 ＝ 开始 ＋ 1<br /> .判断循环尾 ()<br /> .计次循环首 (表格.行数, 开始)<br />     表格.置数据 (开始, 0, 1, 开始)<br /> .计次循环尾 ()<br /> .如果真 (表格.行数 ＜ 8)<br />     表格.行数 ＝ 8<br /> .如果真结束<br /> 表格.置对齐方式 (0, 0, 表格.行数, 表格.行数, 2)<br /> 表格.置单元格文字颜色 (0, 0, 表格.行数, 0, #天蓝)<br /> 表格.置单元格文字颜色 (0, 6, 表格.行数, 7, #橙黄)

wh1234567

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

我要的是楼主这样的效果，您可能没看懂我的意思https://bbs.125.la/thread-14848938-1-1.html，你的这个修改了不行，你直接修正后发上来

wh1234567

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

按您说等修改了，就这效果，老师亲自修改一下行不行？我主要是想要楼主那种效果，楼主1天了没见修正