home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / AAKXREF.ZIP / FTIMSTMP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-04-25  |  1.5 KB  |  38 lines
  1. (********************************************************************)
  2. (* THIS FUNCTION WILL RETURN THE FILES DATE0 TIME0 TIME STAMP       *)
  3. (* INPUT        : THE FILE VARIABLE                                 *)
  4. (* INPUT/OUTPUT : NONE                                              *)
  5. (* OUTPUT       : DATE0 TIME0 OF THE INPUT FILE IF OK               *)
  6. (* USES         : NO SIDE EFFECTS                                   *)
  7. (* CALLS        : File_Date_Time_Num ,Date_Nums_To_Date0,           *)
  8. (*              : Tim_Num_Time0                                     *)
  9. (* ERRORS       : FILE PROBLEMS                                     *)
  10. (* GLOBAL VARS  : NONE                                              *)
  11. (* SUBJECT      : FILES , DATE TIME , TIME STAMP                    *)
  12. (* DOMAIN       : ARNO A. KARNER                      LEVEL : 002   *)
  13. (********************************************************************)
  14.  
  15. FUNCTION File_Time_Stamp                       ( VAR The_File : TEXT )
  16.                                                : String_40 ;
  17.  
  18. VAR
  19.    M  : Month_Number ;
  20.    D  : Day_Number ;
  21.    D0 : Date0 ;
  22.    Y  : Year_Number ;
  23.    H  : Hour_Number ;
  24.    Mi : Minute_Number ;
  25.    S  : Second_Number ;
  26.    Hu : Hundredths ;
  27.    T  : String_40 ;
  28.    OK : BOOLEAN ;
  29.  
  30. BEGIN (* FUNC *)
  31.    Hu := 0 ;
  32.    File_Date_Time_Num ( The_File , M , D , Y , H , Mi , S , OK ) ;
  33.    Date_Nums_To_Date0 ( M , D , Y , D0 , OK ) ;
  34.    T := D0 + '  ' + Tim_Num_Time0 ( H , Mi , S , Hu ) ;
  35.    File_Time_Stamp := T ;
  36. END ; (* FUNC *)
  37.  
  38.