home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / DOS / TEKST / AURORA2 / FULLDATE.AML < prev    next >
Text File  |  1995-04-28  |  2KB  |  63 lines
  1.  
  2. /* ------------------------------------------------------------------ */
  3. /* Macro:        FULLDATE.AML                                         */
  4. /* Written by:   nuText Systems                                       */
  5. /*                                                                    */
  6. /* Description:  This macro displays the current date and time in     */
  7. /*               'full-format', i.e. "2:18pm Saturday, January 7,     */
  8. /*               1995", and prompts you to enter it into your text.   */
  9. /*                                                                    */
  10. /* Usage:        Select this macro from the Macro List (on the Macro  */
  11. /*               menu), or run it from the macro picklist <shift f12> */
  12. /* ------------------------------------------------------------------ */
  13.  
  14.   // compile time macros and function definitions
  15.   include  bootpath "define.aml"
  16.  
  17.   // get date and time in raw format
  18.   rawtime = getrawtime
  19.  
  20.   // note: getrawtime returns "YYYYMMDDWhhmmssuu"  where:
  21.  
  22.   // YYYY = year                    // hh = hour (0-23)
  23.   // MM   = month (1-12)            // mm = minutes (0-59)
  24.   // DD   = day (1-31)              // ss = seconds (0-59)
  25.   // W    = day of week (0=sunday)  // uu = hundredths of a sec (0-99)
  26.  
  27.   full_date =
  28.  
  29.       gettime + ' ' +
  30.  
  31.       // get day of the week
  32.       case rawtime [9]
  33.         when '0' "Sunday"         when '4' "Thursday"
  34.         when '1' "Monday"         when '5' "Friday"
  35.         when '2' "Tuesday"        when '6' "Saturday"
  36.         when '3' "Wednesday"
  37.       end
  38.  
  39.       + ", " +
  40.  
  41.       // get month
  42.       case rawtime [5:2]
  43.         when "01" "January"       when "07" "July"
  44.         when "02" "February"      when "08" "August"
  45.         when "03" "March"         when "09" "September"
  46.         when "04" "April"         when "10" "October"
  47.         when "05" "May"           when "11" "November"
  48.         when "06" "June"          when "12" "December"
  49.       end
  50.  
  51.       // get day of the month and the year
  52.       + ' ' + rawtime [7:2] + ", " + rawtime [1:4]
  53.  
  54.  
  55.   if wintype? "edit" then
  56.     if (okbox  full_date + ":  Enter into text?"  "Full Date") == "Ok" then
  57.       write full_date
  58.     end
  59.   else
  60.     msgbox  full_date  "Full Date"
  61.   end
  62.  
  63.