home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / AAKXREF.ZIP / TIMNTIM0.FUN < prev    next >
Encoding:
Text File  |  1986-04-25  |  1.7 KB  |  37 lines
  1. (********************************************************************)
  2. (* THIS FUNCTION WILL RETURN A STRING IN TIME 0 FORMAT HH:MM:SS.hh  *)
  3. (* INPUT        : Hour, Minute, Second, Hundredths of seconds       *)
  4. (* INPUT/OUTPUT : NONE                                              *)
  5. (* OUTPUT       : HOURS,MINUTES,SECONDS,HUNDREDTHS in a 11 char str *)
  6. (* USES         : NO SIDE EFFECTS                                   *)
  7. (* CALLS        : INT $1A                                           *)
  8. (* ERRORS       : NONE CHECKED                                      *)
  9. (* GLOBAL VARS  : NONE                                              *)
  10. (* SUBJECT      : CONVERT, TIME NUMBERS TO TIME 0 STRING            *)
  11. (* DOMAIN       : ARNO A. KARNER                      LEVEL : 001   *)
  12. (********************************************************************)
  13.  
  14. FUNCTION  Tim_Num_Time0                  ( Hour      : Hour_Number   ;
  15.                                            Minute    : Minute_Number ;
  16.                                            Second    : Second_Number ;
  17.                                            Hundredth : Hundredths )
  18.                                            : Time0 ;
  19.  
  20. VAR
  21.    Strng    : Time0 ;
  22.    Strng1   : Time0 ;
  23.  
  24. BEGIN (* FUNC *)
  25.    STR ( Hour : 2 , Strng ) ;
  26.    Strng := Strng + ':' ;
  27.    STR ( Minute : 2 , Strng1 ) ;
  28.    Strng := Strng + Strng1 + ':' ;
  29.    STR ( Second : 2 , Strng1 ) ;
  30.    Strng := Strng + Strng1 + '.' ;
  31.    STR ( Hundredth : 2 , Strng1 ) ;
  32.    Strng := Strng + Strng1 ;
  33.    IF Strng [  4 ] = ' ' THEN Strng [  4 ] := '0' ;
  34.    IF Strng [  7 ] = ' ' THEN Strng [  7 ] := '0' ;
  35.    IF Strng [ 10 ] = ' ' THEN Strng [ 10 ] := '0' ;
  36.    Tim_Num_Time0 := Strng ;
  37. END ; (* FUNC *)