vba统一日期格式

yaozong · 发表于 2013-11-4 17:34

lpzxhjp 发表于 2013-11-4 15:34
老师您好！能不能将1楼附件和26楼附件结合为一个附件一起解决？谢谢

赵老师的29楼附件已结合了,很好用!

yjh_27 · 发表于 2013-11-4 21:47

将不规则的日期统一化　规范化

可直接用

楼上中文请测试一十二十三

自定义函数运用更灵活

lpzxhjp · 发表于 2013-11-5 10:53

yaozong 发表于 2013-11-4 17:34
赵老师的29楼附件已结合了,很好用!

谢谢老师！！！

lpzxhjp · 发表于 2013-11-5 11:03

本帖最后由 lpzxhjp 于 2013-11-5 11:07 编辑

yjh_27 发表于 2013-11-4 21:47
将不规则的日期统一化　规范化

可直接用

谢谢，非常感谢！

澈澈澈 · 发表于 2013-11-5 11:41

我就来试试看，能不能回复

lpzxhjp · 发表于 2013-11-5 16:28

本帖最后由 lpzxhjp 于 2013-11-5 16:41 编辑

yjh_27 发表于 2013-11-4 21:47
将不规则的日期统一化　规范化

可直接用

测试中发现以下问题：
二○0三年柒月贰日
二○一三年11月23日
二0一3年12月八日
以上这几种不能转换，提示“zf = CDate(zfa)”类型不匹配，究其原因，最后的“日”字替换成了“/”,麻烦你再看看，谢谢,我加入了zf = Replace(zf, "日", "")，你看是否可行！

yjh_27 · 发表于 2013-11-5 17:19

lpzxhjp 发表于 2013-11-5 16:28
测试中发现以下问题：
二○0三年柒月贰日
二○一三年11月23日

可以那样解决.

但最好
For i = 0 To UBound(fzf)
zfa = zfa & grr(i) & IIf(fzf(i) = "", 0, fzf(i))
Next

可兼容日期+时间格式

yjh_27 · 发表于 2013-11-5 18:52

或者
zfa = zfa & grr(i) & Val(fzf(i))

lpzxhjp · 发表于 2013-11-5 18:54

yjh_27 发表于 2013-11-5 17:19
可以那样解决.

但最好

再次谢谢你，不过还是有问题：1、代码对空单元格同样运行，结果是2000-1-1，我想让代码在空单元格中不运行；
2、当把arr的单元格区域设定为selection时，如果整列选择就会死循环。
请你帮我看看，怎样解决，谢谢！

yjh_27 · 发表于 2013-11-5 19:05

lpzxhjp 发表于 2013-11-5 18:54
再次谢谢你，不过还是有问题：1、代码对空单元格同样运行，结果是2000-1-1，我想让代码在空单元格中不运行 ...

加一句
Function zifu2date(zf)
If zf = "" Then zifu2date = "": Exit Function

		自动登录	找回密码
密码			免费注册

[求助] vba统一日期格式