Re: Military time to Norm

 BBS: Inland Empire Archive
Date: 02-14-93 (00:10)             Number: 245
From: HERMAN NIEUWENDAAL           Refer#: NONE
  To: STEVE SPENCER                 Recvd: NO  
Subj: Re: Military time to Norm      Conf: (2) Quik_Bas

 SS> taking the system time (in millitary form) and converting it to normal
 SS> time (1-12) with a PM or AM on the end.  Can anyone help me with this.

  Here's a function that does what you need.  It will work with the standard
  5 or 8 character time formats. (HH:MM or HH:MM:SS)

>---------------------------------------------------------<
  DECLARE FUNCTION StdTime$ (tme$)

  '24 hour to 12 hour format conversion function
  'Examples of usage:  PRINT StdTime$(TIME$)
  '                    PRINT StdTime$("18:24")
  FUNCTION StdTime$ (tme$)
    SELECT CASE LEFT$(tme$, 2)
      CASE "00"
        MID$(tme$, 1, 2) = "12"
        x$ = "am"
      CASE "01" TO "09"
        MID$(tme$, 1, 2) = STR$(VAL(LEFT$(tme$, 2)))
        x$ = "am"
      CASE "10" TO "11"
        x$ = "am"
      CASE "12"
        x$ = "pm"
      CASE "13" TO "21"
        MID$(tme$, 1, 2) = STR$(VAL(LEFT$(tme$, 2)) - 12)
        x$ = "pm"
      CASE "22" TO "23"
        MID$(tme$, 1, 2) = LTRIM$(STR$(VAL(LEFT$(tme$, 2)) - 12))
        x$ = "pm"
    END SELECT
    StdTime$ = LEFT$(tme$, 5) + x$
  END FUNCTION
>---------------------------------------------------------<

... Herman
--- FMail 0.92
 * Origin: Software Heaven (813)653-0029 (1:377/41.0)