File:
[Coherent Logic Development] /
freem /
contrib /
%T.m
Revision
1.1.1.1 (vendor branch):
download - view:
text,
annotated -
select for diffs
Sun Jan 19 02:04:04 2025 UTC (6 months, 1 week ago) by
snw
Branches:
MAIN,
CoherentLogicDevelopment
CVS tags:
v0-63-1-rc1,
v0-63-0-rc1,
v0-63-0,
v0-62-3,
v0-62-2,
v0-62-1,
v0-62-0,
start,
HEAD
FreeM
1: %T ; A.Trocha; get current time 01/28/1999 01:39/GMT+1
2: ; $Source: /home/cvsroot/freem/contrib/%T.m,v $
3: ; $Revision: 1.1.1.1 $ $Date: 2025/01/19 02:04:04 $
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
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to %T.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem / contrib