设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

返回列表 发新帖
查看: 864|回复: 8

Excel挑战Access第二十六期:数值转日期

[复制链接]

点击这里给我发消息

发表于 2016-6-26 10:48:25 | 显示全部楼层 |阅读模式
在录入日期的时候,总是有同学手贱喜欢用“伪日期”来冒充“真日期”,于是就有批量转换的麻烦了。


Excel中,这种转换简直是秒杀,而且方法也是多种多样,那,Access呢?

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

点击这里给我发消息

发表于 2016-6-26 21:20:47 | 显示全部楼层
献一下丑,Access可以用万能的Format:
CDate(Format("20160626","0000-00-00"))

点击这里给我发消息

发表于 2016-6-27 16:59:35 | 显示全部楼层
这题让小宝抢到了
我还以为 Roych手快呢?
小妖最近又要兴风作浪了? 看来又是连续出题的节奏!

点击这里给我发消息

发表于 2016-6-27 17:00:32 | 显示全部楼层
这题用VBA也可以,不过用VBA有点大材小用了, 还是小宝的方法来得简单。

点击这里给我发消息

 楼主| 发表于 2016-6-27 18:02:13 | 显示全部楼层
只有Format和VBA,没别的招了?

点击这里给我发消息

 楼主| 发表于 2016-6-28 15:37:27 | 显示全部楼层
要解决这个问题,VBA自然是不用说了……

  1. Sub Sample()
  2. Dim i As Long
  3. For i = 2 To 9
  4.     Cells(i, 2) = CDate(Format(Cells(i, 1), "0-00-00"))
  5. Next
  6. End Sub
复制代码

点击这里给我发消息

 楼主| 发表于 2016-6-28 15:39:58 | 显示全部楼层
设置单元格格式也可以

不过这样出来的结果终究还是数值,还需要剪贴板粘贴一次才能变成真正的日期。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

点击这里给我发消息

 楼主| 发表于 2016-6-28 15:50:23 | 显示全部楼层
至于函数的解法嘛,我就不多列了……
  1. =--TEXT(A2,"0-00-00")
  2. =DATE(LEFT(A3,4),MID(A3,5,2),RIGHT(A3,2))
  3. =--(LEFT(A4,4)&"-"&MID(A4,5,2)&"-"&RIGHT(A4,2))
  4. =--REPLACE(REPLACE(A5,5,0,"-"),8,0,"-")
复制代码

点击这里给我发消息

 楼主| 发表于 2016-6-28 15:52:06 | 显示全部楼层
最后,一个大招:数据分列(不是人格分裂,也不是性格分裂)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐上一条 /6 下一条

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2019-6-27 15:59 , Processed in 0.106607 second(s), 40 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表