安卓版,我按下面这样子写出来之后无法对比时间,但是把“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或直接删除此属性"
},