- 超级版主
- 1228894
- 26989
- 25
- 8064 朵
- 36143 个
- 4760 个
- 421340
- 2012-07-18
|
1#
t
T
发表于 2022-07-24 17:46
|
|只看楼主
如何实现秒转时间: 代码1:[收录Mod]- TracePrint "760秒等于 " & Second2HNM(264017)
- Function Second2HNM(ABC)
- CK = ""
- If Not ABC\60\60\24=0 Then CK = CK & (ABC\60\60\24)&"天"
- If Not (ABC\60\60 mod 24)=0 Then CK = CK & (ABC\60\60 mod 24)&"小时"
- If Not (ABC\60 Mod 60)=0 Then CK = CK & (ABC\60 Mod 60)&"分"
- If Not (ABC mod 60)=0 Then CK = CK & (ABC mod 60)&"秒"
- Second2HNM = CK
- End Function
复制代码 调试输出结果:- 脚本 我的脚本1.Q ,第3行:3天1小时20分17秒
复制代码 代码2:模拟mod- 秒=264017
- 天 = (秒 - 得出余值(秒, 86400)) / 86400
- 剩余时间=秒-(86400*天)
- 时 = (剩余时间 - 得出余值(剩余时间, 3600)) / 3600
- 剩余时间=秒-(86400*天)-(3600*时)
- 分 = (剩余时间 - 得出余值(剩余时间, 60)) / 60
- 剩余时间 = 秒 - (86400 * 天) - (3600 * 时) - (60 * 分)
- 秒 = 剩余时间
- TracePrint 天
- TracePrint 时
- TracePrint 分
- TracePrint 秒
- Function 得出余值(Var1, Var2)
- Do
- If Var1 - Var2 < Var2 Then
- Exit Do
- Else
- Var1=Var1-Var2
- End If
- Loop
- 得出余值=Var1 - Var2
- End Function
复制代码 调试输出结果:- 脚本 我的脚本1.Q ,第9行:3
- 脚本 我的脚本1.Q ,第10行:1
- 脚本 我的脚本1.Q ,第11行:20
- 脚本 我的脚本1.Q ,第12行:17
复制代码 衍生:[最小下注次数]'1.5.25.50.100 金额=5051 Call 下注(金额, 100) Call 下注(金额, 50) Call 下注(金额,25) Call 下注(金额, 5) Call 下注(金额,1) Sub 下注(金额, 注额) If 剩余 = "" Then 剩余= 金额 End If Do If 剩余>= 注额 Then TracePrint "点击"&注额&"一次" 剩余 = 剩余 -注额 Else Exit Do End If Loop End Sub
|