[讨论]：关于日期的定义

啵浪鼓 · 发表于 2005-3-5 23:17:11

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

用(getvar ' cdate)得到以下当前日期,谁能下面的语句表示几年几月几号呢?
2.00503e+007

xyp1964 · 发表于 2005-3-5 23:40:38

看看下面的就明白了：
[php]
(rtos(getvar "cdate")2 8)
[/php]

sdwy19691229 · 发表于 2005-3-6 07:28:11

我是在下面设置时间
(defun s::startup ()
   (setvar "modemacro"
   "*王*$(edtime,$(getvar,date),YYYY年M月D日DDD-H:MM:SSam/pm)"
   )
   (princ"\n你已经将状态栏设置安装完毕! OK!")
   (princ))

啵浪鼓 · 发表于 2005-3-19 12:40:33

下面这段程序可能会造成人为的修改时间,怎样在第一次运行此程序时记录下来当前时间,而其后每次启动时不会再重新记录当前时间?

(defun time(/ key)
  (if(> (fix(- (getvar "cdate") 2.008e+007)) 930)
(progn
   (alert "程序运行时出现错误!!")
   (setq key(getstring "\nDo you want to EXIT the program now?(y/n)"))
   (if(or(= "dana" key)
      (= "DANA" key)
   )
   (progn
   (alert "请速与管理员联系!!")
   (if(> (fix(- (getvar "cdate") 2.008e+007)) 1230)
      (setq tk nil)
   )
   )

啵浪鼓 · 发表于 2005-3-24 13:17:41

有人写一下这方面的程序吗?

chuqi26 · 发表于 2005-3-24 18:31:47

我也想知道，请赐教

xyp1964 · 发表于 2005-3-27 20:27:32

最初由啵浪鼓发布
[B]下面这段程序可能会造成人为的修改时间,怎样在第一次运行此程序时记录下来当前时间,而其后每次启动时不会再重新记录当前时间?

(defun time(/ key)
(if(> (fix(- (getvar "cdate") 2.008e+007)) 930)
(pro... [/B]

什么叫“当前时间”？！
日期：
[php](menucmd "M=$(edtime,$(getvar,date), YYYY年M月D日)")[/php]
时间：
[php](menucmd "M=$(edtime,$(getvar,date), hh:mm:ss)")[/php]

账号		自动登录	找回密码
密码			立即注册

[讨论]：关于日期的定义

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子