• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[已解决] 无法对比时间 [复制链接]

1#
安卓版,我按下面这样子写出来之后无法对比时间,但是把“Dim 部落战时 = ReadUIConfig("输入框4")和Dim 部落战分 = ReadUIConfig("输入框5")”改成“Dim 部落战时 = 19和Dim 部落战分 = 20”后就可以比较了

源码:
If DateTime.WeekDay() = 2 or DateTime.WeekDay() = 4 or DateTime.WeekDay() = 6 Then
Dim 部落战时 = ReadUIConfig("输入框4")
Dim 部落战分 = ReadUIConfig("输入框5")
If DateTime.Hour() = 部落战时 Then
If 部落战分 - 1 = DateTime.Minute() or 部落战分 = DateTime.Minute() or 部落战分 + 1 = DateTime.Minute() or 部落战分 + 2 = DateTime.Minute() or 部落战分 + 3 = DateTime.Minute() or 部落战分 + 4 = DateTime.Minute() or 部落战分 + 5 = DateTime.Minute() or 部落战分 + 6 = DateTime.Minute() or 部落战分 + 7 = DateTime.Minute() or 部落战分 + 8 = DateTime.Minute() or 部落战分 + 9 = DateTime.Minute() or 部落战分 + 10 = DateTime.Minute() Then
TracePrint "开始"
End If
End If
End If

界面:
输入框:
{
名称:"输入框4",
提示内容:"提示用户应该输入什么内容",
初始文本:"",
仅输入数字:false,
密码:false,
文字大小:0,
最大输入长度:0,
高度:0,
宽度:0,
注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性"
},
输入框:
{
名称:"输入框5",
提示内容:"提示用户应该输入什么内容",
初始文本:"",
仅输入数字:false,
密码:false,
文字大小:0,
最大输入长度:0,
高度:0,
宽度:0,
注释:"初始文本、文字大小、最大输入长度、高度、宽度是可选属性,如需使用默认值,可保持值为0或直接删除此属性"
},

2#

,
  1. Dim 部落战时 = ReadUIConfig("输入框4"):Dim 部落战时 = int( 部落战时)'读取的是字符串,转换为数值才能对比
复制代码

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 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[可加]
发新话题 回复该主题