精易论坛

标题: 有数字了 换算成时间 [打印本页]

作者: huang337588    时间: 5 天前
标题: 有数字了 换算成时间
标签1.标题 = 024533     每次数字都是6位数

怎么让024533 变成秒  (024533 = 02:45:33   也就是2个小时45分钟33秒)

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

求个源码

作者: zainex    时间: 5 天前
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
子程序名返回值类型公开备 注
__启动窗口_创建完毕  
变量名类 型静态数组备 注
文本文本型 
正则正则表达式 
搜索结果搜索结果0
小时整数型 
分钟整数型 
整数型 
结果整数型 
文本 = “024533”
正则.创建 (“[0-9]{2}”, )
搜索结果 = 正则.搜索全部 (文本)
小时 = 到整数 (搜索结果 [1].取匹配文本 (文本, ))
分钟 = 到整数 (搜索结果 [2].取匹配文本 (文本, ))
秒 = 到整数 (搜索结果 [3].取匹配文本 (文本, ))
结果 = 小时 × 60 × 60 + 分钟 × 60 + 秒
调试输出 (结果)


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


作者: 四叔    时间: 5 天前
时间_秒到时分秒格式()


作者: 四叔    时间: 5 天前
.版本 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    时间: 5 天前
  
子程序名返回值类型公开备 注
_按钮1_被单击  
变量名类 型静态数组备 注
补码文本型 
时间日期时间型 
整数型 
补码 = “20000101”
时间 = 到时间 (补码 + 标签1.标题)
秒 = 取小时 (时间) × 3600 + 取分钟 (时间) × 60 + 取秒 (时间)
调试输出 (时间, 秒)


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


作者: 黑咖啡    时间: 5 天前
  
变量名类 型静态数组备 注
a文本型 
b文本型0
a = “024533”
b = 分割文本 (文本_均分文本1 (a, 2), #换行符, 3)
a = 运算_内部计算 (b [1]“*3600+” + b [2]“*60+” + b [3])
调试输出 (a)


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


作者: 走一回    时间: 5 天前
  
变量名类 型静态数组备 注
time整数型 
标签1.标题 = “024533”
time = 到整数 (取文本左边 (标签1.标题, 2)) × 3600 + 到整数 (取文本中间 (标签1.标题, 3, 2)) × 60 + 到整数 (取文本右边 (标签1.标题, 2))
调试输出 (time)


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






欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4