home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_01_02 / 1n02038a < prev    next >
Text File  |  1990-07-09  |  290b  |  22 lines
  1.  
  2. ----------
  3.  
  4. type
  5.     date =
  6.         record
  7.         mm : month;
  8.         dd, yy : integer;
  9.         end;
  10.  
  11. {*
  12.  * write a date in the form mm/dd/yyyy
  13.  *}
  14. procedure write_date(d : date);
  15.     begin
  16.     with d do
  17.         writeln(ord(mm) + 1 : 1, '/', dd : 1, '/', yy : 4);
  18.     end;
  19.  
  20. Listing 3 - Using ord() in Pascal
  21.  
  22.