home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / cad / jul93.zip / TIP881.LSP < prev    next >
Lisp/Scheme  |  1993-06-21  |  1KB  |  43 lines
  1. ; TIP881:  24TO12.LSP (C)1993, John Brown
  2. ; Convert Time to 12-Hour Format
  3.  
  4. ;;   Routine to convert 24 hour time format to a 12 hour format.
  5. ;;---------------------------------------------------------------
  6. (defun 24TO12 ()
  7.      (setq DATST (rtos (getvar "cdate") 2 16))
  8.      (setq HRS (atoi (substr DATST 10 2)))
  9.      (cond
  10.           ((= HRS 00)
  11.                (setq NHRS (itoa (+ HRS 12)))
  12.                (setq XTR "a.m.")
  13.           )
  14.           ((< HRS 12)
  15.                (setq NHRS (itoa HRS))
  16.                (setq XTR "a.m.")
  17.           )
  18.           ((= HRS 12)
  19.                (setq NHRS (itoa HRS))
  20.                (setq XTR "p.m.")
  21.           )
  22.           ((> HRS 12)
  23.                (setq NHRS (itoa (- HRS 12)))
  24.                (setq XTR "p.m.")
  25.           )
  26.      )
  27.      (setq DATE-STRING
  28.           (strcat
  29.                (substr DATST 5 2)        ; month
  30.                "-"
  31.                (substr DATST 7 2)        ; day
  32.                "-"
  33.                (substr DATST 3 2)        ; year
  34.                " "
  35.                NHRS                      ; hour
  36.                ":"
  37.                (substr DATST 12 2)       ; minute
  38.                " "
  39.                XTR                       ; a.m. or p.m.
  40.           )
  41.      )
  42. ); end 24to12.lsp
  43.