E4A(易安卓)时间转换

myl620

求大佬帮我写个E4A时间转换
例如:
236.85转换后  [03:56.85]

myl620

大佬都去哪里了。

myl620

  

子程序名	返回值类型	公开	备 注
转换歌词时间	文本型		返回指定格式的时间文本
参数名	类 型	参考	可空	数组	备 注
时间	文本型
格式	文本型				默认:d天h小时m分s秒

变量名	类 型	静态	数组	备 注
局_分	整数型
局_秒	整数型
局_毫秒	文本型
局_位置	整数型
局_Time	文本型
局_时间	文本型		0

局_时间 ＝ 分割文本 (时间, “.”, )
如果真 (取数组成员数 (局_时间) ＝ 2)
局_秒 ＝ 到整数 (局_时间 [1])
局_毫秒 ＝ 取文本右边 (局_时间 [2], 2)
如果真 (取文本长度 (局_毫秒) ≤ 1)
局_毫秒 ＝ 局_毫秒 ＋ “0”
格式 ＝ “[m:s.h]”
局_分 ＝ (局_秒 ％ 86400 ％ 3600) ÷ 60
局_秒 ＝ 局_秒 ％ 86400 ％ 3600 ％ 60
局_位置 ＝ 倒找文本 (格式, “m”, , 假)
如果真 (局_位置 ≠ -1)
局_Time ＝ 到文本 (局_分)
局_Time ＝ 文本_自动补零 (局_Time, 2)
格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)

局_位置 ＝ 倒找文本 (格式, “s”, , 假)
如果真 (局_位置 ≠ -1)
局_Time ＝ 到文本 (局_秒)
局_Time ＝ 文本_自动补零 (局_Time, 2)
格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)

局_位置 ＝ 倒找文本 (格式, “h”, , 假)
如果真 (局_位置 ≠ -1)
局_Time ＝ 到文本 (局_毫秒)
局_Time ＝ 文本_自动补零 (局_Time, 2)
格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)

返回 (格式)

.版本 2<br /> <br /> .子程序 转换歌词时间, 文本型, 公开, 返回指定格式的时间文本<br /> .参数 时间, 文本型<br /> .参数 格式, 文本型, 可空, 默认:d天h小时m分s秒<br /> .局部变量 局_分, 整数型<br /> .局部变量 局_秒, 整数型<br /> .局部变量 局_毫秒, 文本型<br /> .局部变量 局_位置, 整数型<br /> .局部变量 局_Time, 文本型<br /> .局部变量 局_时间, 文本型, , "0"<br /> <br /> 局_时间 ＝ 分割文本 (时间, “.”, )<br /> .如果真 (取数组成员数 (局_时间) ＝ 2)<br />     局_秒 ＝ 到整数 (局_时间 [1])<br />     局_毫秒 ＝ 取文本右边 (局_时间 [2], 2)<br />     .如果真 (取文本长度 (局_毫秒) ≤ 1)<br />         局_毫秒 ＝ 局_毫秒 ＋ “0”<br />     .如果真结束<br />     格式 ＝ “[m:s.h]”<br />     局_分 ＝ (局_秒 ％ 86400 ％ 3600) ÷ 60<br />     局_秒 ＝ 局_秒 ％ 86400 ％ 3600 ％ 60<br /> <br />     局_位置 ＝ 倒找文本 (格式, “m”, , 假)<br />     .如果真 (局_位置 ≠ -1)<br />         局_Time ＝ 到文本 (局_分)<br /> <br />         局_Time ＝ 文本_自动补零 (局_Time, 2)<br />         格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)<br />     .如果真结束<br /> <br />     局_位置 ＝ 倒找文本 (格式, “s”, , 假)<br />     .如果真 (局_位置 ≠ -1)<br />         局_Time ＝ 到文本 (局_秒)<br /> <br />         局_Time ＝ 文本_自动补零 (局_Time, 2)<br />         格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)<br />     .如果真结束<br /> <br />     局_位置 ＝ 倒找文本 (格式, “h”, , 假)<br />     .如果真 (局_位置 ≠ -1)<br />         局_Time ＝ 到文本 (局_毫秒)<br />         局_Time ＝ 文本_自动补零 (局_Time, 2)<br />         格式 ＝ 文本替换 (格式, 局_位置, 1, 局_Time)<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (格式)

这个是易语言的写法 但是我不会转换成E4A
求大佬帮帮我

花间一壶酒

分钟=236/60
秒=236%60

xiaowu777

myl620 发表于 2024-12-18 11:02
[e=0].版本 2

.子程序 转换歌词时间, 文本型, 公开, 返回指定格式的时间文本

你这不是易语言的的么   楼主不是要的 EA4的