如何通过DateAdd从TextBox添加日期时间？解决类型不匹配错误

你的错误根源在于直接对字符串形式的日期和时间做加法，同时没有把TextBox的文本内容转换成VBA能识别的数值/日期类型。

正确实现代码 #

可以先把起始日期定义为日期变量，再分别将TextBox的输入转换为有效类型后累加：

Dim baseDate As Date
Dim daysToAdd As Long
Dim timeToAdd As Date

' 初始化固定起始时间
baseDate = #1/1/2022 00:00:00#

' 转换输入内容为对应类型
daysToAdd = CLng(Me.TextBox1.Value) ' 天数转长整型
timeToAdd = CDate(Me.TextBox2.Value) ' 时间转日期类型

' 先累加天数，再累加时间
Range("A1").Value = DateAdd("d", daysToAdd, baseDate) + timeToAdd

或者更简洁的写法：

' 直接转换并计算
Range("A1").Value = DateAdd("d", CLng(Me.TextBox1.Value), #1/1/2022#) + CDate(Me.TextBox2.Value)

额外建议：添加输入验证 #

为了避免用户输入无效内容导致报错，可以加上简单的错误处理：

On Error Resume Next
Dim daysToAdd As Long
Dim timeToAdd As Date
daysToAdd = CLng(Me.TextBox1.Value)
timeToAdd = CDate(Me.TextBox2.Value)

If Err.Number <> 0 Then
    MsgBox "请输入有效的数字天数和标准时间格式（如HH:MM:SS）"
    Exit Sub
End If
On Error GoTo 0

' 执行计算
Range("A1").Value = DateAdd("d", daysToAdd, #1/1/2022#) + timeToAdd

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