home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / GETFDATE.INC < prev    next >
Encoding:
Text File  |  1988-01-29  |  848 b   |  36 lines
  1.  
  2. (*
  3.  * given a valid filename, returns modification date and time
  4.  * formatted as a string:  yy/mm/dd hh:mm
  5.  *
  6.  *)
  7.  
  8. function get_file_date (filename:      anystring): anystring;
  9. var
  10.    DirInfo:     SearchRec;
  11.    Stamp:       DateTime;
  12.  
  13.    function strval (i: integer): string;
  14.    begin
  15.       strval := chr(((i div 10) mod 10) + ord('0')) +
  16.                 chr((i mod 10) + ord('0'));
  17.    end;
  18.  
  19. begin
  20.    FindFirst(filename,$21,DirInfo);
  21.    if (DosError <> 0) then
  22.       get_file_date := 'No such file'
  23.    else
  24.  
  25.    begin
  26.       UnpackTime(DirInfo.time, Stamp);
  27.       get_file_date := strval(Stamp.Year) + '/' +
  28.                        strval(Stamp.Month)+ '/' +
  29.                        strval(Stamp.Day) + ' ' +
  30.                        strval(Stamp.Hour) + ':' +
  31.                        strval(Stamp.Min);
  32.    end;
  33. end;
  34.  
  35.  
  36.