| 
                                    
                                    
                                    
                                    
                                    
                                    
                                    
                                     
                                        
                                     
                                    
                                        
                                        - 超级版主
 
                                        
                                        - 1228894
 
                                        - 27060
 
                                        - 25
 
                                        - 8236 朵
 
                                        - 36314 个
 
                                        - 4931 个
 
                                        - 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  
                        
                     
                    
                    
                    
                    
                    
                    
                    
                    
                        
                        
                     
                     |