日期时间型数组排序源码

.版本 2
.支持库 spec

.程序集 程序集1

.子程序 _启动子程序, 整数型
.局部变量 s, 日期时间型, , "0"
.局部变量 f, 日期时间型, , "0"

加入成员 (f, 到时间 (“2015-01-12”))
加入成员 (f, 到时间 (“2015-01-12”))
加入成员 (f, 到时间 (“2015-01-25”))
加入成员 (f, 到时间 (“2015-02-12”))
加入成员 (f, 到时间 (“2015-01-03”))
时间数组排序 (f, s)
调试输出 (s)
返回 (0)

.子程序 时间数组排序, 逻辑型
.参数 要排序的数组, 日期时间型, 数组
.参数 返回排序结果, 日期时间型, 参考 数组
.参数 正反向, 逻辑型, 可空, 真为从小到大 假为从大到小
.局部变量 td, 逻辑型
.局部变量 time, 日期时间型, , "2"
.局部变量 时间, 日期时间型, , "0"
.局部变量 i, 整数型
.局部变量 value, 整数型
.局部变量 return, 整数型

时间 ＝ 要排序的数组
清除数组 (返回排序结果)
td ＝ 选择 (是否为空 (正反向), 真, 正反向)
time [1] ＝ 时间 [1]
time [2] ＝ 时间 [1]
value ＝ 1
return ＝ 0
加入成员 (返回排序结果, 时间 [1])
删除成员 (时间, 1, )
.判断循环首 (取数组成员数 (时间) ≠ 0)
    .判断开始 (时间 [1] ≤ time [1])
        .判断开始 (td)
            插入成员 (返回排序结果, 1, 时间 [1])
        .默认
            加入成员 (返回排序结果, 时间 [1])
        .判断结束

        .如果真 (时间 [1] ＜ time [1])
            time [1] ＝ 时间 [1]
        .如果真结束

    .判断 (时间 [1] ＜ time [2])
        i ＝ 1
        .判断循环首 (时间 [1] ＞ 到时间 (返回排序结果 [i]))
            i ＝ i ＋ 1
            .如果真 (i ＞ 取数组成员数 (返回排序结果))
                return ＝ 1
                跳出循环 ()
            .如果真结束

        .判断循环尾 ()
        .判断开始 (return ＝ 1)
            加入成员 (返回排序结果, 时间 [1])
            return ＝ 0
            time [2] ＝ 时间 [1]
            value ＝ value ＋ 1
        .默认

            .判断开始 (td)
                加入成员 (返回排序结果, 时间 [1])
            .默认
                插入成员 (返回排序结果, i, 时间 [1])
            .判断结束

        .判断结束

    .判断 (时间 [1] ≥ time [2])
        .判断开始 (td)
            加入成员 (返回排序结果, 时间 [1])
        .默认
            插入成员 (返回排序结果, 1, 时间 [1])
        .判断结束

        value ＝ value ＋ 1
        .如果真 (时间 [1] ＞ time [2])
            time [2] ＝ 时间 [1]
        .如果真结束

    .默认

    .判断结束
    删除成员 (时间, 1, )
.判断循环尾 ()
返回 (取数组成员数 (要排序的数组) ＝ 取数组成员数 (返回排序结果))

@hCode