倒计时时钟开发问题：计算时间差时出现类型转换异常

核心问题原因 #

你遇到的System.InvalidCastException是因为**Label.Text要求字符串类型，但Subtract方法返回的是TimeSpan值类型，无法直接隐式转换为字符串**，必须显式将TimeSpan转换为可读的字符串格式。同时你的时间计算逻辑存在小问题：TimeOfDay.Date仅获取当天的00:00:00，不是当前的完整时间，应该用DateTime.Now获取实时时间。

修正后的代码示例 #

' 明确变量类型，避免变体类型的隐式转换问题
Dim Span3 As TimeSpan
' 将DateTimePicker选择的时间与今日日期结合，得到当天的目标开始时间
Dim targetStartTime As DateTime = DateTime.Today.Add(Aa4.Value)
' 获取当前完整时间（日期+时间）
Dim currentTime As DateTime = DateTime.Now

' 计算当前时间到目标开始时间的间隔
Span3 = targetStartTime.Subtract(currentTime)

' 处理倒计时为负的情况（当前时间已过设定的开始时间）
If Span3.TotalMilliseconds < 0 Then
    Label4.Text = "已过开始时间"
Else
    ' 自定义格式显示时分秒（格式符里的冒号需要转义）
    Label4.Text = Span3.ToString("hh\:mm\:ss")
End If

关键细节说明 #

• 显式转换TimeSpan：调用ToString()方法可以直接将TimeSpan转为默认格式的字符串，也可以传入自定义格式字符串（如"hh\:mm\:ss"）来控制显示样式。
• 时间逻辑修正：DateTime.Today.Add(Aa4.Value)确保你得到的是当天的目标开始时间，避免因DateTimePicker默认包含日期（即使显示为HH:mm）导致的计算错误。
• 负数处理：如果当前时间已经超过设定的开始时间，TimeSpan会是负数，需要添加判断逻辑提示用户，避免显示乱码或负的时间值。

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