（XD::Time:Iso->CDate）ISO时间转ACAD时间

marting

1. ;|
   
2. 函数名称:        XD::Time:Iso->CDate
   
3. 调用格式:        (XD::Time:Iso->CDate str)
   
4. 参数说明:        str ----- ISO时间字符串
   
5. 返回值:        实数
   
6. 函数简介:        ISO时间转ACAD时间
   
7. 函数来源:        原创
   
8. 函数作者:        marting
   
9. 适用版本:        不限
   
10. 最后更新时间:        2018-12-31
    
11. 
    
12. **允许在项目中使用，但请保留版权注释信息**
    
13. 
    
14. 命令: (setq str (XD::TIME:CDATE->ISO nil))
    
15. "2018-12-31 T 15:34:59.54"
    
16. 命令: (setq a (XD::Time:Iso->CDate str))
    
17. 2.01812e+007
    
18. 命令: (rtos a 2 20)
    
19. "20181231.15345954"
    
20. |;
    
21. (defun XD::Time:Iso->CDate (str /)
    
22.   (setq str (xd::string:regexpr "\\s*T\\s*" str "" ""))
    
23.   (apply '+
    
24.          (mapcar '(lambda (n m f) (* f (atoi (substr str n m))))
    
25.                  '(1 6 9 11 14 17 20)
    
26.                  '(4 2 2 2 2 2 2)
    
27.                  '(10000.0 100.0 1.0 0.01 0.0001 0.000001 0.00000001)
    
28.          )
    
29.   )
    
30. )
    

;|<br /> 函数名称:        XD::Time:Iso->CDate<br /> 调用格式:        (XD::Time:Iso->CDate str)<br /> 参数说明:        str ----- ISO时间字符串<br /> 返回值:        实数<br /> 函数简介:        ISO时间转ACAD时间<br /> 函数来源:        原创<br /> 函数作者:        marting<br /> 适用版本:        不限 <br /> 最后更新时间:        2018-12-31<br /> <br /> **允许在项目中使用，但请保留版权注释信息**<br /> <br /> 命令: (setq str (XD::TIME:CDATE->ISO nil))<br /> "2018-12-31 T 15:34:59.54"<br /> 命令: (setq a (XD::Time:Iso->CDate str))<br /> 2.01812e+007<br /> 命令: (rtos a 2 20)<br /> "20181231.15345954"<br /> |;<br /> (defun XD::Time:Iso->CDate (str /)<br />   (setq str (xd::string:regexpr "\\s*T\\s*" str "" ""))<br />   (apply '+<br />          (mapcar '(lambda (n m f) (* f (atoi (substr str n m))))<br />                  '(1 6 9 11 14 17 20)<br />                  '(4 2 2 2 2 2 2)<br />                  '(10000.0 100.0 1.0 0.01 0.0001 0.000001 0.00000001)<br />          )<br />   )<br /> )<br />

qyming2000

学习        
来自: 微社区