[求助]日期的格式能更改吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2302人关注过本帖树形打印复制链接主题：[求助]日期的格式能更改吗？

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这样子的，我把它复制的日期的列里复制不来，碰到这种问题该怎么办？

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/9 20:48:00 [只看该作者]

放一个字符列存放你的 20170206

然后datacolchanged事件写代码

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

jick0526

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：715 积分：6677 威望：0 精华：0 注册：2016/6/27 17:56:00

Post By：2017/3/9 20:56:00 [只看该作者]

完美解决，谢谢老师！

jick0526

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110813 积分：564003 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/5/2 8:42:00 [只看该作者]

If e.DataCol.name = "第一列" Then

If e.NewValue.length = 8 Then

Dim d As Date

Dim s As String = e.NewValue.Insert(6,"-").Insert(4,"-")

If Date.TryParse(s,d) Then

e.DataRow("第二列")= d

Else

msgbox("无效日期格式: " & s)

End If

下一主题 >> << 上一主题

主题：[求助]日期的格式能更改吗？