2 
    Dim time As String = TimeOfDay.ToString("tt")
    Dim time2 As Integer = TimeOfDay.ToString("hh:mm:ss")
    If time = ("du.") Then
        timehre = (time2 + 12)
        Debug.WriteLine("munkaidoben")
    Else
        Debug.Write("munkaidoben = false")
        timehre = time
    End If

    For munkaido As Integer = 13 To 19

        If time2.ToString.Contains(munkaido) Then
            duplaar = False
        Else
            duplaar = True
        End If
    Next

Timehre 已经被声明为整数。所以，我想要什么，以 utc +1 获取时间，如果时间在 13:00 - 19:00 的范围内，则返回一个真正的布尔值，如果它不在13:00 - 19:00 然后返回一个错误的布尔值。

Ps 抱歉英语不好，我希望你能理解我的问题。

4

2 回答 2

0

我最近必须实现类似的目标。这就是我想出的。 

Public Function GetHoursSinceMidnight(ByVal dDateTime As DateTime) As Double
    Dim myTimeSpan As TimeSpan = dDateTime - dDateTime.Date
    Return myTimeSpan.TotalHours
End Function

Public Function IsTimeInRange(ByVal dDateTime As DateTime, ByVal dStartTime As Double, ByVal dEndTime As Double) As Boolean
    Dim dTime As Double = GetHoursSinceMidnight(dDateTime)
    Return dTime >= dStartTime AndAlso dTime <= dEndTime
End Function

因此，要检查当前时间是否在世界标准时间下午 1 点到 7 点之间加上一小时，请致电：

IsTimeInRange(DateTime.Now.ToUniversalTime.AddHours(1), 13, 19)

如果当前时间在下午 1 点到晚上 7 点之间，它将返回 True，如果超出范围，则返回 False。

于 2016-11-13T11:15:38.767 回答
0

首先，开启Option Strict：

Dim time2 As Integer = TimeOfDay.ToString("hh:mm:ss")
...
For munkaido As Integer = 13 To 19
    If time2.ToString.Contains(munkaido) Then

这是一个很好的例子，说明为什么不使用Option Strict是一个非常糟糕的主意，而不是玩具程序。如果时间是“10:45:23”，结果time2将是49！那个是从哪里来的？它是字符串中第一个字符 的ASCII 值。

稍后，代码将测试文本是否"49"包含 13 - 19，这永远不会是真的。随着发生的转换，time2只能在"48"和之间"57"。从语法上讲，它是无效的，因为字符串永远不能包含整数。

不使用Option Strict会导致这种类型的不需要的转换和错误。不要让编译器猜测你的意思：
工具 -> 选项 -> 项目和解决方案 -> VB 默认值 -> 选项严格打开

您的代码并没有真正测试时间是否在一个范围内，只是测试 13-19 是否出现在字符串中的某个位置。如果分钟或秒是这些值之一，它将验证。

不要使用字符串进行DateTime操作。该DateTime类型具有您可以使用的全套属性：

Dim dt = DateTime.Now

If dt.Hour >= 13 AndAlso (dt.Hour <= 18 OrElse
                         (dt.Hour = 19 AndAlso dt.Minute = 0)) Then
    Return True
Else
    Return False
End If

代码测试时间是否在 13:00 和 19:00 之间，而不仅仅是小时，以便检测 19:01 或 19:59，它们是第 19 小时，但分钟放在 19:00 之后，小时和分钟检查。

我不确定 UTC 是如何发挥作用的，但这也很容易使用DateTime方法：

Dim dt = DateTime.Now.ToUniversalTime()

添加一个小时：

Dim dt = DateTime.Now.ToUniversalTime.AddHours(1)
于 2016-11-12T14:19:06.387 回答