VAQ FORMAT TIME (159) FUNCTION (.5)
Name
Value
NAME
VAQ FORMAT TIME
MUMPS CODE
Q:'$D(X) Q:($P(X,".",2)="") S X=$P(X,".",2)_"000000",X=(+$E(X,1,2))_":"_$E(X,3,4)_" "_$S((+$E(X,1,6))>115959:"PM",1:"AM") S:(+$P(X,":",1))=0 $P(X,":",1)=12
EXPLANATION
Converts a FileMan time to HH:mm AM (or PM). Full FileMan date/time must be passed.
DATE-VALUED
NO