xyp1964 发表于 2024-10-4 22:40
都转成字符串比较：
("1998" "04" "03" "08" "10" "06" "52")
("2020" "05" "03" "08" "10" "06" "52")
谢谢！我现在就是这么搞的
黄大师说的方法，先获得字符串字符个数，read后，获得新字符串个数，两个相减，差值为前面补0的个数。
你有种再说一遍 发表于 2024-10-5 01:40
没有任何地方需要,数值只有比较作用,显示是字符串
为了美观和统一，有时候编号确实需要前置0，比如信息点的编号D01,D02.....，您可能没有实践过！
Maxwell 发表于 2024-10-5 20:24
为了美观和统一，有时候编号确实需要前置0，比如信息点的编号D01,D02.....，您可能没有实践过！
前置难道不是字符串?
hubeiwdlue 发表于 2024-10-5 20:13
黄大师说的方法，先获得字符串字符个数，read后，获得新字符串个数，两个相减，差值为前面补0的个数。
谢谢、现在就是这种方法搞的
xiaocainiao 发表于 2024-10-4 20:18
主要我是需要用到这个0
那就直接用字符串，没必要转成整数。
baitang36 发表于 2024-10-8 09:11
那就直接用字符串，没必要转成整数。
谢谢！现在已经改用字符串了、不转了
本帖最后由 自贡黄明儒 于 2024-10-8 13:18 编辑
xiaocainiao 发表于 2024-10-8 09:20
谢谢！现在已经改用字符串了、不转了
我也写了文件时间比较，一直没写好。你怎么写的，让我们学习一下。
;;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
)
文件时间比较直接用FSO，时间直接是实数，判断大小就行
https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/datelastmodified-property
自贡黄明儒 发表于 2024-10-8 09:34
我也写了文件时间比较，一直没写好。你怎么写的，让我们学习一下。
我直接就是用10比较每个数据、小于10前面加个0、大于等于就返回原数据、最后连起来比较一下