这种双向时间变换怎么写？

summer0411

大家好，目前已经实现了按调节按键小时，分钟，秒，毫秒时，上面的编辑框1，毫秒出现对应的换算时间。 我想实现编辑框1输入对应毫秒时间，下面的四个编辑框能出来相应的时，分，秒，毫秒，请大佬指导一下。



这个是目前已经实现了的部分。

  

子程序名	返回值类型	公开	备 注
_编辑框1_调节钮被按下
参数名	类 型	参考	可空	数组	备 注
按钮值	整数型

如果真 (到整数 (编辑框1.内容) ≥ 0)
编辑框1.内容 ＝ 到文本 (到整数 (编辑框1.内容) ＋ 按钮值)

如果真 (编辑框1.内容 ＝ “-1”)
编辑框1.内容 ＝ “0”

子程序名	返回值类型	公开	备 注
_编辑框2_调节钮被按下
参数名	类 型	参考	可空	数组	备 注
按钮值	整数型

如果真 (到整数 (编辑框2.内容) ≥ 0)
编辑框2.内容 ＝ 到文本 (到整数 (编辑框2.内容) ＋ 按钮值)

如果真 (编辑框2.内容 ＝ “-1”)
编辑框2.内容 ＝ “0”

编辑框1.内容 ＝ 到文本 (到数值 (编辑框2.内容) × 3600000 ＋ 到数值 (编辑框3.内容) × 60000 ＋ 到数值 (编辑框4.内容) × 1000 ＋ 到数值 (编辑框5.内容))

子程序名	返回值类型	公开	备 注
_编辑框3_调节钮被按下
参数名	类 型	参考	可空	数组	备 注
按钮值	整数型

如果真 (到整数 (编辑框3.内容) ≥ 0)
编辑框3.内容 ＝ 到文本 (到整数 (编辑框3.内容) ＋ 按钮值)

如果真 (编辑框3.内容 ＝ “-1”)
编辑框3.内容 ＝ “0”

编辑框1.内容 ＝ 到文本 (到数值 (编辑框2.内容) × 3600000 ＋ 到数值 (编辑框3.内容) × 60000 ＋ 到数值 (编辑框4.内容) × 1000 ＋ 到数值 (编辑框5.内容))

子程序名	返回值类型	公开	备 注
_编辑框4_调节钮被按下
参数名	类 型	参考	可空	数组	备 注
按钮值	整数型

如果真 (到整数 (编辑框4.内容) ≥ 0)
编辑框4.内容 ＝ 到文本 (到整数 (编辑框4.内容) ＋ 按钮值)

如果真 (编辑框4.内容 ＝ “-1”)
编辑框4.内容 ＝ “0”

编辑框1.内容 ＝ 到文本 (到数值 (编辑框2.内容) × 3600000 ＋ 到数值 (编辑框3.内容) × 60000 ＋ 到数值 (编辑框4.内容) × 1000 ＋ 到数值 (编辑框5.内容))

子程序名	返回值类型	公开	备 注
_编辑框5_调节钮被按下
参数名	类 型	参考	可空	数组	备 注
按钮值	整数型

如果真 (到整数 (编辑框5.内容) ≥ 0)
编辑框5.内容 ＝ 到文本 (到整数 (编辑框5.内容) ＋ 按钮值)

如果真 (编辑框5.内容 ＝ “-1”)
编辑框5.内容 ＝ “0”

编辑框1.内容 ＝ 到文本 (到数值 (编辑框2.内容) × 3600000 ＋ 到数值 (编辑框3.内容) × 60000 ＋ 到数值 (编辑框4.内容) × 1000 ＋ 到数值 (编辑框5.内容))

.版本 2<br /> <br /> .子程序 _编辑框1_调节钮被按下<br /> .参数 按钮值, 整数型<br /> <br /> .如果真 (到整数 (编辑框1.内容) ≥ 0)<br />     编辑框1.内容 ＝ 到文本 (到整数 (编辑框1.内容) ＋ 按钮值)<br /> .如果真结束<br /> <br /> .如果真 (编辑框1.内容 ＝ “-1”)<br />     编辑框1.内容 ＝ “0”<br /> .如果真结束<br /> <br /> <br /> .子程序 _编辑框2_调节钮被按下<br /> .参数 按钮值, 整数型<br /> <br /> .如果真 (到整数 (编辑框2.内容) ≥ 0)<br />     编辑框2.内容 ＝ 到文本 (到整数 (编辑框2.内容) ＋ 按钮值)<br /> .如果真结束<br /> <br /> .如果真 (编辑框2.内容 ＝ “-1”)<br />     编辑框2.内容 ＝ “0”<br /> .如果真结束<br /> <br /> <br /> 编辑框1.内容 ＝ 到文本 (到数值 (编辑框2.内容) × 3600000 ＋ 到数值 (编辑框3.内容) × 60000 ＋ 到数值 (编辑框4.内容) × 1000 ＋ 到数值 (编辑框5.内容))<br /> <br /> .子程序 _编辑框3_调节钮被按下<br /> .参数 按钮值, 整数型<br /> <br /> .如果真 (到整数 (编辑框3.内容) ≥ 0)<br />     编辑框3.内容 ＝ 到文本 (到整数 (编辑框3.内容) ＋ 按钮值)<br /> .如果真结束<br /> <br /> .如果真 (编辑框3.内容 ＝ “-1”)<br />     编辑框3.内容 ＝ “0”<br /> .如果真结束<br /> <br /> <br /> 编辑框1.内容 ＝ 到文本 (到数值 (编辑框2.内容) × 3600000 ＋ 到数值 (编辑框3.内容) × 60000 ＋ 到数值 (编辑框4.内容) × 1000 ＋ 到数值 (编辑框5.内容))<br /> <br /> .子程序 _编辑框4_调节钮被按下<br /> .参数 按钮值, 整数型<br /> <br /> .如果真 (到整数 (编辑框4.内容) ≥ 0)<br />     编辑框4.内容 ＝ 到文本 (到整数 (编辑框4.内容) ＋ 按钮值)<br /> .如果真结束<br /> <br /> .如果真 (编辑框4.内容 ＝ “-1”)<br />     编辑框4.内容 ＝ “0”<br /> .如果真结束<br /> <br /> <br /> 编辑框1.内容 ＝ 到文本 (到数值 (编辑框2.内容) × 3600000 ＋ 到数值 (编辑框3.内容) × 60000 ＋ 到数值 (编辑框4.内容) × 1000 ＋ 到数值 (编辑框5.内容))<br /> <br /> .子程序 _编辑框5_调节钮被按下<br /> .参数 按钮值, 整数型<br /> <br /> .如果真 (到整数 (编辑框5.内容) ≥ 0)<br />     编辑框5.内容 ＝ 到文本 (到整数 (编辑框5.内容) ＋ 按钮值)<br /> .如果真结束<br /> <br /> .如果真 (编辑框5.内容 ＝ “-1”)<br />     编辑框5.内容 ＝ “0”<br /> .如果真结束<br /> <br /> 编辑框1.内容 ＝ 到文本 (到数值 (编辑框2.内容) × 3600000 ＋ 到数值 (编辑框3.内容) × 60000 ＋ 到数值 (编辑框4.内容) × 1000 ＋ 到数值 (编辑框5.内容))

b0y

1.e (7.41 KB, 下载次数: 1)

2024-3-1 12:14 上传

点击文件名下载附件

just1993

[JavaScript] 纯文本查看 复制代码

.版本 2

.子程序 转换时间, 文本型
.参数 参_秒, 整数型
.局部变量 小时, 双精度小数型
.局部变量 秒, 双精度小数型
.局部变量 分钟, 双精度小数型
.局部变量 hh, 文本型
.局部变量 mm, 文本型
.局部变量 ss, 文本型

小时 ＝ 参_秒 ＼ 3600
秒 ＝ 参_秒 ％ 3600
分钟 ＝ 秒 ＼ 60
秒 ＝ 秒 ％ 60
.如果 (小时 ＜ 10)
    hh ＝ “0” ＋ 到文本 (小时)
.否则
    hh ＝ 到文本 (小时)
.如果结束
.如果 (分钟 ＜ 10)
    mm ＝ “0” ＋ 到文本 (分钟)
.否则
    mm ＝ 到文本 (分钟)
.如果结束
.如果 (秒 ＜ 10)
    ss ＝ “0” ＋ 到文本 (秒)
.否则
    ss ＝ 到文本 (秒)
.如果结束

返回 (到文本 (hh) ＋ “:” ＋ 到文本 (mm) ＋ “:” ＋ 到文本 (ss))

没事瞎琢磨

菜鸟囚徒

  

变量名	类 型	静态	数组	备 注
ms	长整数型
h_temp	长整数型
h	长整数型
temp	长整数型
m_temp	长整数型
s_temp	长整数型
s	长整数型
ms_	长整数型
m	长整数型

ms ＝ 到长整数 (编辑框1.内容)
temp ＝ ms
h_temp ＝ 取整 (temp ÷ 3600000)
如果 (h_temp ＞ 0)
h ＝ h_temp
temp ＝ temp － h × 3600000
h ＝ h_temp
m_temp ＝ 取整 (temp ÷ 60000)
如果 (m_temp ＞ 0)
m ＝ m_temp
temp ＝ temp － m × 60000
m ＝ m_temp
s_temp ＝ 取整 (temp ÷ 1000)
如果 (s_temp ＞ 0)
s ＝ s_temp
temp ＝ temp － s × 1000
s ＝ s_temp
ms_ ＝ temp
编辑框2.内容 ＝ 到文本 (h_temp)
编辑框3.内容 ＝ 到文本 (m_temp)
编辑框4.内容 ＝ 到文本 (s_temp)
编辑框5.内容 ＝ 到文本 (ms_)

.版本 2<br /> <br /> .局部变量 ms, 长整数型<br /> .局部变量 h_temp, 长整数型<br /> .局部变量 h, 长整数型<br /> .局部变量 temp, 长整数型<br /> .局部变量 m_temp, 长整数型<br /> .局部变量 s_temp, 长整数型<br /> .局部变量 s, 长整数型<br /> .局部变量 ms_, 长整数型<br /> .局部变量 m, 长整数型<br /> <br /> ms ＝ 到长整数 (编辑框1.内容)<br /> temp ＝ ms<br /> h_temp ＝ 取整 (temp ÷ 3600000)<br /> .如果 (h_temp ＞ 0)<br />     h ＝ h_temp<br />     temp ＝ temp － h × 3600000<br /> .否则<br />     h ＝ h_temp<br /> .如果结束<br /> m_temp ＝ 取整 (temp ÷ 60000)<br /> .如果 (m_temp ＞ 0)<br />     m ＝ m_temp<br />     temp ＝ temp － m × 60000<br /> .否则<br />     m ＝ m_temp<br /> .如果结束<br /> s_temp ＝ 取整 (temp ÷ 1000)<br /> .如果 (s_temp ＞ 0)<br />     s ＝ s_temp<br />     temp ＝ temp － s × 1000<br /> .否则<br />     s ＝ s_temp<br /> .如果结束<br /> ms_ ＝ temp<br /> 编辑框2.内容 ＝ 到文本 (h_temp)<br /> 编辑框3.内容 ＝ 到文本 (m_temp)<br /> 编辑框4.内容 ＝ 到文本 (s_temp)<br /> 编辑框5.内容 ＝ 到文本 (ms_)