返回两时间值之时间差值，不支持跨天计算

半边书生

1. ;;返回两时间值之时间差值，不支持跨天计算
   
2. ;;参数:t1:时间1，格式与（getvar "Cdate")所得结果相同
   
3. ;;参数:t2:时间2，格式与（getvar "Cdate")所得结果相同
   
4. ;;返回:两个给定的时间格式为hhmmss的字符串，并显示在命令行，不支持跨天计算。
   
5. (defun XD::Other:time_diff (t1 t2 / hms1 hms2 t1 t2 h1 h2 m1 m2 dt dth dtm dts)
   
6.         (setq hms1 (* 100 (- t1 (fix t1)))
   
7.               hms2 (* 100 (- t2 (fix t2)))
   
8.               h1 (fix hms1)
   
9.               h2 (fix hms2)
   
10.               m1 (fix (* 100 (- hms1 h1)))
    
11.               m2 (fix (* 100 (- hms2 h2)))
    
12.               s1 (- (* 10000 hms1) (* 10000 h1) (* 100 m1))
    
13.               s2 (- (* 10000 hms2) (* 10000 h2) (* 100 m2))
    
14.               dt (- (+ (* 3600 h2) (* m2 60 ) s2) (+ (* 3600 h1) (* m1 60 ) s1))
    
15.               dth (fix (/ dt 3600))
    
16.               dtm (fix (rem (/ dt 60) 60))
    
17.               dts (- dt (* 3600 dth) (* 60 dtm))
    
18.         )
    
19.         (princ (strcat "\n" (itoa dth) "h" (itoa dtm) "m" (rtos dts 2 0) "s"))
    
20.         (princ)
    
21. )
    

;;返回两时间值之时间差值，不支持跨天计算<br /> ;;参数:t1:时间1，格式与（getvar "Cdate")所得结果相同<br /> ;;参数:t2:时间2，格式与（getvar "Cdate")所得结果相同<br /> ;;返回:两个给定的时间格式为hhmmss的字符串，并显示在命令行，不支持跨天计算。<br /> (defun XD::Other:time_diff (t1 t2 / hms1 hms2 t1 t2 h1 h2 m1 m2 dt dth dtm dts)<br />         (setq hms1 (* 100 (- t1 (fix t1)))<br />               hms2 (* 100 (- t2 (fix t2)))<br />               h1 (fix hms1)<br />               h2 (fix hms2)<br />               m1 (fix (* 100 (- hms1 h1)))<br />               m2 (fix (* 100 (- hms2 h2)))<br />               s1 (- (* 10000 hms1) (* 10000 h1) (* 100 m1))<br />               s2 (- (* 10000 hms2) (* 10000 h2) (* 100 m2))<br />               dt (- (+ (* 3600 h2) (* m2 60 ) s2) (+ (* 3600 h1) (* m1 60 ) s1))<br />               dth (fix (/ dt 3600))<br />               dtm (fix (rem (/ dt 60) 60))<br />               dts (- dt (* 3600 dth) (* 60 dtm))<br />         )<br />         (princ (strcat "\n" (itoa dth) "h" (itoa dtm) "m" (rtos dts 2 0) "s"))<br />         (princ)<br /> )<br />

Lisphk

为什么不支持跨天计算呢？