home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Database / CLIPR502.DOS / SOURCE / SAMPLE / AMPM.PRG next >
Encoding:
Text File  |  1993-02-15  |  673 b   |  42 lines
  1. /***
  2. *
  3. *  Ampm.prg
  4. *
  5. *  Summer '87 AMPM() Compatibility Routine
  6. *
  7. *  Copyright (c) 1993, Computer Associates International Inc.
  8. *  All rights reserved.
  9. *
  10. */
  11.  
  12.  
  13. /***
  14. *
  15. *  AMPM( <cTime> ) --> cTime
  16. *
  17. *  Convert a time string to 12-hour format
  18. *
  19. */
  20. FUNCTION AMPM( cTime )
  21.  
  22.    IF VAL( cTime ) == 0
  23.       cTime := "12" + SUBSTR( cTime, 3 ) + " am"
  24.  
  25.    ELSEIF VAL( cTime ) < 12
  26.       cTime += " am"
  27.  
  28.    ELSEIF VAL( cTime ) == 12
  29.       cTime += " pm"
  30.  
  31.    ELSEIF VAL( cTime ) == 24
  32.       cTime := "12" + SUBSTR( cTime, 3 ) + " am"
  33.  
  34.    ELSE
  35.       cTime := STR( VAL( cTime ) - 12, 2 ) + SUBSTR( cTime, 3 ) + " pm"
  36.  
  37.    ENDIF
  38.  
  39.    RETURN cTime
  40.  
  41.  
  42.