Imports System

Imports System.Linq

Imports System.Collections.Generic

​

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

Imports Newtonsoft.Json.Converters

Imports Newtonsoft.Json.Serialization

​

    Public Module Module1

        Public Sub TestDateParseHandlingNone()

​

            Dim jsonString = "{'REQ_DATE':'2016-01-17T12:27:57','REQ_TYPE':'Vacation','HOURS':500.0,'LEAVE_TIME':'8:00 AM','LEAVE_DATE':'2016-01-23T00:00:00','DUE_TIME':'8:00 AM','DUE_DATE':'2016-01-24T00:00:00'}"

            Dim settings = New JsonSerializerSettings() With { _

                .DateParseHandling = DateParseHandling.None _

            }

            Dim myJsonResult = JsonConvert.DeserializeObject(Of JObject)(jsonString, settings)

            Dim dateValue = myJsonResult("REQ_DATE")

            Dim dateString = CType(dateValue, String) 'Value is 2016-01-17T12:27:57

            Console.WriteLine(dateString)

        End Sub

        Public Sub TestDateParseHandlingDateTime()

​

            Dim jsonString = "{'REQ_DATE':'2016-01-17T12:27:57','REQ_TYPE':'Vacation','HOURS':500.0,'LEAVE_TIME':'8:00 AM','LEAVE_DATE':'2016-01-23T00:00:00','DUE_TIME':'8:00 AM','DUE_DATE':'2016-01-24T00:00:00'}"

            Dim settings = New JsonSerializerSettings() With { _

                .DateParseHandling = DateParseHandling.DateTime _

            }

            Dim myJsonResult = JsonConvert.DeserializeObject(Of JObject)(jsonString, settings)

            Dim dateValue = myJsonResult("REQ_DATE")

            Dim dateString = JsonConvert.SerializeObject(dateValue).Trim(""""c) 'Value is 2016-01-17T12:27:57

​

            Console.WriteLine(dateString)

        End Sub

​

        Public Sub Main()

            TestDateParseHandlingNone()

            TestDateParseHandlingDateTime()

        End Sub

    End Module