home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PIBT41S3.ZIP / PIBTIMER.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-01  |  796 b   |  31 lines
  1. (*$R-,V-,K-*)
  2. UNIT PibTimer;
  3.  
  4. INTERFACE
  5.  
  6. USES
  7.    Dos, GlobType, StringMan;
  8.  
  9.    PROCEDURE Adjust_Hour( VAR Hour : INTEGER;
  10.                           VAR AmPm : ShortStr );
  11.    FUNCTION TimeOfDay : LONGINT;
  12.    FUNCTION TimeDiff( Timer1, Timer2: LONGINT ) : LONGINT;
  13.    FUNCTION TimeString( Timer_Value  : LONGINT;
  14.                         Timer_Format : Time_Format_Type ) : ShortStr;
  15.    FUNCTION DateString : ShortStr;
  16.    FUNCTION DialDateString: ShortStr;
  17.  
  18.    FUNCTION TimeOfDayH : LONGINT;
  19.    FUNCTION TimeDiffH( Timer1, Timer2: LONGINT ) : LONGINT;
  20.    FUNCTION TimeStringH( Timer_Value  : LONGINT;
  21.                          Timer_Format : Time_Format_Type ) : ShortStr;
  22.  
  23. IMPLEMENTATION
  24.  
  25. {$I ADJUSTHR.MOD }
  26. {$I PIBTIMER.MOD }
  27. {$I PIBTIMRH.MOD }
  28.  
  29. END (* PibTimer *).
  30.  
  31.