home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / AAKXREF.ZIP / CURTIME0.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-03-29  |  1.2 KB  |  27 lines
  1. (********************************************************************)
  2. (* THIS FUNCTION WILL RETURN THE CURRENT TIME IN TIME 0 FORMAT      *)
  3. (* HH:MM:SS.HH                                                      *)
  4. (* INPUT        : NONE USES REAL TIME CLOCK                         *)
  5. (* INPUT/OUTPUT : NONE                                              *)
  6. (* OUTPUT       : Cur_Time0                                         *)
  7. (* USES         : NO SIDE EFFECTS                                   *)
  8. (* CALLS        : Read_Time, Tim_Num_Time0                          *)
  9. (* ERRORS       : NONE                                              *)
  10. (* GLOBAL VARS  : NONE                                              *)
  11. (* SUBJECT      : TIME, CURRENT TIME, TIME 0 FORMAT                 *)
  12. (* DOMAIN       : ARNO A. KARNER\PUBLIC               LEVEL : 002   *)
  13. (********************************************************************)
  14.  
  15. FUNCTION Cur_Time0 : Time0 ;
  16.  
  17. VAR
  18.    H  : Hour_Number ;
  19.    M  : Minute_Number ;
  20.    S  : Second_Number ;
  21.    Hu : Hundredths ;
  22.  
  23. BEGIN (* FUNC *)
  24.    Read_Time ( H , M , S , Hu ) ;
  25.    Cur_Time0 := Tim_Num_Time0 ( H , M , S , Hu ) ;
  26. END ; (* FUNC *)
  27.