查看: 2662|回复: 11	[老狼] [老狼][源码分享]----PC时间转秒----微光(66) [复制链接]

发送短消息 UID 1228894 帖子 26909 精华 25 鲜花 7984 朵 铜币 36063 个 银币 4680 个 性别 在线时间 421340 注册时间 2012-07-18 最后登录 2024-04-26 1223116618 查看公共资料 搜索主题 搜索帖子 瑞祥幽冥狼 按 键 工 程 师 ● 兼 职 组别超级版主 UID1228894 帖子26909 精华25 鲜花7984 朵 铜币36063 个 银币4680 个 在线时间421340 注册时间2012-07-18 按键X开拓者勋章 按键精灵X版开拓者勋章 过大年勋章 俩小福娃给大家拜年啦！ 双十一绝版纪念勋章 双十一绝版纪念勋章 抗战胜利70周年勋章 抗战胜利70周年活动的专属勋章 单身汪勋章 单身贵族的专属勋章 按键14周年庆纪念勋章 按键14周年庆纪念勋章 按键学院 按键学院专属勋章，按键学院学员或文章被院刊收入可领取 幸运草勋章 商业小精灵限时活动勋章。 马年勋章 马年纪念勋章 鹰眼勋章 鹰眼注册用户专属勋章 黄瓜勋章 体验商业小精灵活动的奖励 天使勋章 天使一样的用户 按键明星 按键明星勋章 黄金之翼 黄金之翼勋章 举报达人 长期举报不良帖子 活动狂人 论坛活动狂人 骨灰级按键用户 3年以上的按键论坛用户 按键精灵开发者6级 可通过提升认证等级来升级勋章：rz.anjian.com 龙年勋章 龙年纪念勋章 十周年勋章 十周年纪念勋章 兔年勋章 兔年纪念勋章 论坛GG 按键论坛男性用户勋章 发帖高手 鼓励积极回复，但注意不要灌水哦 爱心大使 积极帮助新手（可向管理员进行申请） 学有所成 学有所成勋章，新手步入按键学堂的第一枚勋章 按键运营团队 按键运营团队专属勋章 按键元老 资深按键用户的尊贵荣誉勋章 管理人员 按键论坛的管理团队专属勋章	1# 字体大小: t T 发表于 2022-07-23 10:09 | |只看楼主 如何实现时间转秒: 例:[3天1小时20分17秒]转秒 思路1:split 代码 t = "3天1小时20分17秒" 天 = split(t, "天")(0) 小时 = GetStrAB(t, "天", "小时") 分=GetStrAB(t, "小时", "分") 秒 = GetStrAB(t, "分", "秒") TracePrint 天*3600*24+小时*3600+分*60+秒&"秒" Function GetStrAB(Str, StrA, StrB) If InStr(Str,StrA)>0 And InStr(Str,StrB)>0 Then GetStrAB=Split(Split(Str,StrA)(1),StrB)(0) End Function 复制代码 调试输出 t = "3天1小时20分17秒" 天 = split(t, "天")(0) 小时 = GetStrAB(t, "天", "小时") 分=GetStrAB(t, "小时", "分") 秒 = GetStrAB(t, "分", "秒") TracePrint 天*3600*24+小时*3600+分*60+秒&"秒" Function GetStrAB(Str, StrA, StrB) If InStr(Str,StrA)>0 And InStr(Str,StrB)>0 Then GetStrAB=Split(Split(Str,StrA)(1),StrB)(0) End Function 复制代码 思路2"正则+split 代码： str = "3天1小时20分17秒" Set regEx = New RegExp regEx.IgnoreCase = True Execute "regEx.Global = True" regEx.pattern = "\d+" Set Matches = regEx.Execute(str) ReDim Rlt(Matches.Count) For Each Match in Matches Rlt(i) = Match.Value i = i + 1 Next TracePrint Join(rlt, "|") TracePrint rlt(0)*3600*24+rlt(1)*3600+rlt(2)*60+rlt(3)&"秒" 复制代码 调试输出： 脚本 N7.Q ，第14行：3|1|20|17| 脚本 N7.Q ，第15行：264017 复制代码 思路3：Replace+eval 代码： t = "3天1小时20分17秒" t = Replace(t, "天", "*3600*24+") t = Replace(t, "小时", "*3600+") t = Replace(t, "分", "*60+") t = Replace(t, "秒", "") TracePrint t TracePrint eval(t) 复制代码 调试输出： 脚本 N7.Q ，第6行：3*3600*24+1*3600+20*60+17 脚本 N7.Q ，第7行：264017 复制代码 作者什么也没留下
	瑞祥幽冥狼 最后编辑于 2022-07-24 16:30:16 本主题由 超级版主 瑞祥幽冥狼 于 2023/2/21 13:14:30 执行 审核帖子 操作 点赞 收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击 个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8［将满］ 个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3［可加］
	回顶部

发送短消息 UID 3594373 帖子 20 精华 0 鲜花 -2 朵 铜币 29 个 银币 9 个 性别 在线时间 100 注册时间 2015-11-18 最后登录 2023-01-15 查看公共资料 搜索主题 搜索帖子 daodian daodian 组别小学一年级 UID3594373 帖子20 精华0 鲜花-2 朵 铜币29 个 银币9 个 在线时间100 注册时间2015-11-18	2# 字体大小: t T 发表于 2022-07-23 16:36 | |只看该用户 66666
	回顶部

发送短消息 UID 5111770 帖子 601 精华 0 鲜花 53 朵 铜币 605 个 银币 595 个 性别 在线时间 720 注册时间 2018-03-12 最后登录 2024-04-26 12345 查看公共资料 搜索主题 搜索帖子 dog38cc dog38cc 组别高中二年级 UID5111770 帖子601 精华0 鲜花53 朵 铜币605 个 银币595 个 在线时间720 注册时间2018-03-12 按键精灵开发者2级 可通过提升认证等级来升级勋章：rz.anjian.com	3# 字体大小: t T 发表于 2022-08-02 15:09 | |只看该用户 6666666
	回顶部

发送短消息 UID 2113341 帖子 82 精华 0 鲜花 17 朵 铜币 140 个 银币 22 个 性别 在线时间 2980 注册时间 2013-09-01 最后登录 2022-11-29 1808113439 查看公共资料 搜索主题 搜索帖子 maojialong008 maojialong008 组别小学四年级 UID2113341 帖子82 精华0 鲜花17 朵 铜币140 个 银币22 个 在线时间2980 注册时间2013-09-01	4# 字体大小: t T 发表于 2022-11-23 11:00 | |只看该用户 感谢狼神
	回顶部

发送短消息 UID 146534 帖子 861 精华 0 鲜花 385 朵 铜币 906 个 银币 767 个 性别 在线时间 6360 注册时间 2007-08-09 最后登录 2024-01-14 查看公共资料 搜索主题 搜索帖子 hz_sg hz_sg 组别大学一年级 UID146534 帖子861 精华0 鲜花385 朵 铜币906 个 银币767 个 在线时间6360 注册时间2007-08-09	5# 字体大小: t T 发表于 2022-11-23 11:11 | |只看该用户 感谢狼神
	回顶部

发送短消息 UID 479027 帖子 50 精华 0 鲜花 43 朵 铜币 106 个 银币 42 个 性别 在线时间 120 注册时间 2010-08-08 最后登录 2024-02-29 78290740 查看公共资料 搜索主题 搜索帖子 wang1018mail wang1018mail 组别小学三年级 UID479027 帖子50 精华0 鲜花43 朵 铜币106 个 银币42 个 在线时间120 注册时间2010-08-08	6# 字体大小: t T 发表于 2023-01-14 14:34 | |只看该用户 感谢老狼
	回顶部

发送短消息 UID 310982 帖子 34 精华 0 鲜花 10 朵 铜币 74 个 银币 16 个 性别 在线时间 420 注册时间 2009-09-13 最后登录 2023-07-01 查看公共资料 搜索主题 搜索帖子 liziyunabcd liziyunabcd 组别小学二年级 UID310982 帖子34 精华0 鲜花10 朵 铜币74 个 银币16 个 在线时间420 注册时间2009-09-13 按键会员（月） 按键会员绑定账号后自动赠送	7# 字体大小: t T 发表于 2023-02-02 17:31 | |只看该用户 36666,我正在找这个
	回顶部

发送短消息 UID 7319854 帖子 50 精华 0 鲜花 33 朵 铜币 56 个 银币 46 个 性别 在线时间 0 注册时间 2020-01-19 最后登录 2024-03-05 查看公共资料 搜索主题 搜索帖子 hchyaoyue hchyaoyue 组别小学三年级 UID7319854 帖子50 精华0 鲜花33 朵 铜币56 个 银币46 个 在线时间0 注册时间2020-01-19	8# 字体大小: t T 发表于 2023-02-20 21:26 | |只看该用户 我就看看
	回顶部

发送短消息 UID 334164 帖子 160 精华 0 鲜花 51 朵 铜币 188 个 银币 87 个 性别 在线时间 1980 注册时间 2009-11-30 最后登录 2024-04-24 171000287 查看公共资料 搜索主题 搜索帖子 fycool fycool 组别初中一年级 UID334164 帖子160 精华0 鲜花51 朵 铜币188 个 银币87 个 在线时间1980 注册时间2009-11-30 按键精灵开发者1级 可通过提升认证等级来升级勋章：rz.anjian.com	9# 字体大小: t T 发表于 2023-04-05 10:26 | |只看该用户 我就学习一下
	回顶部

发送短消息 UID 8689099 帖子 266 精华 0 鲜花 233 朵 铜币 263 个 银币 263 个 性别 在线时间 0 注册时间 2022-04-06 最后登录 2024-04-09 727156471 查看公共资料 搜索主题 搜索帖子 家鸿 家鸿 组别初中二年级 UID8689099 帖子266 精华0 鲜花233 朵 铜币263 个 银币263 个 在线时间0 注册时间2022-04-06	10# 字体大小: t T 发表于 2023-04-25 14:00 | |只看该用户
	回顶部

发送短消息 UID 442265 帖子 132 精华 0 鲜花 80 朵 铜币 240 个 银币 123 个 性别 在线时间 20 注册时间 2010-06-15 最后登录 2024-04-02 181469347 查看公共资料 搜索主题 搜索帖子 wuhezong wuhezong 组别小学六年级 UID442265 帖子132 精华0 鲜花80 朵 铜币240 个 银币123 个 在线时间20 注册时间2010-06-15	11# 字体大小: t T 发表于 2023-08-06 03:18 | |只看该用户
	回顶部

发送短消息 UID 9137379 帖子 33 精华 0 鲜花 29 朵 铜币 34 个 银币 34 个 性别 在线时间 0 注册时间 2023-10-15 最后登录 2023-12-18 查看公共资料 搜索主题 搜索帖子 18694280390 组别小学一年级 UID9137379 帖子33 精华0 鲜花29 朵 铜币34 个 银币34 个 在线时间0 注册时间2023-10-15	12# 字体大小: t T 发表于 2023-11-21 22:20 | |只看该用户 学习学习
	回顶部