编辑框取指定时间内容

蚂蚁爱大象 · 发表于 2024-8-24 22:12:21

取出编辑框内当前时间前5天（含当天）的数据，如遇到周六向前顺延一天，如遇到周日向前顺延两天，还是取出5天的数据
非常感谢您的解答！！

影纸 · 发表于 2024-8-24 22:12:22

编辑框取指定时间内容

LEOONL · 发表于 2024-8-24 22:12:51

123.e (959.61 KB, 下载次数: 2)

蚂蚁爱大象 · 发表于 2024-8-24 22:13:05

123.e (960.53 KB, 下载次数: 3)

guowei0422 · 发表于 2024-8-24 22:22:23

123 10.e (1018.99 KB, 下载次数: 4)

LEOONL · 发表于 2024-8-24 22:26:25

123.e (960.23 KB, 下载次数: 3)

xianggu · 发表于 2024-8-24 22:38:54

这种效果?

子程序名	返回值类型	公开	备注
_按钮1_被单击

编辑框3.内容＝ “”
原日期＝时间_格式化 (日期框2.今天, “yyyy-MM-dd”, , , )
原始数据＝分割文本 (文本_删除空行 (编辑框2.内容), #换行符, )

计次循环首 (取数组成员数 (原始数据), i)

分割＝分割文本 (原始数据 [i], “|”, )

如果真 (到时间 (原日期) ＞到时间 (分割 [1]))

i ＝ 0

跳出循环 ()

如果真 (分割 [1] ＝原日期)

跳出循环 ()

计次循环尾 ()

计次循环首 (到整数 (编辑框1.内容), n)

索引＝索引＋ 1

分割1 ＝分割文本 (原始数据 [i ＋ n], “|”, )

如果真 (取星期几 (到时间 (分割1 [1])) ＝ 1)

索引＝ n ＋ 2

如果真 (取星期几 (到时间 (分割1 [1])) ＝ 7)

索引＝ n ＋ 1

编辑框3.加入文本 (原始数据 [i ＋索引] ＋ #换行符 )

计次循环尾 ()

蚂蚁爱大象 · 发表于 2024-8-24 22:46:10

LEOONL 发表于 2024-8-24 22:26

假如选取周日，只能取出两天的数据

假如选择周五，又会取出4天的数据

蚂蚁爱大象 · 发表于 2024-8-24 22:55:24

xianggu 发表于 2024-8-24 22:38
这种效果?[e=0].版本 2

.子程序 _按钮1_被单击

会出现重复日期呢！！

xianggu · 发表于 2024-8-24 22:57:19

蚂蚁爱大象发表于 2024-8-24 22:55
会出现重复日期呢！！

我是废物,用楼上那位大神的

		自动登录	找回密码
密码			注册

[已解决] 编辑框取指定时间内容