Imports System

Imports System.Globalization

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Converters

Public Module Module1

        Public Sub Main()

​

            Dim myDate As String = "{""DTO"": ""1900-01-01T00:00:00""}"

​

            Dim settings As New JsonSerializerSettings With {.DateParseHandling = DateParseHandling.None}

            Dim converter As New IsoDateTimeConverter With {.DateTimeStyles = DateTimeStyles.AssumeUniversal}

            settings.Converters.Add(converter)

​

            Dim o = JsonConvert.DeserializeObject(Of MyTest)(myDate, settings)

            Console.WriteLine(o.DTO)

​

        End Sub

​

        Public Class MyTest

​

            Public Property DTO As DateTimeOffset

​

        End Class

​

End Module