- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 时间转换问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=106501)
-- 发布时间：2017/9/10 15:59:00
-- 时间转换问题
请问下像世界协调时间格式的时间如何转换为标准的本地时间？
date: 2015-08-29T12:00:00+08:00另外本地时间如何转换成世界协调时间格式的时间？
-- 发布时间：2017/9/10 16:48:00
--
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)
[此贴子已经被作者于2017/9/10 16:55:46编辑过]
-- 发布时间：2017/9/10 16:50:00
--
不同的地方有不同的本地时间。你要转换成哪个时区的本地时间？
-- 发布时间：2017/9/10 17:04:00
--
北京时间；
一个转成北京时间；一个将北京时间转成GMT时间，
[此贴子已经被作者于2017/9/10 17:05:00编辑过]
-- 发布时间：2017/9/10 17:13:00
--
Dim bjsj As Date = Date.Now
Dim gmt As Date = bjsj.AddHours(-8)
msgbox(format(gmt,"yyyy-MM-ddTHH:mm:ss") & "+08:00")
-- 发布时间：2017/9/10 17:35:00
--
老师发现一个奇怪问题
看图 json文件里的格式是gmt的 但是取出来就成了普通的
此主题相关图片如下：tim截图20170910173317.png
此主题相关图片如下：tim截图20170910173317.png-- 发布时间：2017/9/10 18:10:00
--
转换了，你动态加上8小时即可，如 .addHours(8)
-- 发布时间：2017/9/10 18:12:00
--
Dim xml As String = FileSys.ReadAllText(ProjectPath & "xml\\XML sample.xml")
Dim xo As XObject = XObject.Parse(xml)
Dim jo As JObject = Jobject.Parse(xo.ToString())
If jo("inks")("ink") IsNot Nothing Then
For Each jt As JToken In jo("inks")("ink")
If jt("angle").ToString IsNot Nothing Then
output.show(CDbl(jt("angle").ToString))
End If
If jt("lpi").ToString IsNot Nothing Then
output.show(CInt(jt("lpi").ToString))
End If
Next
End If
老师这段转换类型的代码，为什么老是报错?
此主题相关图片如下：tim截图20170910181121.png
-- 发布时间：2017/9/10 18:13:00
--
你得到的内容是空值，不能直接转为整数。
你可以把cint改成val
-- 发布时间：2017/9/10 18:53:00
--
按理说我做了isnot nothing 的判断应该不执行这个代码吧？