有数字了 换算成时间

huang337588

标签1.标题 = 024533     每次数字都是6位数

怎么让024533 变成秒  （024533 = 02：45：33   也就是2个小时45分钟33秒）

02×3600+45×60+33 =9933秒

求个源码

zainex

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文本	文本型
正则	正则表达式
搜索结果	搜索结果		0
小时	整数型
分钟	整数型
秒	整数型
结果	整数型

文本 ＝ “024533”
正则.创建 (“[0-9]{2}”, )
搜索结果 ＝ 正则.搜索全部 (文本)
小时 ＝ 到整数 (搜索结果 [1].取匹配文本 (文本, ))
分钟 ＝ 到整数 (搜索结果 [2].取匹配文本 (文本, ))
秒 ＝ 到整数 (搜索结果 [3].取匹配文本 (文本, ))
结果 ＝ 小时 × 60 × 60 ＋ 分钟 × 60 ＋ 秒
调试输出 (结果)

i支持库列表	支持库注释
RegEx	正则表达式支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 RegEx<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本, 文本型<br /> .局部变量 正则, 正则表达式<br /> .局部变量 搜索结果, 搜索结果, , "0"<br /> .局部变量 小时, 整数型<br /> .局部变量 分钟, 整数型<br /> .局部变量 秒, 整数型<br /> .局部变量 结果, 整数型<br /> <br /> 文本 ＝ “024533”<br /> 正则.创建 (“[0-9]{2}”, )<br /> 搜索结果 ＝ 正则.搜索全部 (文本)<br /> 小时 ＝ 到整数 (搜索结果 [1].取匹配文本 (文本, ))<br /> 分钟 ＝ 到整数 (搜索结果 [2].取匹配文本 (文本, ))<br /> 秒 ＝ 到整数 (搜索结果 [3].取匹配文本 (文本, ))<br /> 结果 ＝ 小时 × 60 × 60 ＋ 分钟 × 60 ＋ 秒<br /> 调试输出 (结果)

四叔

时间_秒到时分秒格式()

四叔

.版本 2

.子程序 时间_秒到时分秒格式, 文本型, , 返回指定格式的时间文本
.参数 秒, 整数型
.参数 格式, 文本型, 可空, 默认:d天h小时m分s秒
.参数 自动补零, 逻辑型, 可空, 不足2位数自动前面补0
.局部变量 局_天, 整数型
.局部变量 局_小时, 整数型
.局部变量 局_分, 整数型
.局部变量 局_秒, 整数型
.局部变量 局_位置, 整数型
.局部变量 局_Time, 文本型

局_秒 ＝ 秒
.如果真 (是否为空 (格式) 或 格式 ＝ “”)
    格式 ＝ “d天h小时m分s秒”
.如果真结束

局_天 ＝ 局_秒 ÷ 86400
局_小时 ＝ (局_秒 ％ 86400) ÷ 3600
局_分 ＝ (局_秒 ％ 86400 ％ 3600) ÷ 60
局_秒 ＝ 局_秒 ％ 86400 ％ 3600 ％ 60

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

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

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

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

返回 (格式)

.子程序 文本_自动补零, 文本型, , 当指定文本长度不足时前面自动补零，通用用于数据库序列号
.参数 参_欲补齐文本, 文本型
.参数 参_补齐长度

返回 (取重复文本 (参_补齐长度 － 取文本长度 (参_欲补齐文本), “0”) ＋ 参_欲补齐文本)

aipca

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
补码	文本型
时间	日期时间型
秒	整数型

补码 ＝ “20000101”
时间 ＝ 到时间 (补码 ＋ 标签1.标题)
秒 ＝ 取小时 (时间) × 3600 ＋ 取分钟 (时间) × 60 ＋ 取秒 (时间)
调试输出 (时间, 秒)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 补码, 文本型<br /> .局部变量 时间, 日期时间型<br /> .局部变量 秒, 整数型<br /> <br /> 补码 ＝ “20000101”<br /> 时间 ＝ 到时间 (补码 ＋ 标签1.标题)<br /> 秒 ＝ 取小时 (时间) × 3600 ＋ 取分钟 (时间) × 60 ＋ 取秒 (时间)<br /> 调试输出 (时间, 秒)

黑咖啡

  

变量名	类 型	静态	数组	备 注
a	文本型
b	文本型		0

a ＝ “024533”
b ＝ 分割文本 (文本_均分文本1 (a, 2), #换行符, 3)
a ＝ 运算_内部计算 (b [1] ＋ “*3600+” ＋ b [2] ＋ “*60+” ＋ b [3])
调试输出 (a)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 a, 文本型<br /> .局部变量 b, 文本型, , "0"<br /> <br /> a ＝ “024533”<br /> b ＝ 分割文本 (文本_均分文本1 (a, 2), #换行符, 3)<br /> a ＝ 运算_内部计算 (b [1] ＋ “*3600+” ＋ b [2] ＋ “*60+” ＋ b [3])<br /> 调试输出 (a)

走一回

  

变量名	类 型	静态	数组	备 注
time	整数型

标签1.标题 ＝ “024533”
time ＝ 到整数 (取文本左边 (标签1.标题, 2)) × 3600 ＋ 到整数 (取文本中间 (标签1.标题, 3, 2)) × 60 ＋ 到整数 (取文本右边 (标签1.标题, 2))
调试输出 (time)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 time, 整数型<br /> <br /> 标签1.标题 ＝ “024533”<br /> time ＝ 到整数 (取文本左边 (标签1.标题, 2)) × 3600 ＋ 到整数 (取文本中间 (标签1.标题, 3, 2)) × 60 ＋ 到整数 (取文本右边 (标签1.标题, 2))<br /> 调试输出 (time)