Foxtable(狐表) → 用户栏目 → 专家坐堂 → 时间转换问题


  共有1649人关注过本帖树形打印复制链接

主题：时间转换问题
帅哥哟，离线，有人找我吗？
rjh4078
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		时间转换问题  发帖心情 Post By：2017/9/10 15:59:00 [只看该作者]

请问下像世界协调时间格式的时间如何转换为标准的本地时间？
date: 2015-08-29T12:00:00+08:00

另外本地时间如何转换成世界协调时间格式的时间？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/10 16:50:00 [只看该作者]

 不同的地方有不同的本地时间。你要转换成哪个时区的本地时间？
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2017/9/10 17:04:00 [只看该作者]

北京时间；
一个转成北京时间；一个将北京时间转成GMT时间，
[此贴子已经被作者于2017/9/10 17:05:00编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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")

 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2017/9/10 17:35:00 [只看该作者]

老师发现一个奇怪问题
看图 json文件里的格式是gmt的 但是取出来就成了普通的
图片点击可在新窗口打开查看此主题相关图片如下：tim截图20170910173317.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/10 18:10:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/10 18:13:00 [只看该作者]

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

 

 你可以把cint改成val
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3355 积分：24732 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2017/9/10 18:53:00 [只看该作者]

按理说我做了isnot nothing 的判断应该不执行这个代码吧？

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询