format函数转换日期，无法写成“yyyymmdd”格式怎么办？

phezzan

一些混乱的日期数据，有文本也有日期格式，想要统一整理为日期格式，并求得所属季度。


我用isdate 写了个判断

• For i = 2 To 26
• n = IsDate(Cells(i, 1))          ‘判断是不是日期格式
• If n = False Then
• Cells(i, 7) = Format(Left(Cells(i, 1), 8), "0000-00-00")  ’修改格式为日期格式
• Cells(i, 8) = DatePart("q", Cells(i, 7))  ‘这一行是判断季度
• Else
• Cells(i, 8) = DatePart("q", Cells(i, 1))
• End If
• Next
  

[color=rgb(51, 102, 153) !important]复制代码


遇到几个问题

1、我的format 只能写成“0000-00-00”  这种格式。改成“yyyymmdd”就提示溢出。请问如何写成yyyymmdd的形式？也就是日期格式不要中间的分隔符
2、实际执行中，当n = true  时候，报告 溢出 错误。后续更改过几次，添加了  elseif n = true  或者 else 也不行，依然提示溢出错误。只能添加On Error Resume Next 避免提示。

请问怎么办？

maditate

把你不能转换为你相的日期格式的错误日期放在文件里上传上来，别人有了人的不可转换格式才可能测试帮你转换。

大灰狼1976

1. Cells(i, 7) = Format(DateValue(Format(Left(Cells(i, 1), 8), "0000-00-00")), "yyyymmdd")

复制代码

DevilW

上传附件吧，你的日期格式应该不对