Question35166060 DateParseHandling.None

VbNet · Console

/Program.vb

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