|
|
发表于 2025-10-27 00:26:58
|
显示全部楼层
江西省南昌市
到期时间 = 解析到期时间 (10115 ) 信息框 (“到期时间:” + 到期时间, 0, , )到期时间 = 解析到期时间 (101015 ) 信息框 (“到期时间:” + 到期时间, 0, , )返回 (0 )| 变量名 | 类 型 | 静态 | 数组 | 备 注 | | 代码文本 | 文本型 | | | | 日期部分 | 文本型 | | | | 分钟部分 | 文本型 | | | | 年 | 整数型 | | | | 月 | 整数型 | | | | 日 | 整数型 | | | | 分钟 | 整数型 | | | | 到期时间 | 日期时间型 | | |
代码文本 = 到文本 (数字代码 ) 如果 (取文本长度 (代码文本 ) = 5 ) 日期部分 = 取文本左边 (代码文本, 3 ) 分钟部分 = 取文本右边 (代码文本, 2 ) 月 = 到整数 (取文本左边 (日期部分, 1 ))  日 = 到整数 (取文本右边 (日期部分, 2 ))  年 = 取年份 (取现行时间 ())  分钟 = 到整数 (分钟部分 )  如果 (取文本长度 (代码文本 ) = 6 )  日期部分 = 取文本左边 (代码文本, 4 )  分钟部分 = 取文本右边 (代码文本, 2 )  月 = 到整数 (取文本左边 (日期部分, 2 ))   日 = 到整数 (取文本右边 (日期部分, 2 ))   年 = 取年份 (取现行时间 ())   分钟 = 到整数 (分钟部分 ) 返回 (“错误:代码必须是五位数或六位数”)   如果真 (月 < 1 或 月 > 12 或 日 < 1 或 日 > 31 ) 返回 (“错误:无效的日期”) 到期时间 = 到时间 (到文本 (年 ) + “-” + 到文本 (月 ) + “-” + 到文本 (日 ) + “ 00:00:00”)到期时间 = 增减时间 (到期时间, #分钟, 分钟 )返回 (到文本 (到期时间 ))
|
|