Return to %T.m CVS log

Up to [Coherent Logic Development] / freem / contrib

Annotation of freem/contrib/%T.m, revision 1.1

1.1     ! snw         1: %T     ; A.Trocha; get current time  01/28/1999 01:39/GMT+1
        !             2:        ; $Source: /cvsroot-fuse/gump/FreeM/mlib/%T.m,v $
        !             3:        ; $Revision: 1.3 $ $Date: 2000/02/18 15:13:42 $
        !             4:        ;    %TIM   <hh>:<mm>        (<hh>: 0-23)
        !             5:        ;    %TIM1  <hh>:<mm> am|pm  (<hh>: 1-12)
        !             6:        ;    %TIM2  <hh>:<mm>:<ss>   (<hh>: 0-23)
        !             7:        ;
        !             8:        N %TIM,%TIM1,%TIM2
        !             9:        D INT
        !            10:        W %TIM1
        !            11:        Q
        !            12:        
        !            13: INT    N time,hh,hh2,mm,ss
        !            14:        S time=$P($H,",",2)
        !            15:        S hh=time\3600
        !            16:        S mm=time-(hh*3600)\60
        !            17:        S ss=time-(hh*3600)-(mm*60)
        !            18:        S %TIM=hh_":"_(mm\10)_(mm#10) ; like MSM
        !            19:        S hh2=(hh-1)#12+1
        !            20:        S %TIM1=$J(hh2,2)_":"_(mm\10)_(mm#10)_" "_$S(hh\13:"PM",1:"AM") ; like MSM
        !            21:        S %TIM2=%TIM_":"_(ss\10)_(ss#10)
        !            22:        Q