TimeOfDay.Hour сравнение

[Invader]

Обращаюсь к XML документу,
+<vetka1 day=25 hour=14>
+<vetka2 day=25 hour=20>
+<vetka3 day=26 hour=02>
опустив детали документа, я опишу проблему. Я в программе вывожу содержимое ветки, соответствующей текущему времени:
для этого я определяю значение day и hour из xml
затем отправляю на сравнение

Код: Выделить всё

If TimeOfDay.Hour <= hour Andalso Date.Today.Day <= day Then
                      textbox1.text=soderjimoevetki
                Exit For
End If


и всё работает, но наступает момент , скажем системное время 21 час... и код логично, не находит ветви больше по времени.
Как мне объяснить машине, что в контексте времени суток, 02 больше 21???

[FireFenix]

Как мне объяснить машине, что в контексте времени суток, 02 больше 21???

Код: Выделить всё

If Date.Today.Day < day Then
    TextBox1.Text = soderjimoevetki
    Exit For
ElseIf Date.Today.Day = day
    If TimeOfDay.Hour <= hour Then
        TextBox1.Text = soderjimoevetki
        Exit For
    End If
End If


Вообще для это придумали тип DateTime

[Invader]

переменные day, hour ,были у меня стринговые немного заменил код

Код: Выделить всё

  If Date.Today.Day <= CInt(day) Then
                    If TimeOfDay.Hour <= CInt(hour) Then


но всё равно ветку не находит
попробую через DateTime

[Invader]

Код: Выделить всё

If DateTime.Now.Day <= CInt(day) Then
                    If DateTime.Now.Hour <= CInt(hour) Then


ничего не меняет, по прежнему
понимаю, что надо привести переменную CInt(hour) до и после полуночи, но как это сделать

[FireFenix]

ничего не меняет, по прежнему

Может потому, что ты не использовал, то что я написал?

Код: Выделить всё

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer

        Dim Day As New List(Of String)
        Day.Add("25")
        Day.Add("25")
        Day.Add("26")
        Day.Add("27")

        Dim Hour As New List(Of String)
        Hour.Add("10")
        Hour.Add("11")
        Hour.Add("01")
        Hour.Add("15")

        Dim DayNow As Integer = Date.Today.Day
        Dim HourNow As Integer = TimeOfDay.Hour

        For i = 0 To Day.Count - 1
            If DayNow < Convert.ToInt32(Day(i)) Then
                Console.WriteLine("Selected = Day " & Day(i) & " | Hour " & Hour(i))
                Exit For
            ElseIf DayNow = Convert.ToInt32(Day(i)) Then
                If HourNow <= Convert.ToInt32(Hour(i)) Then
                    Console.WriteLine("Selected = Day " & Day(i) & " | Hour " & Hour(i))
                    Exit For
                End If
            End If
        Next

Выведет:

Код: Выделить всё

Selected = Day 26 | Hour 01

[Invader]

ну из приведенного примера, ключевым я понимаю конструкцию начала условия

Код: Выделить всё

If Date.Today.Day < Convert.ToInt32(Day(i)) Then
                Console.WriteLine("Selected = Day " & Day(i) & " | Hour " & Hour(i))
                Exit For
            ElseIf Date.Today.Day= Convert.ToInt32(Day(i)) Then
                If TimeOfDay.Hour  <= Convert.ToInt32(Hour(i)) Then


ниже разве не тоже самое(по прежнему не работает)

Код: Выделить всё

If Date.Today.Day <= Convert.ToInt32(day) Then
                    If TimeOfDay.Hour <= Convert.ToInt32(hour) Then


и ещё вопрос,
почему такая арифметика работает
при текущем времени 21:30
и значении TextBox1.Text = 22:00
выдаёт 00:30
и не работает при значении TextBox1.Text = 02:00 тоесть не находит подтверждения 21:30 < 02:00

Код: Выделить всё

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f As DateTime = (TextBox1.Text.ToString)
        Dim s As DateTime = (DateTime.Now.Hour.ToString + ":00")
        If s <= f Then
            Label1.Text = (f - s).ToString
        End If
        'Label1.Text = f
    End Sub


в vb6 21:30 < 02:00 выражение верно

[FireFenix]

ниже разве не тоже самое(по прежнему не работает)

Код: Выделить всё

If Date.Today.Day <= Convert.ToInt32(day) Then
                    If TimeOfDay.Hour <= Convert.ToInt32(hour) Then


Это же очевидно! Что при дне большем текущего - время сравнивать не нужно.
Но так же в твоём условии если день больше, то время только после текущего, что не врено

и ещё вопрос,
почему такая арифметика работает при текущем времени 21:30
и не работает при значении TextBox1.Text = 02:00

Эта "арифметика"?
Почему? Используй отладчик Люк!

[Invader]

Используй отладчик Люк!

как его запустить, в смысле -где он?

[FireFenix]

Используй отладчик Люк!

как его запустить, в смысле -где он?

Слева кода есть некоторое место, тыкаешь мышкой, и вся строка выделяется красным цветом. (Или же через ПКМ выбрать Set Breakpoint)
запускаешь код и на этом месте останавливается во время выполнения.
на панели инструментов ещё можно потыкать на Step In/Step Out
если во время останова навести мышкой на переменную - высветится её значения
и ещё можно из контекстного меню найти Watch, Quick Watch и т.д.

[Invader]

про Breakpoint я слышал, не знал что это отладчик люк..
вот что интересное обнаружил оказывается

Код: Выделить всё

Dim f As DateTime = (TextBox1.Text.ToString + ":00")
        Dim s As DateTime = (DateTime.Now.Hour.ToString + ":00")
        If s <= f Then
            Label1.Text = (f - s).ToString 'точка останова
        End If
        Label1.Text = f.ToString
    End Sub


переменная f как и s имеют формат #hh: mm tt# хотя в Label1.Text вижу без AM/PM в нормальной 24 форме

[Invader]

как привести значение для переменой, для дальнейших с ней операций к 24 часовому формату

Код: Выделить всё

Dim f As DateTime = (TextBox1.Text.ToString + ":00")


через TextBox1 передаю значение 02, и получаю f равное 2:00 АМ, а как же присвоить значение 02:00
пробовал TextBox1.Text.ToString("HH:mm") но выдаёт ошибку: Не удалось привести тип объекта "System.String" к типу "System.IFormatProvider".

[Qwertiy]

1. Многократное использование Date.Today при сравнении сожет приводить к неверному результату.
2. Использование Date.Today в цикле может приводить к неверному результату.
3. 2:00 АМ - это абсолютно то же самое, что и 02:00.
4. Надо проверять день меньше или (день равен и время меньше).
5. Мне лень разбираться в куче кода тут.
6. TextBox1.Text.ToString - зачем тут ToString? К тому же, это функция.

[Invader]

3. 2:00 АМ - это абсолютно то же самое, что и 02:00.

оно ясно, только программа считает 21:00 больше чем02:00, что для меня (Лично!) ложно. В vb6 time и переменная variable с лёту определяла 21:00 меньше 02:00 в контексте даты, а в версии .НЕТ мне предлагается DateTime.Now.Hour -интежер и для этого значения конечно сравнивать 21 и 02, очевидно прога выдаст 21 > 02
так вот дорогая редакция, с уважением прислушиваясь к советам, и всё равно сделав по своему.
я пришел к выводу, что надо сравнивать не часы, а более полную дату и проблема устраняется. Вот мой вариант:

Код: Выделить всё

Dim h0 As Date
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        h0 = DateAndTime.Now
        Label1.Text = h0
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim t1 As Date = (Date.Now.Day.ToString + "." + Date.Now.Month.ToString + "." + Date.Now.Year.ToString + " " + TextBox1.Text + ":00")
        If DateTime.Compare(t1, h0) > 0 Then
            Label1.Text = "заданое время > now на " + (t1 - h0).ToString
        Else
            Label1.Text = "now > заданое время на " + (h0 - t1).ToString
        End If
    End Sub


добавлю, xml документ передает мне дни в порядке возрастания - сортировать не надо, и помимо дня, также передает месяц и год, но в примере выше я указал общий принцип, если в распоряжении есть только данные о часах

[iGrok]

оно ясно, только программа считает 21:00 больше чем02:00, что для меня (Лично!) ложно.

Ну, значит привыкай, что твои "личные" ощущения не всегда совпадают с реальностью. И лучше переучивай личные ощущения, потому что реальность-то тебе всё равно не изменить.
В контексте суток, 02:00 меньше, чем 21:00.

В vb6 time и переменная variable с лёту определяла 21:00 меньше 02:00 в контексте даты

Не верю. vb6 под рукой нет, но в vba всё правильно - 02:00 меньше 21:00.

[Qwertiy]

Dim t1 As Date = (Date.Now.Day.ToString + "." + Date.Now.Month.ToString + "." + Date.Now.Year.ToString + " " + TextBox1.Text + ":00")

Какого чёрта?!
1. А если кто-нибудь запустит эту программу в такой момент, когда поменяется месяц или год?
2. Date.Now.ToString("d.M.yyyy ") + TextBox1.Text + ":00", но это тоже не годится по пункту 3.
3. Такое формирование строки не может гарантировать верное декодирование при других региональных параметрах.
4. Есть гораздо более простой, быстрый и надёжный способ: Date.Today.AddHours(CInt(TextBox1.Text))!
5. В твоём случае вообще надо использовать h0.Date.AddHours(CInt(TextBox1.Text)), а не Date.Now или Date.Today, т. к. потом ты выводишь разницу с h0.

If DateTime.Compare(t1, h0) > 0 Then

Можно написать If t1 > h0 Then.

PS: VB.NET поддерживает &. Почему ты используешь +?

[Qwertiy]

Ещё способ забыл: New Date(h0.Year, h0.Month, h0.Day, CInt(TextBox1.Text), 0, 0). Есть подозрение, что этот вариант самый подходящий в твоём случае.

добавлю, xml документ передает мне дни в порядке возрастания - сортировать не надо, и помимо дня, также передает месяц и год, но в примере выше я указал общий принцип, если в распоряжении есть только данные о часах

Вообще-то, xml для того и существует, чтобы можно было передавать данные в произвольном порядке, с целью возможности лёгкой модификации формата данных (без негативных последствий для использующей стороны). Как-то криво сформулировал, надеюсь, что понятно.

В vb6 time и переменная variable с лёту определяла 21:00 меньше 02:00 в контексте даты

Не верю. vb6 под рукой нет, но в vba всё правильно - 02:00 меньше 21:00.

Invader, я тоже не верю. Покажи код.

[Invader]

PS: VB.NET поддерживает &. Почему ты используешь +?

по привычке, ближе под рукой

Invader, я тоже не верю. Покажи код.

в контексте даты -я имел виду что сравниваются не часы а полный формат: 25.06.2010 21:00 сравнивается с текущим,наступившим 26.06.2010 02:00 моментом

Ещё способ забыл: New Date(h0.Year, h0.Month, h0.Day, CInt(TextBox1.Text), 0, 0). Есть подозрение, что этот вариант самый подходящий в твоём случае.

да максимально исчерпывающе

и кусок XML документа, возможно, до боли, многим знакомого:
<FORECAST day="27" month="12" year="2011" hour="14" tod="2" predict="0" weekday="3">
<PHENOMENA cloudiness="3" precipitation="10" rpower="0" spower="0"/><PRESSURE max="759" min="757"/>
<TEMPERATURE max="11" min="9"/>
<WIND min="3" max="5" direction="6"/>
<RELWET max="72" min="70"/>
<HEAT min="8" max="10"/></FORECAST>
gismeteo.ru
условие вышло лаконичнее при сравнении полного формата даты и времени -одна строчка условия,
не жели проверка, как в моём первом случае: только часов -всё работало, пока не встречался час меньше, и с осмыслением этого, проверять отдельно дни и проверять ещё и часы

[Qwertiy]

в контексте даты -я имел виду что сравниваются не часы а полный формат: 25.06.2010 21:00 сравнивается с текущим,наступившим 26.06.2010 02:00 моментом

Ну так это и на VB.NET так же получится

[Invader]

где тему закрыть и тыкнуть плюсик за старание и желание, мне помочь - неучу.
ссылки на webmany и космобаксы непредлогать

[1Steps]

я пришел к выводу, что надо сравнивать не часы, а более полную дату и проблема устраняется.