lisp 判断时间

最新推荐文章于 2024-08-16 17:30:00 发布

xm0420

最新推荐文章于 2024-08-16 17:30:00 发布

阅读量1.1k

点赞数 1

本文链接：https://blog.csdn.net/xm0420/article/details/111408125

版权

                                         lisp          判断时间


		       (setq sjdata (rtos (getvar "cdate") 2 0))
                      ;添加时间判断如果时间是凌晨0点到5点，该时间为前一天
		       (setq sjdata0 (atof(rtos (getvar "cdate") 2 0)));取年月日
		       (setq sjdata4 (atof(rtos (getvar "cdate") 2 4)));取年月日时分

                      (if (< (- (atof(rtos (getvar "cdate") 2 4)) (atof(rtos (getvar "cdate") 2 0)))  0.07 )


                          (setq sjdata1 (strcat gcdh "  " (rtos (- sjdata0 1))))

			
			  (setq sjdata1 (strcat gcdh "  " sjdata))

		      )