VB.Net日期验证优化：兼容多格式且限制四位年份

• 核心需求：拒绝三位年份的输入（如5/1/202），仅允许四位年份，同时兼容5/1/2022（单数字日/月）和05/02/2022（双数字日/月）这类格式。

• 优化解决方案：使用DateTime.TryParseExact的多格式重载，将所有允许的格式存入数组，一次调用即可完成验证，避免冗余判断：

Dim ResultDate As DateTime
Dim allowedFormats As String() = {"dd/MM/yyyy", "d/M/yyyy", "d/MM/yyyy", "dd/M/yyyy"}

If DateTime.TryParseExact(UserEnteredDate, allowedFormats, 
                          CultureInfo.InvariantCulture, 
                          DateTimeStyles.None, 
                          ResultDate) Then
    ' 验证通过后的业务逻辑
End If

• 关键说明：

  • 数组覆盖了单/双位日、月的所有组合场景，确保两种格式都能被正确识别。
  • CultureInfo.InvariantCulture保证斜杠/作为日期分隔符的解析不受系统区域设置干扰。
  • 该方法会严格匹配格式，自动排除三位年份的输入，完全符合需求。

• 原代码问题提示：
  原多格式判断可能因重复调用TryParseExact导致逻辑冗余，且容易出现变量覆盖或判断遗漏，使用数组重载的方式更简洁可靠。

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