lsp如何获取前三天的日期

yu960312

如题 lsp如何获取前三天的日期

假如今天是:2022/09/01
三天前的日期为:2022/08/29
则返回20220829
具体的日期格式转换是怎么操作的
请大佬指点指点

baitang36

可以用保留函数来实现

(load "c:/00/trf_9.fas")
(tranf "ymd->fix")
(tranf "fix->ymd")
(setq aa (ymd->fix 2022 9 1))
(setq aa (- aa 3))
(fix->ymd aa)

返回的是表（2022 8 29）

飞雪神光

baitang36 发表于 2022-9-9 22:36
可以用保留函数来实现

(load "c:/00/trf_9.fas")

大佬你好 我测试发现这俩函数计算时是按每个月31天来算的
比如
(setq aa (ymd->fix 2022 7 1))
(setq aa (- aa 3))
(fix->ymd aa)
返回(2022 6 29)
(setq aa (- aa 1))
(fix->ymd aa)
返回(2022 6 31)

yu960312

飞雪神光 发表于 2022-9-10 00:05
大佬你好 我测试发现这俩函数计算时是按每个月31天来算的
比如
(setq aa (ymd->fix 2022 7 1))

试了一下确实如此,每个月按31天计算的

yu960312

baitang36 发表于 2022-9-9 22:36
可以用保留函数来实现

(load "c:/00/trf_9.fas")

大佬,试了一下确实如此,每个月按31天计算的

crtrccrt

儒略日，与年月日，互转，
准确天误，自行百度。
支持好几千年内日期。

飞的鱼儿

实在不行，做个真实的日历TXT，放进LISP就行了。用最直接，最粗暴方法。

yu960312

飞的鱼儿 发表于 2022-9-16 16:50
实在不行，做个真实的日历TXT，放进LISP就行了。用最直接，最粗暴方法。

有点麻烦,用vba倒是可以,但高版本CAD要单独安装VBA模块又太麻烦

highflybird

这个问题可以用脚本语言来。
如：(vlax-invoke scr 'run "MyDateAdd" "d" -3 "2022/9/18")
或者：(vlax-invoke scr 'eval "FormatDateTime(DateAdd(\"d\",-3,date))")
下面是几个与日期相关函数的获取：

1. ;;;Ref https://www.w3school.com.cn/vbscript/vbscript_ref_functions.asp
   
2. ;;;常用日期时间相关函数
   
3. (defun c:getDate (/ scr date now)
   
4.   (or
   
5.     (setq SCR (vlax-create-object "Aec32BitAppServer.AecScriptControl.1"))
   
6.     (setq SCR (vlax-create-object "ScriptControl"))
   
7.   )
   
8.   (if scr
   
9.     (progn
   
10.       (vlax-put scr 'language "VBScript")
    
11.       (vlax-invoke scr 'addcode
    
12.         "Function MyDate
    
13.         Mydate = Date
    
14.         End Function
    
15.         Function MyNow
    
16.   MyNow = Now
    
17.         End Function
    
18.         Function MyFormatDateTime(nDate)
    
19.         MyFormatDateTime = FormatDateTime(nDate)
    
20.         End Function
    
21.         Function MyDateAdd(interval,number,sdate)
    
22.   MyDateAdd = FormatDateTime(DateAdd(interval,number,sdate))
    
23.         End Function
    
24.         Function MyDateValue(sdate)
    
25.   MyDateValue = DateValue(sdate)
    
26.         End Function
    
27.         Function MyDateDiff(interval,date1,date2)
    
28.         MyDateDiff = DateDiff(interval,date1,date2)
    
29.         End Function"
    
30.       )
    
31.       (setq date (vlax-invoke scr 'run "MyDate"));当前系统日期
    
32.       (setq now (vlax-invoke scr 'run "MyNow"));当前系统时间
    
33.       (vlax-invoke scr 'run "MyFormatDateTime" now);格式化日期
    
34.       (vlax-invoke scr 'run "MyDateAdd" "d" -3 date);三天前日期
    
35.       (vlax-invoke scr 'run "MyDateValue" "2022-Jan-02");日期转数值
    
36.       (vlax-invoke scr 'run "MyDateDiff" "d" "1949/10/1" now);两个日期之间的时间间隔数
    
37.       (vlax-release-object scr)
    
38.       (princ)
    
39.     )
    
40.   )
    
41. )

;;;Ref <a href="https://www.w3school.com.cn/vbscript/vbscript_ref_functions.asp" target="_blank">https://www.w3school.com.cn/vbscript/vbscript_ref_functions.asp</a><br /> ;;;常用日期时间相关函数<br /> (defun c:getDate (/ scr date now)<br />   (or<br />     (setq SCR (vlax-create-object "Aec32BitAppServer.AecScriptControl.1"))<br />     (setq SCR (vlax-create-object "ScriptControl"))<br />   )<br />   (if scr<br />     (progn<br />       (vlax-put scr 'language "VBScript")<br />       (vlax-invoke scr 'addcode<br />         "Function MyDate<br />         Mydate = Date<br />         End Function<br />         Function MyNow<br />   MyNow = Now<br />         End Function<br />         Function MyFormatDateTime(nDate)<br />         MyFormatDateTime = FormatDateTime(nDate)<br />         End Function<br />         Function MyDateAdd(interval,number,sdate)<br />   MyDateAdd = FormatDateTime(DateAdd(interval,number,sdate))<br />         End Function<br />         Function MyDateValue(sdate)<br />   MyDateValue = DateValue(sdate)<br />         End Function<br />         Function MyDateDiff(interval,date1,date2)<br />         MyDateDiff = DateDiff(interval,date1,date2)<br />         End Function"<br />       )<br />       (setq date (vlax-invoke scr 'run "MyDate"));当前系统日期<br />       (setq now (vlax-invoke scr 'run "MyNow"));当前系统时间<br />       (vlax-invoke scr 'run "MyFormatDateTime" now);格式化日期<br />       (vlax-invoke scr 'run "MyDateAdd" "d" -3 date);三天前日期<br />       (vlax-invoke scr 'run "MyDateValue" "2022-Jan-02");日期转数值<br />       (vlax-invoke scr 'run "MyDateDiff" "d" "1949/10/1" now);两个日期之间的时间间隔数<br />       (vlax-release-object scr)<br />       (princ)<br />     )<br />   )<br /> )

yu960312

highflybird 发表于 2022-9-18 08:20
这个问题可以用脚本语言来。
如：(vlax-invoke scr 'run "MyDateAdd" "d" -3 "2022/9/18")
或者：(vlax-i ...

感谢大佬解惑