Vb.net 最近几点?

Vb.net 最近几点?,vb.net,time,compare,Vb.net,Time,Compare,嗯,伙计们,我有一个关于(美食时报)的项目,好吗? 我有5次吃东西 (上午,中午,日落,夜间,午夜) 上午:03:20 中午:下午12:05 日落:下午3:46 晚上:晚上7:33 午夜:晚上8:28 现在我需要放计时器来检查 它将当前时间与数组时间匹配 如果他发现阵列的任何时间与PC的当前时间一致,他将显示一条消息 实际上,我做了一些努力并编写了代码 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handl

嗯,伙计们,我有一个关于(美食时报)的项目,好吗? 我有5次吃东西

上午中午日落夜间午夜


  • 上午:03:20
  • 中午:下午12:05
  • 日落:下午3:46
  • 晚上:晚上7:33
  • 午夜:晚上8:28

现在我需要放计时器来检查 它将当前时间与数组时间匹配 如果他发现阵列的任何时间与PC的当前时间一致,他将显示一条消息


实际上,我做了一些努力并编写了代码

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    Dim TimesArray() As String = {"03:20 AM", "12:05 PM", "03:46 PM", "07:33 PM", "08:28 PM"}
    Dim NamesArray() As String = {"Morning", "Midday", "Sunset", "Night", "Midnight"}
    Dim time = DateTime.Now.TimeOfDay
    Dim q = TimesArray.Select(Function(t, i) New With {.Time = DateTime.Parse(t).TimeOfDay, .I = i}).Select(Function(d) New With {d.Time, .Diff = If(d.Time >= time, d.Time - time, New TimeSpan(24, 0, 0) + d.Time - time), d.I})
    Dim m = q.Min(Function(d) d.Diff)
    Dim r = q.First(Function(d) d.Diff = m)
    MsgBox("Food" & " " & NamesArray(r.I) & " " & "After" & " " & r.Diff.Hours & " " & "Hour" & " " & "and" & " " & r.Diff.Minutes & " " & "Minutes.")
End Sub
它可以100%工作,但需要Net Fremwork 3.5中的System.Linq.dll,因为有选择功能 这就是为什么我想要一些不需要这个功能的东西(选择
并且不需要Net fremwork 3.5中的System.Linq.dll,这应该是您想要的。在每个计时器滴答声中,子进程都会遍历数组,并根据数组检查当前时间,时间差小于0小时0分钟,此时会显示messagebox

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    Dim TimesArray() As String = {"03:20 AM", "12:05 PM", "03:46 PM", "07:33 PM", "08:28 PM"}
    Dim NamesArray() As String = {"Morning", "Midday", "Sunset", "Night", "Midnight"}

    For i As Integer = 0 To TimesArray.Count - 1
        Dim tempDateTime As Date = Date.Parse(TimesArray(i))
        Dim tempTimeDiff As TimeSpan = tempDateTime.Subtract(DateTime.Now)
        If tempTimeDiff.Hours = 0 And tempTimeDiff.Minutes = 0 Then
            MessageBox.Show("Food " & NamesArray(i) & " After " & tempDateTime.Hour & " and " & tempDateTime.Minute & " Minutes.")
        End If
    Next
End Sub

你试过什么,有什么问题吗。显示问题或错误所在的代码。不幸的是,正如所写,这只是一个要求,而不是编程问题。如前所述,我们需要了解具体情况,因此请编辑您的问题,以显示您尝试过的内容、遇到的问题、预期输出、实际输出、错误等。否则,这可能会被视为“太宽泛”或“不清楚您在问什么”我现在编辑我的帖子你已经改变了你的问题,但是你仍然没有向我们展示你已经做出了任何努力来实现这些要求。因此,这不是一个教程网站或代码编写网站。这是为了帮助解决具体问题。如果您还没有尝试编写任何代码,那么您还没有遇到任何特定的问题。请阅读,然后。好的,兄弟,我编辑我的帖子现在看这不是我需要的“我需要放置计时器来检查它是否匹配当前时间和数组时间如果他发现数组的任何时间与PC的当前时间一致,他会显示一条消息”需要澄清。