VBA将dd.mm.yy格式文本转为Date类型却得到时间值的问题

今天帮团队测试新的Excel Add-In时踩了个坑，特意整理成解决方案分享给大家：

问题场景 #

在Windows 10德语区域设置、Excel 2016的环境中，我们的VBA插件需要搜索首列里格式为dd.mm.yy（德语标准短日期格式）的文本，然后用内置函数转换为Date类型。比如当单元格值cellValue为"05.04.18"时，执行这段代码：

Dim targetDate as Date: targetDate = CDate(cellValue)

结果完全出乎意料——targetDate的值居然变成了05:04:18（时间格式），根本不是我们预期的2018年4月5日。

问题根源 #

这是系统区域设置对VBACDate函数的影响导致的。在德语区域中，.同时被用作日期分隔符和时间分隔符，当输入的字符串是两位年份的短日期格式时，CDate会产生歧义：它把05.04.18误判成了小时.分钟.秒的时间格式，最终将日期转换成了时间值。

修复方案 #

我们放弃了依赖区域设置的CDate，改用更精准的自定义解析方式，直接按dd.mm.yy的格式拆分字符串，再用DateSerial构建日期：

Dim targetDate As Date
Dim dayPart As Integer, monthPart As Integer, yearPart As Integer

' 按格式拆分字符串获取日、月、年
dayPart = CInt(Left(cellValue, 2))
monthPart = CInt(Mid(cellValue, 4, 2))
yearPart = 2000 + CInt(Right(cellValue, 2)) ' 处理两位年份，默认补2000前缀

' 构建符合预期的日期
targetDate = DateSerial(yearPart, monthPart, dayPart)

这种方法完全不依赖系统区域设置，彻底避免了格式歧义，转换结果也完全符合需求。

内容的提问来源于stack exchange，提问作者Manuel H.