Ahoj, mám problém s částí kódu, snažím se rozchodit živé dlaždice v jedné mé aplikaci a neumím si poradit s tímhle kódem:
Dim tileUpdater = TileUpdateManager.CreateTileUpdaterForApplication()
Dim plannedUpdated = tileUpdater.GetScheduledTileNotifications()
Dim now As DateTime = DateTime.Now
Dim planTill As DateTime = now.AddHours(4)
Dim updateTime As DateTime = New DateTime(now.Year, now.Month, now.Day, now.Hour, now.Minute, 0).AddMinutes(1)
If plannedUpdated.Count > 0 Then
updateTime = plannedUpdated.[Select](Function(x) x.DeliveryTime.DateTime).Union(New () {updateTime}).Max()
End If
chyba je v části: updateTime = plannedUpdated.[Select](Function(x) x.DeliveryTime.DateTime).Union(New () {updateTime}).Max()
(označeno kurzívou, tučně a podtržené, jinak závorka za New)
je to přeložené z C#, originál je:
updateTime = plannedUpdated.Select(x => x.DeliveryTime.DateTime).Union(new [] { updateTime }).Max();
Děkuji za pomoc
Maros