>How's this?
>>FUNCTION Time12Hr
> PARAMETERS cTm
> LOCAL nHr
>
> IF PCOUNT()==0 THEN
> cTm = TIME()
> ENDIF
> nHr = VAL(LEFT(m.cTm,2))
> RETURN TRANSFORM((m.nHr+11)%12+1)+" "+IIF(m.nHr>=12,"PM","AM")
>ENDFOR
>
Way cool. I knew my old stuff was brute force methodology, while yours is executed with great finesse. Thanks, Naoto. The last two lines need to be tweaked into these three lines:
cMin = SUBSTR(cTm,3,3)
RETURN TRANSFORM((m.nHr+11)%12+1)+cMin+" "+IIF(m.nHr>=12,"PM","AM")
ENDFUNC
Randy Bosma
VFP - Because life is too short to code in something else...
