获取指定时间与先行时间的描述，例如“56秒前”4.2小时前”

精意源码

注意，时间格式必须是“xxxx-xx-xx xx:xx:xx”，可以先格式化时间后，调用此函数，函数调用方法返回示例

  

变量名	类 型	静态	数组	备 注
测试时间	文本型
结果	文本型

测试时间 ＝ “2026-02-13 13:00:17”
结果 ＝ 获取相对时间描述 (测试时间)
信息框 (结果, 0, “相对时间”, )

.版本 2<br /> <br /> .局部变量 测试时间, 文本型<br /> .局部变量 结果, 文本型<br /> <br /> 测试时间 ＝ “2026-02-13 13:00:17”<br /> 结果 ＝ 获取相对时间描述 (测试时间)<br /> 信息框 (结果, 0, “相对时间”, )

返回 “6.7小时前”，每个人的时间不一样，结果也不一样

函数代码：

  

子程序名	返回值类型	公开	备 注
获取相对时间描述	文本型
参数名	类 型	参考	可空	数组	备 注
指定时间文本	文本型

变量名	类 型	静态	数组	备 注
指定时间	日期时间型
当前时间	日期时间型
时间差秒数	双精度小数型
时间差分钟	双精度小数型
时间差小时	双精度小数型
时间差天数	双精度小数型
时间差周数	双精度小数型
时间差月数	双精度小数型
时间差年数	双精度小数型

' 转换输入时间文本为日期时间型
指定时间 ＝ 到时间 (指定时间文本)
当前时间 ＝ 取现行时间 ()
' 计算时间差（秒）
时间差秒数 ＝ 取时间间隔 (当前时间, 指定时间, #秒 )
' 判断时间差方向
如果真 (时间差秒数 ＜ 0)
返回 (“刚刚”)

' 按时间跨度自动选择合适单位
判断 (时间差秒数 ＜ 60)
' 小于1分钟
如果 (时间差秒数 ＜ 10)
返回 (“刚刚”)
返回 (到文本 (取整 (时间差秒数)) ＋ “秒前”)

判断 (时间差秒数 ＜ 3600)
' 小于1小时，显示分钟
时间差分钟 ＝ 时间差秒数 ÷ 60
如果 (时间差分钟 ＜ 1)
返回 (“1分钟前”)
如果 (时间差分钟 ＜ 10)
' 小于10分钟，显示整数
返回 (到文本 (取整 (时间差分钟)) ＋ “分钟前”)
' 10分钟以上，保留1位小数
返回 (到文本 (四舍五入 (时间差分钟 × 10, ) ÷ 10) ＋ “分钟前”)


判断 (时间差秒数 ＜ 86400)
' 小于1天，显示小时
时间差小时 ＝ 时间差秒数 ÷ 3600
如果 (时间差小时 ＜ 1)
返回 (“1小时前”)
如果 (时间差小时 ＜ 10)
' 小于10小时，保留1位小数
返回 (到文本 (四舍五入 (时间差小时 × 10, ) ÷ 10) ＋ “小时前”)
' 10小时以上，显示整数
返回 (到文本 (取整 (时间差小时)) ＋ “小时前”)


判断 (时间差秒数 ＜ 2592000)
' 小于30天，显示天数
时间差天数 ＝ 时间差秒数 ÷ 86400
如果 (时间差天数 ＜ 1)
返回 (“1天前”)
如果 (时间差天数 ＜ 7)
' 小于7天，显示整数
返回 (到文本 (取整 (时间差天数)) ＋ “天前”)
' 7天以上，显示周数
时间差周数 ＝ 时间差天数 ÷ 7
如果 (时间差周数 ＜ 2)
返回 (到文本 (取整 (时间差周数)) ＋ “周前”)
' 2周以上，显示周数（保留1位小数）
返回 (到文本 (四舍五入 (时间差周数 × 10, ) ÷ 10) ＋ “周前”)



判断 (时间差秒数 ＜ 31536000)
' 小于1年，显示月数
时间差月数 ＝ 时间差秒数 ÷ 2592000
如果 (时间差月数 ＜ 1)
返回 (“1个月前”)
如果 (时间差月数 ＜ 12)
' 小于12个月，保留1位小数
返回 (到文本 (四舍五入 (时间差月数 × 10, ) ÷ 10) ＋ “个月前”)
' 12个月以上，显示年数
时间差年数 ＝ 时间差秒数 ÷ 31536000
如果 (时间差年数 ＜ 1)
返回 (“1年前”)
返回 (到文本 (取整 (时间差年数)) ＋ “年前”)



' 1年以上
时间差年数 ＝ 时间差秒数 ÷ 31536000
返回 (到文本 (取整 (时间差年数)) ＋ “年前”)

.版本 2<br /> <br /> .子程序 获取相对时间描述, 文本型<br /> .参数 指定时间文本, 文本型<br /> .局部变量 指定时间, 日期时间型<br /> .局部变量 当前时间, 日期时间型<br /> .局部变量 时间差秒数, 双精度小数型<br /> .局部变量 时间差分钟, 双精度小数型<br /> .局部变量 时间差小时, 双精度小数型<br /> .局部变量 时间差天数, 双精度小数型<br /> .局部变量 时间差周数, 双精度小数型<br /> .局部变量 时间差月数, 双精度小数型<br /> .局部变量 时间差年数, 双精度小数型<br /> <br /> ' 转换输入时间文本为日期时间型<br /> 指定时间 ＝ 到时间 (指定时间文本)<br /> 当前时间 ＝ 取现行时间 ()<br /> <br /> ' 计算时间差（秒）<br /> 时间差秒数 ＝ 取时间间隔 (当前时间, 指定时间, #秒)<br /> <br /> ' 判断时间差方向<br /> .如果真 (时间差秒数 ＜ 0)<br />     返回 (“刚刚”)<br /> .如果真结束<br /> <br /> ' 按时间跨度自动选择合适单位<br /> .判断开始 (时间差秒数 ＜ 60)<br />     ' 小于1分钟<br />     .如果 (时间差秒数 ＜ 10)<br />         返回 (“刚刚”)<br />     .否则<br />         返回 (到文本 (取整 (时间差秒数)) ＋ “秒前”)<br />     .如果结束<br /> <br /> .判断 (时间差秒数 ＜ 3600)<br />     ' 小于1小时，显示分钟<br />     时间差分钟 ＝ 时间差秒数 ÷ 60<br />     .如果 (时间差分钟 ＜ 1)<br />         返回 (“1分钟前”)<br />     .否则<br />         .如果 (时间差分钟 ＜ 10)<br />             ' 小于10分钟，显示整数<br />             返回 (到文本 (取整 (时间差分钟)) ＋ “分钟前”)<br />         .否则<br />             ' 10分钟以上，保留1位小数<br />             返回 (到文本 (四舍五入 (时间差分钟 × 10, ) ÷ 10) ＋ “分钟前”)<br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .判断 (时间差秒数 ＜ 86400)<br />     ' 小于1天，显示小时<br />     时间差小时 ＝ 时间差秒数 ÷ 3600<br />     .如果 (时间差小时 ＜ 1)<br />         返回 (“1小时前”)<br />     .否则<br />         .如果 (时间差小时 ＜ 10)<br />             ' 小于10小时，保留1位小数<br />             返回 (到文本 (四舍五入 (时间差小时 × 10, ) ÷ 10) ＋ “小时前”)<br />         .否则<br />             ' 10小时以上，显示整数<br />             返回 (到文本 (取整 (时间差小时)) ＋ “小时前”)<br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .判断 (时间差秒数 ＜ 2592000)<br />     ' 小于30天，显示天数<br />     时间差天数 ＝ 时间差秒数 ÷ 86400<br />     .如果 (时间差天数 ＜ 1)<br />         返回 (“1天前”)<br />     .否则<br />         .如果 (时间差天数 ＜ 7)<br />             ' 小于7天，显示整数<br />             返回 (到文本 (取整 (时间差天数)) ＋ “天前”)<br />         .否则<br />             ' 7天以上，显示周数<br />             时间差周数 ＝ 时间差天数 ÷ 7<br />             .如果 (时间差周数 ＜ 2)<br />                 返回 (到文本 (取整 (时间差周数)) ＋ “周前”)<br />             .否则<br />                 ' 2周以上，显示周数（保留1位小数）<br />                 返回 (到文本 (四舍五入 (时间差周数 × 10, ) ÷ 10) ＋ “周前”)<br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .判断 (时间差秒数 ＜ 31536000)<br />     ' 小于1年，显示月数<br />     时间差月数 ＝ 时间差秒数 ÷ 2592000<br />     .如果 (时间差月数 ＜ 1)<br />         返回 (“1个月前”)<br />     .否则<br />         .如果 (时间差月数 ＜ 12)<br />             ' 小于12个月，保留1位小数<br />             返回 (到文本 (四舍五入 (时间差月数 × 10, ) ÷ 10) ＋ “个月前”)<br />         .否则<br />             ' 12个月以上，显示年数<br />             时间差年数 ＝ 时间差秒数 ÷ 31536000<br />             .如果 (时间差年数 ＜ 1)<br />                 返回 (“1年前”)<br />             .否则<br />                 返回 (到文本 (取整 (时间差年数)) ＋ “年前”)<br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .默认<br />     ' 1年以上<br />     时间差年数 ＝ 时间差秒数 ÷ 31536000<br />     返回 (到文本 (取整 (时间差年数)) ＋ “年前”)<br /> <br /> .判断结束

不需要任何模块

zhouli5464

不错  收藏了