UI执行问题

huangjue85

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

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   ”，这行错误。应该如何更改？

紫猫

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

Loop Until 时差1 >= CLng(GH)

huangjue85

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

huangjue85

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

Loop Until 时差1 >= CLng(GH)

懂了~谢谢~