日期加减

深爱者

自定义日期【2024-05-27】传参1，返回【2024-05-28】

传参2，返回【2024-05-29】

传参4，返回【2024-05-31】

传参5，返回【2024-06-01】

以此类推

fire9

fire9 发表于 2024-5-27 02:52
宠你一次

修改版            

guowei0422

增减时间()

雨田9527

调用格式： 〈逻辑型〉 对象．增减日期 （整数型 要增减的天数） - 农历日期支持库->农历月历     英文名称：IncreaseDate     在当前日期的基础上增减指定天数。本命令为初级对象成员命令。     参数<1>的名称为“要增减的天数”，类型为“整数型（int）”，初始值为“1”。大于零表示增加日期，小于零表示减小日期。      操作系统需求： Windows

补充内容 (2024-5-27 02:35):
三楼看图

雨田9527

  自己看

fire9

宠你一次         

Suky

  

调试输出 (子程序1 (“2024-05-29”, 1))

子程序名	返回值类型	公开	备 注
子程序1	文本型
参数名	类 型	参考	可空	数组	备 注
时间文本	文本型
增加值	整数型

变量名	类 型	静态	数组	备 注
时间	日期时间型
L_时间文本	文本型
替换文本	文本型		0
a	整数型

时间 ＝ 到时间 (时间文本)
调试输出 (时间)
L_时间文本 ＝ 到文本 (增减时间 (时间, #日, 增加值))
a ＝ 寻找文本 (L_时间文本, “日”, , 假) － 1
L_时间文本 ＝ 取文本左边 (L_时间文本, a)
替换文本 ＝ { “年”, “月” }
计次循环首 (取数组成员数 (替换文本), a)
L_时间文本 ＝ 子文本替换 (L_时间文本, 替换文本 [a], “-”, , , 真)
计次循环尾 ()
返回 (L_时间文本)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> 调试输出 (子程序1 (“2024-05-29”, 1))<br /> <br /> .子程序 子程序1, 文本型<br /> .参数 时间文本, 文本型, 可空<br /> .参数 增加值, 整数型<br /> .局部变量 时间, 日期时间型<br /> .局部变量 L_时间文本, 文本型<br /> .局部变量 替换文本, 文本型, , "0"<br /> .局部变量 a, 整数型<br /> <br /> 时间 ＝ 到时间 (时间文本)<br /> 调试输出 (时间)<br /> L_时间文本 ＝ 到文本 (增减时间 (时间, #日, 增加值))<br /> a ＝ 寻找文本 (L_时间文本, “日”, , 假) － 1<br /> L_时间文本 ＝ 取文本左边 (L_时间文本, a)<br /> 替换文本 ＝ { “年”, “月” }<br /> .计次循环首 (取数组成员数 (替换文本), a)<br />     L_时间文本 ＝ 子文本替换 (L_时间文本, 替换文本 [a], “-”, , , 真)<br /> .计次循环尾 ()<br /> 返回 (L_时间文本)

b0y

1.e (2.92 KB, 下载次数: 0)

2024-5-27 05:47 上传

点击文件名下载附件