友好的时间格式

静静聆听音乐吧

  

子程序名	返回值类型	公开	备 注
友好的时间格式	文本型		“时间2”减去“时间1”返回友好的时间格式。 如：（刚刚 | X秒前 | X分钟前 | …）
参数名	类 型	参考	可空	数组	备 注
时间1	文本型				参考格式：(1973年11月15日12时30分25秒 | 1973/11/15 12:30:25 | 1973/11/15/12/30/25 | 1973/11/15/12:30:25 | 1973-11-15-12-30-25 | 1973-11-15-12:30:25 | 1973.11.15 12:30:25 | 19731115123025)
时间2	文本型				留空为当前系统时间。

变量名	类 型	静态	数组	备 注
Time	日期时间型		2
Date	整数型		7

Time [1] ＝ 到时间 (时间1)
判断 (是否为空 (时间2))
Time [2] ＝ 取现行时间 ()
Time [2] ＝ 到时间 (时间2)
Date [1] ＝ 取时间间隔 (Time [2], Time [1], 1)
Date [2] ＝ 取时间间隔 (Time [2], Time [1], 3)
Date [3] ＝ 取时间间隔 (Time [2], Time [1], 4)
Date [4] ＝ 取时间间隔 (Time [2], Time [1], 5)
Date [5] ＝ 取时间间隔 (Time [2], Time [1], 6)
Date [6] ＝ 取时间间隔 (Time [2], Time [1], 7)
Date [7] ＝ 取时间间隔 (Time [2], Time [1], 8)
如果真 (Date [1] ≠ 0)
返回 (到文本 (Date [1]) ＋ “年前”)
如果真 (Date [2] ≠ 0)
返回 (到文本 (Date [2]) ＋ “个月前”)
如果真 (Date [3] ≠ 0)
返回 (到文本 (Date [3]) ＋ “周前”)
如果真 (Date [4] ≠ 0)
返回 (到文本 (Date [4]) ＋ “天前”)
如果真 (Date [5] ≠ 0)
返回 (到文本 (Date [5]) ＋ “小时前”)
如果真 (Date [6] ≠ 0)
返回 (到文本 (Date [6]) ＋ “分钟前”)
如果真 (Date [7] ≠ 0)
返回 (选择 (Date [7] ≤ 10, “刚刚”, 到文本 (Date [7]) ＋ “秒前”))
返回 (“”)

.版本 2<br /> <br /> .子程序 友好的时间格式, 文本型, 公开, “时间2”减去“时间1”返回友好的时间格式。 如：（刚刚 | X秒前 | X分钟前 | …）<br /> .参数 时间1, 文本型, , 参考格式：(1973年11月15日12时30分25秒 | 1973/11/15 12:30:25 | 1973/11/15/12/30/25 | 1973/11/15/12:30:25 | 1973-11-15-12-30-25 | 1973-11-15-12:30:25 | 1973.11.15 12:30:25 | 19731115123025)<br /> .参数 时间2, 文本型, 可空, 留空为当前系统时间。<br /> .局部变量 Time, 日期时间型, , "2"<br /> .局部变量 Date, 整数型, , "7"<br /> <br /> Time [1] ＝ 到时间 (时间1)<br /> .判断开始 (是否为空 (时间2))<br />     Time [2] ＝ 取现行时间 ()<br /> .默认<br />     Time [2] ＝ 到时间 (时间2)<br /> .判断结束<br /> Date [1] ＝ 取时间间隔 (Time [2], Time [1], 1)<br /> Date [2] ＝ 取时间间隔 (Time [2], Time [1], 3)<br /> Date [3] ＝ 取时间间隔 (Time [2], Time [1], 4)<br /> Date [4] ＝ 取时间间隔 (Time [2], Time [1], 5)<br /> Date [5] ＝ 取时间间隔 (Time [2], Time [1], 6)<br /> Date [6] ＝ 取时间间隔 (Time [2], Time [1], 7)<br /> Date [7] ＝ 取时间间隔 (Time [2], Time [1], 8)<br /> .如果真 (Date [1] ≠ 0)<br />     返回 (到文本 (Date [1]) ＋ “年前”)<br /> .如果真结束<br /> .如果真 (Date [2] ≠ 0)<br />     返回 (到文本 (Date [2]) ＋ “个月前”)<br /> .如果真结束<br /> .如果真 (Date [3] ≠ 0)<br />     返回 (到文本 (Date [3]) ＋ “周前”)<br /> .如果真结束<br /> .如果真 (Date [4] ≠ 0)<br />     返回 (到文本 (Date [4]) ＋ “天前”)<br /> .如果真结束<br /> .如果真 (Date [5] ≠ 0)<br />     返回 (到文本 (Date [5]) ＋ “小时前”)<br /> .如果真结束<br /> .如果真 (Date [6] ≠ 0)<br />     返回 (到文本 (Date [6]) ＋ “分钟前”)<br /> .如果真结束<br /> .如果真 (Date [7] ≠ 0)<br />     返回 (选择 (Date [7] ≤ 10, “刚刚”, 到文本 (Date [7]) ＋ “秒前”))<br /> .如果真结束<br /> 返回 (“”)

萌新第一次分享简单的代码, 若有修正的地方, dalao们请不要客气, 多多提点...

明天你好呀！

666666666666

wy1987wy119

看不懂是做什么用的？？

LoveLQ

支持开源，感谢分享……

luoweixin

支持开源，感谢分享……

唐长老网络

支持开源！！！

梦X

时间戳啊

ytkkk

不错不错 很给力 get到了

wojinz

支持老帖。。。

hdf2015

这个看不懂是做什么用的？？