next pray

`            Dim TimesArray() As String = {"4:21 AM", "12:01 PM", "3:32 PM", "6:30 PM", "8:04 PM"}
            Dim NamesArray() As String = {"FAJER", "DHUHR", "ASR", "MAGHRIB", "ISHIA"}
            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)
            If r.Diff.Hours = 0 Then
                NextPrayName.Text = "NEXT PRAY:" & " " & NamesArray(r.I) & " " & "After" & " " & r.Diff.Minutes + 1 & " " & "Minutes."
            Else
                NextPrayName.Text = "NEXT PRAY:" & " " & NamesArray(r.I) & " " & "After" & " " & r.Diff.Hours & " " & "Hour" & " " & "And" & " " & r.Diff.Minutes + 1 & " " & "Minutes."
            End If`