使用Select Case处理日期格式文本框遇问题求助

你的代码核心问题出在变量类型和判断逻辑不匹配：

• 你把youm声明成了Date类型，但Date类型变量根本存不了空字符串，当文本框为空时，尝试把空字符串赋值给youm会直接触发「类型不匹配」错误，根本走不到后续的Select Case判断。
• 用Date类型变量去匹配Case ""本身逻辑就不成立，两者类型完全不兼容。

修正方案 #

先拿文本框的原始字符串做判断，确认非空后再转换为日期类型，示例代码如下：

Dim inputText As String
Dim youm As Date

inputText = TextBox1.Value ' 替换成你的文本框名称

Select Case inputText
    Case ""
        MsgBox "请输入日期"
        Exit Sub
    Case Else
        ' 额外验证输入是否为合法日期
        If IsDate(inputText) Then
            youm = CDate(inputText)
            ' 这里写后续处理逻辑
        Else
            MsgBox "请输入有效的日期格式"
            Exit Sub
        End If
End Select

如果只需要判断空值，用If语句会更简洁：

Dim inputText As String
Dim youm As Date

inputText = TextBox1.Value

If inputText = "" Then
    MsgBox "请输入日期"
    Exit Sub
End If

If IsDate(inputText) Then
    youm = CDate(inputText)
    ' 后续处理
Else
    MsgBox "日期格式无效"
End If

关键要点：

• 先用字符串类型接收文本框输入，避免类型不匹配错误
• 必要时用IsDate()函数验证输入是否为合法日期，再转换为Date类型

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