;;; ========================================================================
;;; Funktion:  wec_GetDate.lsp
;;;
;;; Author:  Wolfgang Eberharter
;;; Datum: 21 05 2003
;;;
;;; Ermittelt das aktuelle Datum.
;;; Rückgabe ist eine Liste im Format (Jahr Monat Tag) des aktuellen Datums
;;; zurückgibt.
;;; ========================================================================*/
(defun wec_GetDate(/ currYear CurrMonth CurrDay)
  (SETQ currYear (SUBSTR (RTOS (GETVAR "CDATE") 2 0) 1 4))
  (SETQ currMonth (SUBSTR (RTOS (GETVAR "CDATE") 2 0) 5 2))
  (SETQ currDay (SUBSTR (RTOS (GETVAR "CDATE") 2 0) 7 2))

  (LIST
    (ATOI currYear)
    (ATOI currMonth)
    (ATOI CurrDay)
    )
  );;; End Defun