[LISP函数]：获取系统时间转化为秒

fylinwater

不计天以前的时间
主要用于时间比较

cy956

至少是用毫秒，甚至纳秒。。。

efan2000

试试这个。

2. 
   
3.   [FONT=courier new]
   
4. (setq sDateTime (rtos (getvar "CDATE") 2 6))
   
5. (prompt (strcat  (substr sDateTime 1 4) "年" (substr sDateTime 5 2) "月" (substr sDateTime 7 2) "日"))
   
6. (prompt (strcat (substr sDateTime 10 2) "时" (substr sDateTime 12 2) "分" (substr sDateTime 14 2) "秒"))
   
7. (setq sDateTime nil)
   
8.   [/FONT]
   

<br />   [FONT=courier new]<br /> (setq sDateTime (rtos (getvar "CDATE") 2 6))<br /> (prompt (strcat  (substr sDateTime 1 4) "年" (substr sDateTime 5 2) "月" (substr sDateTime 7 2) "日"))<br /> (prompt (strcat (substr sDateTime 10 2) "时" (substr sDateTime 12 2) "分" (substr sDateTime 14 2) "秒"))<br /> (setq sDateTime nil)<br />   [/FONT]<br />

fylinwater

那只是数据精度问题
这个函数是计算今天到现在共经过了多少秒 比如322222.252552秒
是为那个比较程序运行时间准备的函数