如何规范年月日格式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何规范年月日格式

共有2608人关注过本帖树形打印复制链接主题：如何规范年月日格式

ZJZK2018

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

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

如何规范年月日格式 发帖心情

Post By：2023/9/29 23:25:00 [只看该作者]

1，在数据导入时年月日写法不规范，如何统一规范，如：

2022年9月5日 2023/09/8 2022.8.9 2023-9

统一为 2022-09-05 2023-09-08 2022-08-09 2023-09-01 自动增加01

2，下面多了“\”如何删除

Dim str As String = "2023-10-22 09:30"

Dim st() As String

st = str.Split(" ")

For i As Integer = 0 To st.Length - 1

Output.Show(st(i).Trim())

Output.Show(String.Join("\", st)) '显示：2023-10-22\\\09:30 红色\\不要

[此贴子已经被作者于2023/9/30 0:12:10编辑过]

wyz20130512

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

等级：六尾狐帖子：1249 积分：9480 威望：0 精华：0 注册：2013/5/12 9:22:00

Post By：2023/10/1 19:43:00 [只看该作者]

Dim str As String = "2023-10-22 09:30"

'先删除多余的空格

str = str.Trim()

For i As Integer = str.Length To 2 Step - 1 '此处不能顺着循环

Dim s As New String(" ", i)

str = str.Replace(s, " ")

Dim st() As String

st = str.Split(" ")

For i As Integer = 0 To st.Length - 1

Output.Show(st(i).Trim())

Output.Show(String.Join("\", st))

wyz20130512

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

等级：六尾狐帖子：1249 积分：9480 威望：0 精华：0 注册：2013/5/12 9:22:00

Post By：2023/10/1 19:46:00 [只看该作者]

如果数据源是Excel中的数据，可以先用PQ清洗数据，得到规范的日期格式后，再导入。

主题：如何规范年月日格式