Foxtable(狐表)用户栏目专家坐堂 → [求助]日期的格式能更改吗?


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

主题:[求助]日期的格式能更改吗?

帅哥哟,离线,有人找我吗?
jick0526
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:715 积分:6677 威望:0 精华:0 注册:2016/6/27 17:56:00
[求助]日期的格式能更改吗?  发帖心情 Post By:2017/3/9 20:35:00 [显示全部帖子]

狐爸,请问下,日期的格式比如日2017-02-06能更改成20170206这样的格式吗?因为从其他EXCEL上复制的日期格式是20170206这样子的,我把它复制的日期的列里复制不来,碰到这种问题该怎么办?

 回到顶部
帅哥哟,离线,有人找我吗?
jick0526
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:715 积分:6677 威望:0 精华:0 注册:2016/6/27 17:56:00
  发帖心情 Post By:2017/3/9 20:56:00 [显示全部帖子]

完美解决,谢谢老师!

 回到顶部
帅哥哟,离线,有人找我吗?
jick0526
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:715 积分:6677 威望:0 精华:0 注册:2016/6/27 17:56:00
  发帖心情 Post By:2017/4/30 15:18:00 [显示全部帖子]

If e.DataCol.name = "第一列" Then
 If e.NewValue.length = 8 Then
 Dim d As Date = new Date(e.NewValue.Substring(0,4), e.newvalue.substring(4,2), e.newvalue.substring(6,2))
 e.DataRow("第二列")= d
 End If
End If

老师,这段代码能不能帮我加个错误提示框代码,当格式错误不能转换时,跳出提示框,“您的日期格式错误,不能转换”,代码改怎么写,谢谢!

 回到顶部