home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l460 / 2.ddi / ELMAT.DI$ / DATE.M < prev    next >
Encoding:
Text File  |  1993-03-07  |  363 b   |  12 lines
  1. function y = date()
  2. %DATE    Calendar.
  3. %    S = DATE returns a string containing the date in dd-mmm-yy format.
  4.  
  5. %    Copyright (c) 1984-93 by The MathWorks, Inc.
  6.  
  7. t = clock;
  8. base = t(1) - rem(t(1),100);
  9. months = ['Jan';'Feb';'Mar';'Apr';'May';'Jun';
  10.           'Jul';'Aug';'Sep';'Oct';'Nov';'Dec'];
  11. y = [int2str(t(3)),'-',months(t(2),:),'-',int2str(t(1)-base)];
  12.