如何把几天前转换为具体的日期呢

396384183

问题一：如何把 “1天前” 或者 “5天钱”  或者说 N天前 转换为：2024年1月30日 这种日期格式呢？
问题一：如何把  “1小时前” 或者 “15小时前”   转换为：2024年1月30日 这种日期格式呢？

帅气与大侠

应该满足正常的中文的逻辑时间增减处理了

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

调试输出 (时间_增减 (“1天前”))
调试输出 (时间_增减 (“5天钱”))  ' 找到“前”则减时间，否则加时间
调试输出 (时间_增减 (“7天前”))
调试输出 (时间_增减 (“1小时前”))
调试输出 (时间_增减 (“15小时前”))
调试输出 (时间_增减 (“1年2小时前”))
调试输出 (时间_增减 (“1年2小时后”))
' 开始运行被调试程序
' * [2024年2月4日22时11分1秒]
' * [2024年2月10日22时11分1秒]
' * [2024年1月29日22时11分1秒]
' * [2024年2月5日21时11分1秒]
' * [2024年2月5日7时11分1秒]
' * [2023年2月5日20时11分1秒]
' * [2025年2月6日0时11分1秒]
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
时间_增减	日期时间型
参数名	类 型	参考	可空	数组	备 注
逻辑时间文本	文本型				时间文本可以包含：年季月周日时分秒 或 年份、季度、月份、周、天、小时、分钟、秒

变量名	类 型	静态	数组	备 注
逻辑时间文本长度	整数型
终止位置	整数型
年季月周日时分秒	整数型		8
是否有前	逻辑型
现行时间	日期时间型
I	整数型
关键字数组	文本型		0

逻辑时间文本长度 ＝ 取文本长度 (逻辑时间文本)
关键字数组 ＝ { “年份”, “季度”, “月份”, “周”, “天”, “小时”, “分钟”, “秒” }
计次循环首 (取数组成员数 (关键字数组), I)
终止位置 ＝ 寻找文本 (逻辑时间文本, 关键字数组 [I], , 假)
如果真 (终止位置 ≠ -1)
年季月周日时分秒 [I] ＝ _倒找整数 (逻辑时间文本, 终止位置 － 1)

计次循环尾 ()
关键字数组 ＝ { “年”, “季”, “月”, “周”, “日”, “时”, “分”, “秒” }
计次循环首 (取数组成员数 (关键字数组), I)
终止位置 ＝ 寻找文本 (逻辑时间文本, 关键字数组 [I], , 假)
如果真 (终止位置 ≠ -1)
年季月周日时分秒 [I] ＝ _倒找整数 (逻辑时间文本, 终止位置 － 1)

计次循环尾 ()
如果真 (寻找文本 (逻辑时间文本, “前”, , 假) ≠ -1)
是否有前 ＝ 真

现行时间 ＝ 取现行时间 ()
计次循环首 (取数组成员数 (年季月周日时分秒), I)
判断 (是否有前 ＝ 真)
现行时间 ＝ 增减时间 (现行时间, I, －年季月周日时分秒 [I])
现行时间 ＝ 增减时间 (现行时间, I, 年季月周日时分秒 [I])

计次循环尾 ()
返回 (现行时间)

子程序名	返回值类型	公开	备 注
_倒找整数	整数型
参数名	类 型	参考	可空	数组	备 注
逻辑时间文本	文本型
终止位置	整数型

变量名	类 型	静态	数组	备 注
I	整数型
代码	整数型
整数文本	文本型

变量循环首 (终止位置, 1, -1, I)
代码 ＝ 取代码 (逻辑时间文本, I)
判断 (代码 ≥ #键0 且 代码 ≤ #键9 )
整数文本 ＝ 字符 (代码) ＋ 整数文本
判断 (代码 ＝ #空格键 或 取文本长度 (整数文本) ＝ 0)

跳出循环 ()

变量循环尾 ()
返回 (到整数 (整数文本))

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 调试输出 (时间_增减 (“1天前”))<br /> 调试输出 (时间_增减 (“5天钱”))  ' 找到“前”则减时间，否则加时间<br /> 调试输出 (时间_增减 (“7天前”))<br /> 调试输出 (时间_增减 (“1小时前”))<br /> 调试输出 (时间_增减 (“15小时前”))<br /> 调试输出 (时间_增减 (“1年2小时前”))<br /> 调试输出 (时间_增减 (“1年2小时后”))<br /> ' 开始运行被调试程序<br /> ' * [2024年2月4日22时11分1秒]<br /> ' * [2024年2月10日22时11分1秒]<br /> ' * [2024年1月29日22时11分1秒]<br /> ' * [2024年2月5日21时11分1秒]<br /> ' * [2024年2月5日7时11分1秒]<br /> ' * [2023年2月5日20时11分1秒]<br /> ' * [2025年2月6日0时11分1秒]<br /> <br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 时间_增减, 日期时间型<br /> .参数 逻辑时间文本, 文本型, , 时间文本可以包含：年季月周日时分秒 或 年份、季度、月份、周、天、小时、分钟、秒<br /> .局部变量 逻辑时间文本长度, 整数型<br /> .局部变量 终止位置, 整数型<br /> .局部变量 年季月周日时分秒, 整数型, , "8"<br /> .局部变量 是否有前, 逻辑型<br /> .局部变量 现行时间, 日期时间型<br /> .局部变量 I, 整数型<br /> .局部变量 关键字数组, 文本型, , "0"<br /> <br /> 逻辑时间文本长度 ＝ 取文本长度 (逻辑时间文本)<br /> 关键字数组 ＝ { “年份”, “季度”, “月份”, “周”, “天”, “小时”, “分钟”, “秒” }<br /> .计次循环首 (取数组成员数 (关键字数组), I)<br />     终止位置 ＝ 寻找文本 (逻辑时间文本, 关键字数组 [I], , 假)<br />     .如果真 (终止位置 ≠ -1)<br />         年季月周日时分秒 [I] ＝ _倒找整数 (逻辑时间文本, 终止位置 － 1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 关键字数组 ＝ { “年”, “季”, “月”, “周”, “日”, “时”, “分”, “秒” }<br /> .计次循环首 (取数组成员数 (关键字数组), I)<br />     终止位置 ＝ 寻找文本 (逻辑时间文本, 关键字数组 [I], , 假)<br />     .如果真 (终止位置 ≠ -1)<br />         年季月周日时分秒 [I] ＝ _倒找整数 (逻辑时间文本, 终止位置 － 1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .如果真 (寻找文本 (逻辑时间文本, “前”, , 假) ≠ -1)<br />     是否有前 ＝ 真<br /> .如果真结束<br /> <br /> 现行时间 ＝ 取现行时间 ()<br /> .计次循环首 (取数组成员数 (年季月周日时分秒), I)<br />     .判断开始 (是否有前 ＝ 真)<br />         现行时间 ＝ 增减时间 (现行时间, I, －年季月周日时分秒 [I])<br />     .默认<br />         现行时间 ＝ 增减时间 (现行时间, I, 年季月周日时分秒 [I])<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 返回 (现行时间)<br /> <br /> .子程序 _倒找整数, 整数型<br /> .参数 逻辑时间文本, 文本型<br /> .参数 终止位置, 整数型<br /> .局部变量 I, 整数型<br /> .局部变量 代码, 整数型<br /> .局部变量 整数文本, 文本型<br /> <br /> .变量循环首 (终止位置, 1, -1, I)<br />     代码 ＝ 取代码 (逻辑时间文本, I)<br />     .判断开始 (代码 ≥ #键0 且 代码 ≤ #键9)<br />         整数文本 ＝ 字符 (代码) ＋ 整数文本<br />     .判断 (代码 ＝ #空格键 或 取文本长度 (整数文本) ＝ 0)<br /> <br />     .默认<br />         跳出循环 ()<br />     .判断结束<br /> <br /> .变量循环尾 ()<br /> 返回 (到整数 (整数文本))

396384183

想要个具体的例子 非常感谢 ，我只知道  调试输出 (“昨天：” ＋ 时间_到文本 (增减时间 (时间, 5, -1), , 1))

1752328925

  

变量名	类 型	静态	数组	备 注
时间	日期时间型

' 被增减的部分 1、#年份； 2、#季度； 3、#月份； 4、#周； 5、#日； 6、#小时； 7、#分钟； 8、#秒。
时间 ＝ 增减时间 (取现行时间 (), 5, -1)
调试输出 (到文本 (时间))

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 时间, 日期时间型<br /> <br /> <br /> ' 被增减的部分 1、#年份； 2、#季度； 3、#月份； 4、#周； 5、#日； 6、#小时； 7、#分钟； 8、#秒。<br /> 时间 ＝ 增减时间 (取现行时间 (), 5, -1)<br /> 调试输出 (到文本 (时间))

b0y

  

子程序名	返回值类型	公开	备 注
test

变量名	类 型	静态	数组	备 注
str	文本型
dltS	整数型

str ＝ “1小时前”
dltS ＝ 到整数 (str)
判断 (寻找文本 (str, “分钟”, , 假) ≠ -1)
dltS ＝ dltS × 60
判断 (寻找文本 (str, “小时”, , 假) ≠ -1)
dltS ＝ dltS × 3600
判断 (寻找文本 (str, “天”, , 假) ≠ -1)
dltS ＝ dltS × 3600 × 24
调试输出 (“没有条件的判断条件”)
如果真 (寻找文本 (str, “前”, , 假) ≠ -1)
dltS ＝ －dltS
调试输出 (dltS)
调试输出 (timedelta (取现行时间 (), dltS))
调试输出 (timedelta ([2024年1月10日12时13分14秒], dltS))
' * -3600
' * [2024年2月5日20时47分21秒]
' * [2024年1月10日11时13分14秒]
' 被调试易程序运行完毕

子程序名	返回值类型	公开	备 注
timedelta	日期时间型
参数名	类 型	参考	可空	数组	备 注
now	日期时间型
deltaS	整数型				增量秒数

返回 (增减时间 (now, #秒, deltaS))

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 test<br /> .局部变量 str, 文本型<br /> .局部变量 dltS, 整数型<br /> <br /> str ＝ “1小时前”<br /> dltS ＝ 到整数 (str)<br /> .判断开始 (寻找文本 (str, “分钟”, , 假) ≠ -1)<br />     dltS ＝ dltS × 60<br /> .判断 (寻找文本 (str, “小时”, , 假) ≠ -1)<br />     dltS ＝ dltS × 3600<br /> .判断 (寻找文本 (str, “天”, , 假) ≠ -1)<br />     dltS ＝ dltS × 3600 × 24<br /> .默认<br />     调试输出 (“没有条件的判断条件”)<br /> .判断结束<br /> .如果真 (寻找文本 (str, “前”, , 假) ≠ -1)<br />     dltS ＝ －dltS<br /> .如果真结束<br /> 调试输出 (dltS)<br /> 调试输出 (timedelta (取现行时间 (), dltS))<br /> 调试输出 (timedelta ([2024年1月10日12时13分14秒], dltS))<br /> <br /> ' * -3600<br /> ' * [2024年2月5日20时47分21秒]<br /> ' * [2024年1月10日11时13分14秒]<br /> ' 被调试易程序运行完毕<br /> <br /> <br /> .子程序 timedelta, 日期时间型<br /> .参数 now, 日期时间型<br /> .参数 deltaS, 整数型, , 增量秒数<br /> <br /> 返回 (增减时间 (now, #秒, deltaS))

1752328925

1752328925 发表于 2024-2-5 21:28
[e=1].版本 2
.支持库 spec

调试输出 (到文本 (取日期 (增减时间 (取现行时间 (), 5, -1))))