Ai, da. Det er jo det samme jeg skulle ha, det hadde jeg trodd skulle fungere.
Da er det mulig jeg må sende CultureInfo.
Prøv dette, da.
Sub Main(ByVal params As Object)
Dim devRef As Integer = 3915
Dim postnummer As Integer = 4026
Dim url As String = "https://www.posten.no/levering-av-post-2020/_/component/main/1/leftRegion/1?postCode=" & postnummer
Dim source As String = ""
Try
Using client As New System.Net.WebClient
client.Headers.Add("x-requested-with", "XMLHttpRequest")
client.BaseAddress = url
source = client.DownloadString(url)
End Using
Dim json = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Object)(source)
Dim output As String = ""
For i As Integer = 0 To json("nextDeliveryDays").Count - 2
output &= json("nextDeliveryDays")(i).ToString & "<br>"
Next
output &= json("nextDeliveryDays")(json("nextDeliveryDays").Count - 1).ToString
Dim nestePostdag As Date = DateTime.Parse((json("nextDeliveryDays")(0).ToString.ToLower).Replace("i morgen", "").Replace("i dag", ""), New System.Globalization.CultureInfo("nb-NO"))
Dim dagerTilPost As Integer = nestePostdag.Date.Subtract(Now.Date).Days
hs.SetDeviceValueByRef(devRef, dagerTilPost, True)
hs.SetDeviceString(devRef, output, False)
Catch ex As Exception
hs.SetDeviceValueByRef(devRef, -1, True)
hs.SetDeviceString(devRef, "Feil: " & ex.Message, False)
End Try
End Sub
... da skal "value" bli 1.