主题：时间转换问题

Dim str As String = "2015-08-29T12:00:00+08:00"

Dim utc As Date = str.SubString(0, 19)
msgbox(utc)
Dim sq As Integer = str.SubString(20, 2)

Dim fh As String = str.SubString(19, 1)
If fh = "+" Then
    utc = utc.addhours(sq)
Else
    utc = utc.addhours(-sq)
End If
msgbox(utc)

 不同的地方有不同的本地时间。你要转换成哪个时区的本地时间？

Dim bjsj As Date = Date.Now
Dim gmt As Date = bjsj.AddHours(-8)
msgbox(format(gmt,"yyyy-MM-ddTHH:mm:ss") & "+08:00")

转换了，你动态加上8小时即可，如 .addHours(8)

 你得到的内容是空值，不能直接转为整数。

 

 你可以把cint改成val

字符串的空值判断，不能用 isnot nothing，要用 = nothing 或者 <> nothing

 

Dim jo As JObject = Jobject.Parse("{""Name"": ""张三"",""age"":""""}")
msgbox(jo("Name"))
msgbox(jo("age"))
msgbox(jo("age").tostring = nothing)
msgbox(cint(jo("age")))