[игорёк]

Очень заинтересовал вопрос:
Как получить текущее "компьютерное" время и дату?
Если кто знает поделитесь пожалуйста этой информацией... :roll:

[Profan]

В правой части трея (лотка) панели задач Windows отображается текущее время. При задержке курсора в этом месте всплывает текушая дата. В AutoCAD'е есть команды "_date" ("дата") и "_time" ("время").

[Геннадий aka PG]

Тут имя и дата Думаю пригодица

Код:

[Выделить все]

;;------------> Программа записи имени файла и даты на чертеж <-----------
;;
;;          ©  PG Single Soft  
;;     E-mail: gepos@mail.ru
;;   G.I.G.O. - Garbage In, Garbage Out
;;                                       Last Modify: 14.05.99
;;       02.08.2001 замечена особенность программа не работает (пишет "0")
;;     если в текстовом стиле стоит фиксированная высота текта
;;
;;------------> WNDATE <--------------------------------------------------
(defun c:wndate( / nam  dat tday tmon tyer strok1 strok2 pt old_cmd)

 (setq old_cmd  (getvar "CMDECHO"))
 (setvar "CMDECHO" 0)

 (setq dat (itoa (fix(getvar "CDATE")))
       nam (getvar "DWGNAME")
     nam (strcat (getvar "DWGPREFIX")(getvar "DWGNAME"))
      tday (substr dat 7 2)
      tmon (substr dat 5 2)
      tyer (substr dat 1 4) 
    strok1 (strcat "File name:" nam "  Дата:" tday "-" tmon "-" tyer "г")

  strok1 (strcat "File name: " nam )
  strok2 (strcat "Дата: " tday "-" tmon "-" tyer "г")
        pt (getpoint "\nТочка вставки текста: ")
 )
 (COMMAND "TEXT" pt 2.0 0 strok1)
 
 (setq pt (list (car pt) (-(cadr pt) 3.)))
 (COMMAND "TEXT" pt 2.0 0 strok2)
 (setvar "CMDECHO" old_cmd)
 (princ)
)
;;------------> END of CODE <---------------------------------------------

[Эдуард]

(menucmd "M=$(edtime,$(getvar,date),DDDD\",\" D MONTH YYYY hh:mm:ss)")

[Apelsinov]

Код:

[Выделить все]

(defun apel-time_current (/ a b)
  (setq a (rtos (fix (getvar "cdate")) 2 0))
  (setq	b
	 (rtos (fix (* 1000000 (- (getvar "cdate") (fix (getvar "cdate"))))
	       )
	       2
	       0
	 )
  )
  (if (> 6 (strlen b))
    (setq b (strcat "0" b))
  )
  (strcat (substr a 7 2)
	  "."
	  (substr a 5 2)
	  "."
	  (substr a 1 4)
	  " "
	  (substr b 1 2)
	  ":"
	  (substr b 3 2)
	  ":"
	  (substr b 5 2)
  )
)

вернет строку типа "14.08.2006 14:31:34"

[игорёк]

Apelsinov
Cпасибо!
Просто я и не подозревал что она хранится в системной переменной...

[perpetule]

Уникальный идентификатор для имен блоков , файлов и т.д. и т.п.

(menucmd "M=$(edtime,$(getvar,date),YYYY\"-\"MO\"-\"HH\"-\"MM\"---tc71---\"SS\"-\"MSEC)")

Пример
"2015-07-10-38---tc71---33-400"