社区 › Auto Lisp › 时间转换

SELFCAD 发表于 2022-7-5 16:20:42

时间转换

大家好，
我想转换时间格式，但我不知道如何转换。
此函数用于获取文件修改的时间：

(defun time (Fil x / FilObj FilSys RetVal)
(setq FilSys (vlax-create-object "Scripting.FileSystemObject")
      RetVal (cond
            ((= (vlax-invoke FilSys 'FileExists Fil) 0) nil)
            ((setq FilObj (vlax-invoke FilSys 'GetFile Fil))
               (list
                (cond
           ((= (strcase x T) "datecreated")      (vlax-get FilObj 'DateCreated))
           ((= (strcase x T) "datelastmodified")   (vlax-get FilObj 'DateLastModified))
           ((= (strcase x T) "datelastaccessed")   (vlax-get FilObj 'DateLastAccessed))
           ((= (strcase x T) "name")               (vlax-get FilObj 'Name))
           ((= (strcase x T) "type")               (vlax-get FilObj 'Type))
       )
               )
            )
            (T nil)
             )
)
(if FilObj (vlax-release-object FilObj))
(vlax-release-object FilSys)
RetVal
);end defun



我得到的值类似于42812.651。如何将该值转换为2017年5月20日15:50:20？使用柴油机。。。但是怎么做？谢谢

Lee Mac 发表于 2022-7-5 17:16:10

请尝试以下操作：
(defun foo ( x p )
   (menucmd (strcat "m=$(edtime," (rtos (+ 2415019 x) 2 15) "," p ")"))
)
例如：
_$ (foo 42812.651 "yyyy-mo-dd hh:mm:ss")
"2017-03-18 15:37:26"

SELFCAD 发表于 2022-7-5 17:35:02

谢谢你，李！

查看完整版本: 时间转换