kucha007 发表于 2024-4-6 19:55:33

【Date】两个日期天数+指定向前向后几天的日期

本帖最后由 kucha007 于 2024-4-8 22:15 编辑

参考这两个帖子:
LISP计算时间差
How to find 'File Created Time'


函数:
;返回两个(Lst)日期之间的天数@Kucha
;(K:RtnDateDst (list Year Moth Date) (list Year Moth Date))

;返回指定日期Num后的日期@Kucha, Num为正则向前,Num为负则向后
;(K:RtnDate4Num (list Year Moth Date) Num)

用法:
(K:RtnDateDst (K:Time2Lst "20240111") (K:Time2Lst "20240101"));计算两日期时间差
(K:RtnDate4Num (K:Time2Lst "20240111") 10);10天后的日期
(K:RtnDate4Num (K:Time2Lst "20240111") -10);10天前的日期


kucha007 发表于 2024-4-6 22:31:17

本帖最后由 kucha007 于 2024-4-8 22:16 编辑

备用楼:
20240408-增加了计算指定日期向前向后指定天数的日期

nochao 发表于 2024-4-7 21:24:09

本帖最后由 nochao 于 2024-4-7 21:27 编辑

在工作中可能会经常发生这样的情况:求指定的某个日期往前或推后N日/工作日得出结果是哪一天?比如这个项目3天后可以启动,时间只有18个工作日,那是哪一天之前必须完成?
又或者已经知道了是6月1号之前必须完成,哪是还有多少个工作日(需要知道时间来安排人手)?

magicheno 发表于 2024-4-7 22:40:50

感谢大佬分享

kucha007 发表于 2024-4-8 13:05:08

nochao 发表于 2024-4-7 21:24
在工作中可能会经常发生这样的情况:求指定的某个日期往前或推后N日/工作日得出结果是哪一天?比如这个项目 ...

有道理,晚点试着写一下

kucha007 发表于 2024-4-8 22:16:32

nochao 发表于 2024-4-7 21:24
在工作中可能会经常发生这样的情况:求指定的某个日期往前或推后N日/工作日得出结果是哪一天?比如这个项目 ...

已更新,烦请测试一下
页: [1]
查看完整版本: 【Date】两个日期天数+指定向前向后几天的日期