VBA拆分日期时间函数遇12:00:00 AM无返回值问题求助

问题原因 #

• 你定义的入参strTime是Date类型，直接传入Split函数时会触发隐式字符串转换，转换结果受系统区域日期格式、时间格式规则影响
• 当日期时间值恰好为0点（即12:00:00 AM）时，VBA隐式将Date类型转为字符串时默认会省略时间部分，仅返回日期字符串，Split拆分后数组只有1个元素，访问arrD(1)、arrD(2)就会触发下标越界错误
• 额外隐患：如果系统区域设置的日期格式本身带空格（比如带星期的长日期格式），哪怕非零点场景也会拆分错误，你的实现逻辑本身不稳定，过度依赖字符串转换规则

修复方案 #

方案1（推荐，不受系统格式影响）：用VBA内置日期函数拆分，完全避免字符串操作 #

Function extractDateTime(strTime As Date) As Variant
    ' 直接用内置函数取日期、时间部分，不会受格式影响
    Dim d As Date, t As Date
    d = Int(strTime) ' Date类型本质是Double，整数部分对应日期
    t = strTime - Int(strTime) ' 小数部分对应时间
    extractDateTime = Array(d, t)
End Function

优点：

• 完全适配所有合法日期时间值，包括12:00:00 AM场景
• 不受系统区域、日期格式设置影响，稳定性极强
• 执行效率比字符串拆分更高

方案2（兼容原有字符串拆分逻辑）：强制指定转换格式避免隐式转换问题 #

如果一定要用字符串拆分的方式，可先将日期时间强制转成固定格式的字符串，避免出现拆分后数组长度不足的问题：

Function extractDateTime(strTime As Date) As Variant
  Dim arrD, d As String, t As Date
  ' 强制转成带三部分的固定格式字符串，拆分逻辑不会出错
  arrD = Split(Format(strTime, "yyyy/mm/dd hh:mm:ss AM/PM"), " ")
  d = arrD(0)
  t = CDate(arrD(1) & " " & arrD(2))
  extractDateTime = Array(d, t)
End Function

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