[求助]：关于日期的计算

wwwchard

cad2002的计算公式，下面是关于date系统变量的帮助说明：
cad2002系统变量date存储当前日期和时间。此值表示为“修改的 Julian 日期”(MJD)，在此格式中，它表示 Julian 天数和一天的小数部分，“Julian 日期”（通常称为 UT1）是一个全世界的科学性标准，用以指定自公元前 4713 年 1 月 1 日 12:00 a.m. (B.C.E.) 起的天数。
求教各位朋友关于计算年年月日 小时，分的公式，谢谢！

cy956

最初由 wwwchard 发布
[B]cad2002的计算公式，下面是关于date系统变量的帮助说明：
cad2002系统变量date存储当前日期和时间。此值表示为“修改的 Julian 日期”(MJD)，在此格式中，它表示 Julian 天数和一天的小数部分，“Julian 日期”（通... [/B]

用doslib吧。
dat(dos_date)
tim(dos_time)

用lisp硬写，其实就是求余数，整数部分分别是
年，月，日，时。。。。，每次的余数用于求下一个。
有现成的程序。

wwwchard

谢谢楼上的兄弟
我找到了这样的帖子，同时谢谢http://www.xdcad.net/forum/showthread.php?
这个帖子的efan20000000000000000000兄弟！
系统变量2002中还有cdate，方便多了。