时间转换

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

请尝试以下操作：

copy

(defun foo ( x p )
   (menucmd (strcat "m=$(edtime," (rtos (+ 2415019 x) 2 15) "," p ")"))
)

例如：

copy

_$ (foo 42812.651 "yyyy-mo-dd hh:mm:ss")
"2017-03-18 15:37:26"

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

谢谢你，李！

[编程交流] 时间转换

发表回复

精选推荐