Dim mToDate As Date = DateTime.Now.AddHours(24 - DateTime.Now.Hour)Всё равно забеги берутся и со следующих суток.
Где то в другом месте надо ограничивать время.
Добавлено 03 September 2015 - 13:36
Dim mToDate As Date = DateTime.Now.AddHours(24 - DateTime.Now.Hour)Всё равно забеги берутся и со следующих суток.
Добавлено 04 September 2015 - 11:01
Sub TodaysRaces() Try Dim strCatalogue As String = GetMarketCatalogue() Dim objJson = JsonConvert.DeserializeObject(Of MarketCatalogue)(strCatalogue) Dim intNofRaces As Integer = nudNumOfRaces.Value Dim i As Integer = 0 Dim strMkt As String = "" tvMarkets.Nodes.Clear() tvMarkets.Nodes.Add(New TreeNode("Забеги сегодня")) 'Перебираем сегодняшние забеги For i = 0 To intNofRaces - 1 With objJson.Result(i) 'Берём время и дату забега Dim TimeRun As DateTime = .MarketStartTime 'Вычисляем и объявляем конец суток по дате забега Dim mToDate As Date = DateTime.Now.AddHours(24 - DateTime.Now.Hour) 'Вводим ограничение по времени на добавляемые забеги в tvMarkets If TimeRun < mToDate Then 'Подгоняем время под свой часовой пояс. Добавил три часа ко времени BetFair TimeRun = DateAndTime.DateAdd(DateInterval.Hour, 3, TimeRun) 'Окончательное время забега .MarketStartTime = Format(TimeRun, "H:mm") 'Составляем строку с инфой по забегу strMkt = i + 1 & " " & .MarketStartTime.ToString("HH:mm") & " " & .EventInfo.MeetingName & " " & .RaceType & " " & " " & .MarketId 'Добавляем в контрол tvMarkets tvMarkets.Nodes(0).Nodes.Add(New TreeNode(strMkt)) End If End With Next tvMarkets.Nodes(0).Expand() Catch ex As Exception Static oops As Integer = nudNumOfRaces.Value nudNumOfRaces.Value = oops - 1 Exit Sub txtLog.Text = "Tree Problem" & vbCrLf & ex.Message Exit Sub End Try End SubСпасибо всем за помощь.
Добавлено 04 September 2015 - 13:07
Alexs, on 04 September 2015 - 11:01, сказал:
Добавлено 04 September 2015 - 13:36
Отредактировано Alexs, 04 September 2015 - 13:38.
Добавлено 04 September 2015 - 13:56
Alexs, on 04 September 2015 - 13:36, сказал:
Добавлено 04 September 2015 - 14:04
Добавлено 04 September 2015 - 14:06
Alexs, on 04 September 2015 - 13:36, сказал:
Цитата
Dim objJson = JsonConvert.DeserializeObject(Of MarketCatalogue)(strCatalogue)напишем так
Dim objJson = JsonConvert.DeserializeObject(Of MarketCatalogue)(strCatalogue, Formatting.Indented, New JsonSerializerSettings { DateTimeZoneHandling = DateTimeZoneHandling.Gmt })
Добавлено 04 September 2015 - 14:14
denvb, on 04 September 2015 - 14:06, сказал:
Dim objJson = JsonConvert.DeserializeObject(Of MarketCatalogue)(strCatalogue)напишем так
Dim objJson = JsonConvert.DeserializeObject(Of MarketCatalogue)(strCatalogue, Formatting.Indented, New JsonSerializerSettings { DateTimeZoneHandling = DateTimeZoneHandling.Gmt })
Добавлено 04 September 2015 - 14:27
denvb, on 04 September 2015 - 14:06, сказал:
Dim objJson = JsonConvert.DeserializeObject(Of MarketCatalogue)(strCatalogue)напишем так
Dim objJson = JsonConvert.DeserializeObject(Of MarketCatalogue)(strCatalogue, Formatting.Indented, New JsonSerializerSettings { DateTimeZoneHandling = DateTimeZoneHandling.Gmt })
Ошибка 1 "DateTimeZoneHandling" является типом и не может использоваться как выражение. Ошибка 2 "Gmt" не является членом "Newtonsoft.Json.DateTimeZoneHandling".
Отредактировано Alexs, 04 September 2015 - 14:32.
Добавлено 04 September 2015 - 14:32
Alexs, on 04 September 2015 - 14:14, сказал:
Отредактировано denvb, 04 September 2015 - 14:39.
Добавлено 04 September 2015 - 14:44
denvb, on 04 September 2015 - 14:32, сказал:
Отредактировано Alexs, 04 September 2015 - 14:53.
Добавлено 04 September 2015 - 14:55
Alexs, on 04 September 2015 - 14:44, сказал:
Цитата
Отредактировано denvb, 04 September 2015 - 14:56.
Добавлено 04 September 2015 - 15:02
Отредактировано Alexs, 04 September 2015 - 15:12.
Добавлено 05 September 2015 - 10:31
Dim intNofRaces As Integer = objJson.Result.CountМелочь а приятно.
Отредактировано Alexs, 05 September 2015 - 10:38.
Добавлено 05 September 2015 - 12:45
Alexs, on 04 September 2015 - 14:14, сказал:
Добавлено 05 September 2015 - 21:12
Добавлено 06 September 2015 - 09:38
d_electric, on 05 September 2015 - 21:12, сказал: