(defun c:tarih (/ oku oku1 okux gun1 ay_adi yil cikart x2 x3 x4 oku2 saat1
       saat2 saat2_1 saat2_2 saat2_3 dakika saniye tarih saat_ilk
       bjt g1 g2 g3 g4 g5 g6 g7 gun g_adi)
  (SETQ OKU (GETVAR "CDATE")
     OKU1 (FIX OKU)
     OKUx (ITOA OKU1)   
     GUN1 (SUBSTR OKUx 7 2)
     ay_adi (substr OKUx 5 2)
     YIL (substr OKUx 1 4))
(cond
((= ay_adi "01") (setq ay "OCAK"))
((= ay_adi "02") (setq ay "SUBAT"))
((= ay_adi "03") (setq ay "MART"))
((= ay_adi "04") (setq ay "Nisan"))
((= ay_adi "05") (setq ay "MAYIS"))
((= ay_adi "06") (setq ay "Haziran"))
((= ay_adi "07") (setq ay "Temmuz"))
((= ay_adi "08") (setq ay "AGUSTOS"))
((= ay_adi "09") (setq ay "EYLUL"))
((= ay_adi "10") (setq ay "Ekim"))
((= ay_adi "11") (setq ay "KASIM"))
((= ay_adi "12") (setq ay "ARALIK"))
( t (setq ay "HATA OLUŞTU !"))
)
  (setq cikart (atoi okux))
  (SETQ x2 (- oku CIKART)
     x3 (+ (* x2 1000000) 1000000)
     x4 (fix x3)
     oku2 (itoa x4))
  (setq saat1 (substr oku2 2 1)
saat2 (substr oku2 3 1)
saat2_1 (atoi saat2)
;;;        saat2_2 (+ saat2_1 1)
        saat2_3 (itoa saat2_1)
     dakika (substr oku2 4 2)
     saniye (substr oku2 6 2))
  (setq tarih2 (strcat gun1 "." ay_adi "." YIL))
  (if (= saat1 "0")
      (setq saat_ilk "")
      (setq saat_ilk saat1)
  )
    (setq bjt (strcat saat_ilk saat2_3 ":" dakika ":" saniye))
  (setq g1 "Pazar")
  (setq g2 "Pazartesi")
  (setq g3 "Salı")
  (setq g4 "Çarşamba")
  (setq g5 "Perşembe")
  (setq g6 "Cuma")
  (setq g7 "Cumartesi")
  (setq gun (atoi gun1))
  (cond
  ((= gun 01) (setq g_adi g4))
  ((= gun 02) (setq g_adi g2))
  ((= gun 03) (setq g_adi g3))
  ((= gun 04) (setq g_adi g4))
  ((= gun 05) (setq g_adi g5))
  ((= gun 06) (setq g_adi g6))
  ((= gun 07) (setq g_adi g7))
  ((= gun 08) (setq g_adi g1))
  ((= gun 09) (setq g_adi g2))
  ((= gun 10) (setq g_adi g3))
  ((= gun 11) (setq g_adi g4))
  ((= gun 12) (setq g_adi g5))
  ((= gun 13) (setq g_adi g6))
  ((= gun 14) (setq g_adi g7))
  ((= gun 15) (setq g_adi g4))
  ((= gun 16) (setq g_adi g5))
  ((= gun 17) (setq g_adi g6))
  ((= gun 18) (setq g_adi g7))
  ((= gun 19) (setq g_adi g1))
  ((= gun 20) (setq g_adi g2))
  ((= gun 21) (setq g_adi g3))
  ((= gun 22) (setq g_adi g4))
  ((= gun 23) (setq g_adi g5))
  ((= gun 24) (setq g_adi g6))
  ((= gun 25) (setq g_adi g7))
  ((= gun 26) (setq g_adi g1))
  ((= gun 27) (setq g_adi g2))
  ((= gun 28) (setq g_adi g3))
  ((= gun 29) (setq g_adi g4))
  ((= gun 30) (setq g_adi g5))
;;;  ((= gun 31) (setq g_adi g6))
  ( t (setq g_adi "Gün adı Yanlış"))
  )
  (alert (strcat "Tarih""       " tarih2
                 "nnAy" "           " ay
                 "nnGün"  "         " g_adi
                 "nnSaat"  "         " bjt
)
  )
  (princ)
)