本帖最后由 自贡黄明儒 于 2024-10-8 13:18 编辑
我也写了文件时间比较,一直没写好。你怎么写的,让我们学习一下。
- ;;TimeCompa,返回0 1,表示菜单文件是最新的,不需要更新
- ;;(setq MnuTime '(2017 7 25 8 48 8 0))
- ;;(setq fileTime '(2017 7 28 20 12 49 715))
- (defun TimeCompa (MnuTime fileTime / FLAG A B)
- (setq MnuTime(cons(car MnuTime) (cons (cadr MnuTime) (cdddr MnuTime))))
- (setq fileTime(cons(car fileTime) (cons (cadr fileTime) (cdddr fileTime))))
- (while (and (setq a (car MnuTime))
- (setq b (car fileTime))
- (cond ((equal a b) (setq Flag 0) T)
- ((> a b) (setq Flag 1) nil)
- (T (setq Flag -1) nil)
- )
- )
- (setq MnuTime (cdr MnuTime))
- (setq fileTime (cdr fileTime))
- )
- FLAG
- )
|