Return to %uxdat.m CVS log

Up to [Coherent Logic Development] / freem / contrib

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

1.1     ! snw         1: %uxdat(h,format)        ; FreeM Date/Time formatting  - version 0.5.0.1
        !             2:  ; Jon Diamond - 1999-03-21
        !             3:  ;
        !             4:  n time
        !             5:  ;
        !             6:  S h=$G(h) i h="" s h=+$H
        !             7:  s time=$P(h,",",2) i time="" s time=$p($h,",",2)
        !             8:  q $$date(h,$g(format))_"  "_$$time(time,$g(format))
        !             9:  ;
        !            10: date(h,format)   
        !            11:  s format=$g(format)     
        !            12:  n day,h,i,ly,mon,r,year,mm
        !            13:  S h=$G(h) i h="" s h=+$H
        !            14:  s time=$P(h,",",2) i time="" s time=$p($h,",",2)
        !            15:          
        !            16:  s h=h>21914+h ; 1900 IS NOT A LEAP YEAR
        !            17:  S ly=h\1461,r=h#1461,year=ly*4+1841+(r\365),day=r#365,mon=1
        !            18:  I r=1460,ly'=14 S day=365,year=year-1
        !            19:  F i=31,(r>1154)&(ly'=14)+28,31,30,31,30,31,31,30,31,30 Q:i'<day  S mon=mon+1,day=day-i
        !            20:  I day=0 S year=year-1,mon=12,day=31
        !            21:  ; 
        !            22:  S mm=$P("JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC"," ",mon)
        !            23:  I day<10 S day=0_day
        !            24:  I mon<10 S mon=0_mon
        !            25:  i +format=1 q year_"-"_mon_"-"_day
        !            26:  q day_"-"_mm_"-"_year
        !            27:  ; 
        !            28: time(time,format)
        !            29:  S time=$g(time) i time="" s time=$p($h,",",2)
        !            30:  n %TIM,%TIM1,%TIM2,hour,hour2,min,sec
        !            31:  S hour=time\3600
        !            32:  S min=time-(hour*3600)\60
        !            33:  S sec=time-(hour*3600)-(min*60)
        !            34:  S %TIM=hour_":"_(min\10)_(min#10) ; like MSM
        !            35:  S hour2=(hour-1)#12+1
        !            36:  S %TIM1=$J(hour2,2)_":"_(min\10)_(min#10)_" "_$S(hour\13:"PM",1:"AM") ; like MSM
        !            37:  S %TIM2=%TIM_":"_(sec\10)_(sec#10)       
        !            38:  ;       
        !            39:  i +format=1 q %TIM2
        !            40:  q %TIM1
        !            41: