设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 4218|回复: 8
打印 上一主题 下一主题

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

[复制链接]

点击这里给我发消息

跳转到指定楼层
1#
发表于 2016-6-26 10:48:25 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
在录入日期的时候,总是有同学手贱喜欢用“伪日期”来冒充“真日期”,于是就有批量转换的麻烦了。


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

本帖子中包含更多资源

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

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

9#
 楼主| 发表于 2016-6-28 15:52:06 | 只看该作者
最后,一个大招:数据分列(不是人格分裂,也不是性格分裂)

本帖子中包含更多资源

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

x

点击这里给我发消息

8#
 楼主| 发表于 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,"-")
复制代码

点击这里给我发消息

7#
 楼主| 发表于 2016-6-28 15:39:58 | 只看该作者
设置单元格格式也可以

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

本帖子中包含更多资源

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

x

点击这里给我发消息

6#
 楼主| 发表于 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
复制代码

点击这里给我发消息

5#
 楼主| 发表于 2016-6-27 18:02:13 | 只看该作者
只有Format和VBA,没别的招了?

点击这里给我发消息

4#
发表于 2016-6-27 17:00:32 | 只看该作者
这题用VBA也可以,不过用VBA有点大材小用了, 还是小宝的方法来得简单。

点击这里给我发消息

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

点击这里给我发消息

2#
发表于 2016-6-26 21:20:47 | 只看该作者
献一下丑,Access可以用万能的Format:
CDate(Format("20160626","0000-00-00"))
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-25 08:25 , Processed in 0.093281 second(s), 38 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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