UI执行问题

huangjue85 · 发表于 2018-12-18 21:34:45

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

[按键精灵] 纯文本查看 复制代码

Dim GHGH=ReadUIConfig("输入框3")       //这里设定界面输入数字

Call 子程序()
sub 子程序()

Dim 结果1,H1,M1,H2,M2,结果2,网络时间1,网络时间2,时差1
    网络时间1=GetNetworkTime()
    H1 = UTF8.Mid(网络时间1, 12, 2)
    M1 = UTF8.Mid(网络时间1, 15, 2)
    结果1 = H1 + M1      

    Do
       ****************
       **********
       **************
       ******** 
            
               网络时间2=GetNetworkTime()
        H2 = UTF8.Mid(网络时间2, 12, 2)
        M2 = UTF8.Mid(网络时间2, 15, 2)       
        结果2 = H2 + M2        
        If H2 - H1 >= 1 Then 
            时差1 = 60 * (H2 - H1) - M1 + M2
        Else 
            时差1 = 结果2 - 结果1            
        End If
    Loop Until 时差1 >=GH 


end sub

请问这样写为什么会报错，提示发生运行时错误！错误代码：2，错误行号：3227，错误信息： attempt to compare string with number

提示的是“ Loop Until 时差1 >=GH ”，这行错误。应该如何更改？

紫猫 · 发表于 2018-12-19 11:42:10

数据类型问题, 字符串不能与数值比较, 改成

Loop Until 时差1 >= CLng(GH)

huangjue85 · 发表于 2018-12-19 13:29:20

懂了~谢谢~♪(^∇^*)

huangjue85 · 发表于 2018-12-19 13:30:42

紫猫发表于 2018-12-19 11:42
数据类型问题, 字符串不能与数值比较, 改成

Loop Until 时差1 >= CLng(GH)

懂了~谢谢~

		自动登录	找回密码
密码			立即注册

[已回复] UI执行问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。