Module: ampm      Library: Clipper 5.3


This module contains the following functions and procedures:



Note: Because this is raw decompiler output, the code is closer
to that seen in a .PPO file, rather than a .PRG file. In other
words, you must allow for the preprocessor conversions normally 
performed based on the contents of STD.CH and other .CH files
 
#include "common.ch"
#include "inkey.ch"

//---------------------------------------------------[top]-
//  AMPM( Arg1 )
//
function AMPM( Arg1 )

   do case
   case Val(Arg1) == 0
      Arg1 := "12" + SubStr(Arg1, 3) + " am"
   case Val(Arg1) < 12
      Arg1 := Arg1 + " am"
   case Val(Arg1) == 12
      Arg1 := Arg1 + " pm"
   case Val(Arg1) == 24
      Arg1 := "12" + SubStr(Arg1, 3) + " am"
   otherwise
      Arg1 := Str(Val(Arg1) - 12, 2) + SubStr(Arg1, 3) + " pm"
   endcase
   return Arg1

//---EOF


Use your Browser's BACK button to return to Function Listings