我把几种时间转换写成了一个块。可以实现：
dint到s5time（输入dint单位为毫秒）
real到s5time（输入real单位为毫秒）
real到time（输入real单位为毫秒）
time到s5timeint到s5time（输入int单位为秒）
int到time（输入int单位为秒）
s5time到time
我这是抛砖引玉，望大家能提供更好的思路和方法。




SET
L 0
T LB 50
L #in_dint
T LD 30
S L 50.0
JU _001
rdin: R L 50.0
L LD 40
T #dint_s5t
L #in_real
TRUNC
T LD 30
S L 50.1
JU _001
rrea: R L 50.1
L LD 40
T #real_s5t
L #in_real
TRUNC
T #real_time
L #in_time
T LD 30
S L 50.2
JU _001
rtim: R L 50.2
L LD 40
T #time_s5t
L #in_int
ITD
L L#1000
*D
T LD 30
S L 50.3
JU _001
rint: R L 50.3
L LD 40
T #int_s5t
L #in_int
ITD
L L#1000
*D
T #int_time
L W#16#0
T LW 0
L W#16#1000
T LW 2
L W#16#2000
T LW 4
L W#16#3000
T LW 6
L 0
T LW 8 //标识位
LAR1
L 4
nex2: T LW 10
L #in_s5t
L W#16#3000
AW
L LW [AR1,P#0.0]
==I
JC _201
L LW 8
INC 1
T LW 8
+AR1 P#2.0
L LW 10
LOOP nex2
_201: L LW 8
L 4
*I
L 10

ITB
SLD
BTD
T LD 20
L LW 8
SLD 12
INVI
L #in_s5t
AW
BTI
L LD 20
*D
T #s5t_time
SET
SAVE
BE
_001: L LD 30
L L#9990000
>=D
JC _101
TAK
L 0
<=D
JC _101
TAK
_101: T LD 0
L L#10000
T LD 4
L L#100000
T LD 8
L L#1000000
T LD 12
L 0
LAR1
L 3
T LW 16
nex1: T LW 18
L LD 0
L LD [AR1,P#4.0]
JCN _102
L LW 16
DEC 1
T LW 16
_102: +AR1 P#4.0
L LW 18
LOOP nex1
L LD 0
DTB
T LD 0
L LW 16
INC 1
L 4
*I
L LD 0
SRD
T LD 0
L LW 16
L W#16#1000
*I
L LD 0
OW
T LD 40
A L 50.0
JC rdin
A L 50.1
JC rrea
A L 50.2
JC rtim
A L 50.3
JC rint
SET
SAVE