收一个时间转换为小时 分 秒的脚本.

诚实小鸟

假定7325秒.转换为2小时2分5秒的脚本.
以前写过,不知道仍哪去了,现在完全没思路,求助大家.
脚本实现,不要用什么命令直接显示的那种.

诚实小鸟

#ACT
MOV        P100        个人变量（每秒减一）
DIV        P101        P100        86400
MUL        P102        P101        86400
DEC        P100        <$STR(P102)>
DIV        P103        P100        3600
MUL        P104        P103        3600
DEC        P100        <$STR(P104)>
DIV        P105        P100        60
MUL        P106        P105        60
DEC        P100        <$STR(P106)>

<$STR(P101)>天<$STR(P103)>小时<$STR(P105)>分<$STR(P100)>秒

复制代码
好像是可以用的吧。

诚实小鸟

#IF
#ACT
MOV N1 7325
MOV S1
MOV N2 <$STR(N1)>
DIV N2 3600
#IF
LARGE N2 0
#ACT
INC S1 <$STR(N2)>时
MUL N2 3600
DEC N1 <$STR(N2)>
#IF
#ACT
MOV N3 <$STR(N1)>
DIV N3 60
#IF
LARGE N3 0
#ACT
INC S1 <$STR(N3)>分
MUL N3 60
DEC N1 <$STR(N3)>
#IF
#ACT
INC S1 <$STR(N1)>秒
SENDMSG 0 还有<$STR(S1)>

诚实小鸟

#ACT
MOV        P100        个人变量（每秒减一）
DIV        P101        P100        86400
MUL        P102        P101        86400
DEC        P100        <$STR(P102)>
DIV        P103        P100        3600
MUL        P104        P103        3600
DEC        P100        <$STR(P104)>
DIV        P105        P100        60
MUL        P106        P105        60
DEC        P100        <$STR(P106)>

<$STR(P101)>天<$STR(P103)>小时<$STR(P105)>分<$STR(P100)>秒

复制代码
好像是可以用的吧。

诚实小鸟

#IF
#ACT
MOV N1 7325
MOV S1
MOV N2 <$STR(N1)>
DIV N2 3600
#IF
LARGE N2 0
#ACT
INC S1 <$STR(N2)>时
MUL N2 3600
DEC N1 <$STR(N2)>
#IF
#ACT
MOV N3 <$STR(N1)>
DIV N3 60
#IF
LARGE N3 0
#ACT
INC S1 <$STR(N3)>分
MUL N3 60
DEC N1 <$STR(N3)>
#IF
#ACT
INC S1 <$STR(N1)>秒
SENDMSG 0 还有<$STR(S1)>

诚实小鸟

#ACT
MOV        P100        个人变量（每秒减一）
DIV        P101        P100        86400
MUL        P102        P101        86400
DEC        P100        <$STR(P102)>
DIV        P103        P100        3600
MUL        P104        P103        3600
DEC        P100        <$STR(P104)>
DIV        P105        P100        60
MUL        P106        P105        60
DEC        P100        <$STR(P106)>

<$STR(P101)>天<$STR(P103)>小时<$STR(P105)>分<$STR(P100)>秒

复制代码
好像是可以用的吧。

诚实小鸟

#IF
#ACT
MOV N1 7325
MOV S1
MOV N2 <$STR(N1)>
DIV N2 3600
#IF
LARGE N2 0
#ACT
INC S1 <$STR(N2)>时
MUL N2 3600
DEC N1 <$STR(N2)>
#IF
#ACT
MOV N3 <$STR(N1)>
DIV N3 60
#IF
LARGE N3 0
#ACT
INC S1 <$STR(N3)>分
MUL N3 60
DEC N1 <$STR(N3)>
#IF
#ACT
INC S1 <$STR(N1)>秒
SENDMSG 0 还有<$STR(S1)>