dim json as string = $"{"year":2022,"month":5,"day":22,"hour":11,"minute":6,"seconds":7,"milliSeconds":589,"dateTime":"2022-05-22T11:06:07.589625","date":"05/22/2022","time":"11:06","timeZone":"Asia/Kolkata","dayOfWeek":"Sunday","dstActive":false}"$
Dim parser As JSONParser
parser.Initialize(json)
Dim jRoot As Map = parser.NextObject
Dim dateTime As String = jRoot.Get("dateTime")
Dim date As String = jRoot.Get("date")
Dim dstActive As String = jRoot.Get("dstActive")
Dim year As Int = jRoot.Get("year")
Dim timeZone As String = jRoot.Get("timeZone")
Dim minute As Int = jRoot.Get("minute")
Dim seconds As Int = jRoot.Get("seconds")
Dim dayOfWeek As String = jRoot.Get("dayOfWeek")
Dim month As Int = jRoot.Get("month")
Dim hour As Int = jRoot.Get("hour")
Dim time As String = jRoot.Get("time")
Dim day As Int = jRoot.Get("day")
Dim milliSeconds As Int = jRoot.Get("milliSeconds")