时间_时间戳转文本改进优化

ds9660 · 发表于 2016-4-8 18:20:16

本帖最后由萧阳天于 2016-4-8 21:40 编辑

子程序名	返回值类型	公开	备注
时间_时间戳转文本	文本型		把一个13位的时间戳，如：1325252169718 转成 2011-12-30 21:36:09
参数名	类型	参考	可空	数组	备注
时间戳	文本型

变量名	类型	静态	数组	备注
VBscript	对象
局_文本	文本型
局_数组	文本型		0
局_时间	日期时间型

线程_初始化COM库 ()

如果 (取文本长度 (时间戳) ＝ 10)

局_时间＝增减时间 (到时间 (“1970.01.01 08:00:00”), #秒, 到整数 (时间戳))

返回 (选择 (时间_取制式 () ＝ 0, 时间_格式化 (局_时间, “yyyy-M-dd ”, “hh:mm:ss”), 时间_格式化 (局_时间, “yyyy-M-dd ”, “HH:mm:ss”)))

如果真 (VBscript.创建 (“ScriptControl”, ))

VBscript.写属性 (“Language”, “JScript”)

VBscript.数值方法 (“ExecuteStatement”, “function timea(){var d,s;d=new Date();d.setTime('” ＋时间戳＋ “');return(d);}”)

局_文本＝ VBscript.通用方法 (“Run”, “timea”, ).取文本 ()

VBscript.清除 ()

如果真 (取文本长度 (局_文本) ＞ 0)

局_数组＝分割文本 (局_文本, “ ”, )

判断 (局_数组 [2] ＝ “Jan”)

局_数组 [2] ＝ “1”

判断 (局_数组 [2] ＝ “Feb”)

局_数组 [2] ＝ “2”

判断 (局_数组 [2] ＝ “Mar”)

局_数组 [2] ＝ “3”

判断 (局_数组 [2] ＝ “Apr”)

局_数组 [2] ＝ “4”

判断 (局_数组 [2] ＝ “May”)

局_数组 [2] ＝ “5”

判断 (局_数组 [2] ＝ “Jun”)

局_数组 [2] ＝ “6”

判断 (局_数组 [2] ＝ “Jul”)

局_数组 [2] ＝ “7”

判断 (局_数组 [2] ＝ “Aug”)

局_数组 [2] ＝ “8”

判断 (局_数组 [2] ＝ “Sep”)

局_数组 [2] ＝ “9”

判断 (局_数组 [2] ＝ “Oct”)

局_数组 [2] ＝ “10”

判断 (局_数组 [2] ＝ “Nov”)

局_数组 [2] ＝ “11”

判断 (局_数组 [2] ＝ “Dec”)

局_数组 [2] ＝ “12”

线程_取消COM库 ()

返回 (局_数组 [6] ＋ “-” ＋局_数组 [2] ＋ “-” ＋局_数组 [3] ＋ “ ” ＋局_数组 [4])

返回 (“”)

.版本 2<br />
<br />
.子程序 时间_时间戳转文本, 文本型, 公开, 把一个13位的时间戳，如：1325252169718 转成 2011-12-30 21:36:09<br />
.参数 时间戳, 文本型<br />
.局部变量 VBscript, 对象<br />
.局部变量 局_文本, 文本型<br />
.局部变量 局_数组, 文本型, , "0"<br />
.局部变量 局_时间, 日期时间型<br />
<br />
线程_初始化COM库 ()<br />
.如果 (取文本长度 (时间戳) ＝ 10)<br />
    局_时间 ＝ 增减时间 (到时间 (“1970.01.01 08:00:00”), #秒, 到整数 (时间戳))<br />
    返回 (选择 (时间_取制式 () ＝ 0, 时间_格式化 (局_时间, “yyyy-M-dd ”, “hh:mm:ss”), 时间_格式化 (局_时间, “yyyy-M-dd ”, “HH:mm:ss”)))<br />
.否则<br />
    .如果真 (VBscript.创建 (“ScriptControl”, ))<br />
        VBscript.写属性 (“Language”, “JScript”)<br />
        VBscript.数值方法 (“ExecuteStatement”, “function timea(){var d,s;d=new Date();d.setTime('” ＋ 时间戳 ＋ “');return(d);}”)<br />
        局_文本 ＝ VBscript.通用方法 (“Run”, “timea”, ).取文本 ()<br />
        VBscript.清除 ()<br />
        .如果真 (取文本长度 (局_文本) ＞ 0)<br />
            局_数组 ＝ 分割文本 (局_文本, “ ”, )<br />
            .判断开始 (局_数组 [2] ＝ “Jan”)<br />
                局_数组 [2] ＝ “1”<br />
            .判断 (局_数组 [2] ＝ “Feb”)<br />
                局_数组 [2] ＝ “2”<br />
            .判断 (局_数组 [2] ＝ “Mar”)<br />
                局_数组 [2] ＝ “3”<br />
            .判断 (局_数组 [2] ＝ “Apr”)<br />
                局_数组 [2] ＝ “4”<br />
            .判断 (局_数组 [2] ＝ “May”)<br />
                局_数组 [2] ＝ “5”<br />
            .判断 (局_数组 [2] ＝ “Jun”)<br />
                局_数组 [2] ＝ “6”<br />
            .判断 (局_数组 [2] ＝ “Jul”)<br />
                局_数组 [2] ＝ “7”<br />
            .判断 (局_数组 [2] ＝ “Aug”)<br />
                局_数组 [2] ＝ “8”<br />
            .判断 (局_数组 [2] ＝ “Sep”)<br />
                局_数组 [2] ＝ “9”<br />
            .判断 (局_数组 [2] ＝ “Oct”)<br />
                局_数组 [2] ＝ “10”<br />
            .判断 (局_数组 [2] ＝ “Nov”)<br />
                局_数组 [2] ＝ “11”<br />
            .判断 (局_数组 [2] ＝ “Dec”)<br />
                局_数组 [2] ＝ “12”<br />
            .默认<br />
<br />
            .判断结束<br />
            线程_取消COM库 ()<br />
            返回 (局_数组 [6] ＋ “-” ＋ 局_数组 [2] ＋ “-” ＋ 局_数组 [3] ＋ “ ” ＋ 局_数组 [4])<br />
        .如果真结束<br />
<br />
    .如果真结束<br />
<br />
.如果结束<br />
返回 (“”)

当传入一个非长整数时间戳文本时，会导致超出数组成员下标报错，

建议先判断是否存在数组下标，再取值。