[求助]时间比较[已经搞定]

自贡黄明儒

用(setq timeold(vl-file-systime filename1) (setq timeNew(vl-file-systime filename)获得两个时间，如何比较大小？

lht

(> timeold timeNew)为真,timeold后于timeNew

自贡黄明儒

lht 发表于 2013-1-8 16:27
(> timeold timeNew)为真,timeold后于timeNew

这样好象不行呢，难道是我头整晕了，等会儿我再试

ll_j

返回值是表，不好直接比较，可以有两种方式：
1.逐个比较（星期除外）；
2.把表换算成一个值（比如秒），然后再比较。

自贡黄明儒

;;HHTime时间大，返回T
  (defun TimeCompa (HHTime fileTime / A)
    (setq a (mapcar '> HHTime fileTime))   
    (setq b (mapcar '< HHTime fileTime))
    (> (length (member T a))(length (member T b)))
  )

1028695446

;;比较文件时间新旧，新T，旧nil
        ;(setq a(vl-file-systime (strcat folder_path "A$Cae89669a.DWG")))
        ;'(2023 8 5 25 20 29 43 348)
        ;(setq d(vl-file-systime (strcat folder_path "A$C03c47315.DWG")))
        ;'(2023 8 5 25 21 49 42 398)
        ;(TimeNEWer d a) T
        (defun TimeNEWer (Afile_time Bfile_time / a b i flag )       
                (setq i 0)
                (setq loop_ctrl T)
                (while (and loop_ctrl (<= i 7))               
                        (setq a (nth i Afile_time))
                        (setq b (nth i Bfile_time))
                        (cond
                                ((> a b) (setq loop_ctrl nil)(setq flag T))
                                ((= a b) (setq loop_ctrl T)(setq i (1+ i)))
                                ((< a b) (setq loop_ctrl nil)(setq flag nil))
                        )       
                )
                flag       
        )