VBA日期格式化异常求助：日期生成格式混乱引发错误

你的代码里存在两个核心问题：日期文本被系统区域设置错误解析，以及FirstDateRead/LastDateRead从未被实际赋值覆盖，一直停留在初始默认值。咱们一步步来解决：

1. 解决日期格式识别混乱的问题 #

Excel自动识别日期时会依赖系统区域设置，像07-JUN-17这种格式很容易因为区域差异把日和年份搞混。要强制按指定格式解析，咱们可以手动拆分日期字符串并构建正确的日期：

先写一个自定义解析函数，确保dd-mmm-yy格式的文本被正确转换：

Function ParseCustomDate(dateText As String) As Date
    Dim parts() As String
    parts = Split(UCase(dateText), "-")
    
    ' 将月份缩写转为数字（比如JUN→6）
    Dim monthNum As Integer
    monthNum = Month(DateValue("1-" & parts(1) & "-2000"))
    
    ' 处理两位年份：默认把17识别为2017而非1917，可按需调整
    Dim yearNum As Integer
    yearNum = 2000 + CInt(parts(2))
    
    ParseCustomDate = DateSerial(yearNum, monthNum, CInt(parts(0)))
End Function

用这个函数解析日期，就能确保07-JUN-17被精准转换成2017-06-07，不会出现日/年颠倒的情况。

2. 修复FirstDateRead未被更新的问题 #

看你的代码，FirstDateRead和LastDateRead只做了初始化：

FirstDateRead = DateSerial(YearA + 1, 1, 1)
LastDateRead = DateSerial(YearA, 1, 1)

但后续没有任何代码给这两个变量赋实际的业务日期值，所以它们一直停留在初始的2018-1-1（假设YearA是2017）。你需要加入逻辑，把实际读取到的日期赋值给它们，比如：

' 示例：从指定单元格读取日期文本并解析
Dim firstReadText As String
firstReadText = Range("FirstReadDateCell").Value
FirstDateRead = ParseCustomDate(firstReadText)

' 同理处理LastDateRead
Dim lastReadText As String
lastReadText = Range("LastReadDateCell").Value
LastDateRead = ParseCustomDate(lastReadText)

只有给这些变量赋了实际的业务日期，后续写入单元格时才会显示符合预期的结果。

3. 优化单元格日期写入逻辑 #

建议先给单元格赋值真正的日期类型，再设置显示格式，这样Excel会把它当作日期而非文本处理，避免后续计算或筛选出问题：

' FirstDateBill 写入示例
Report.Cells(LineNum, 5).Value = FirstDateBill ' 先赋值日期类型
Report.Cells(LineNum, 5).NumberFormat = "dd-mmm-yy" ' 再设置统一显示格式

' 同理处理其他日期列
Report.Cells(LineNum, 6).Value = LastDateBill
Report.Cells(LineNum, 6).NumberFormat = "dd-mmm-yy"

Report.Cells(LineNum, 7).Value = FirstDateRead
Report.Cells(LineNum, 7).NumberFormat = "dd-mmm-yy"

Report.Cells(LineNum, 8).Value = LastDateRead
Report.Cells(LineNum, 8).NumberFormat = "dd-mmm-yy"

把这些修改整合到你的代码里，就能解决日期识别错误和变量未更新的问题了。

内容的提问来源于stack exchange，提问作者user9730643