VB中如何对文本框输入的特定格式日期进行忽略时间的差值计算

没问题，针对你需要处理带时间的日期输入、仅计算日期差值的需求，我给你整理了具体的实现步骤和代码示例：

核心思路 #

要实现忽略时间的日期相减，关键是先把带时间的日期字符串解析为DateTime对象，再提取纯日期部分，最后计算差值。

1. 安全解析文本框的日期字符串 #

因为你的输入格式是固定的dd.MM.yyyy HH:mm:ss，直接用DateTime.Parse可能会因为系统区域设置出问题，所以推荐用DateTime.TryParseExact来精准解析，还能处理输入格式错误的情况：

Dim inputDate1 As String = TextBox1.Text
Dim inputDate2 As String = TextBox2.Text

Dim dt1 As DateTime
Dim dt2 As DateTime

' 定义输入的日期格式
Dim dateFormat As String = "dd.MM.yyyy HH:mm:ss"

' 解析第一个日期
If Not DateTime.TryParseExact(inputDate1, dateFormat, Globalization.CultureInfo.InvariantCulture, Globalization.DateTimeStyles.None, dt1) Then
    MsgBox("第一个日期格式不正确，请输入如19.08.2021 14:07:16的格式")
    Return
End If

' 解析第二个日期
If Not DateTime.TryParseExact(inputDate2, dateFormat, Globalization.CultureInfo.InvariantCulture, Globalization.DateTimeStyles.None, dt2) Then
    MsgBox("第二个日期格式不正确，请输入如19.08.2021 14:07:16的格式")
    Return
End If

2. 提取纯日期部分（忽略时间） #

有两种常用方式：

• 方式一：使用DateTime的Date属性（兼容所有VB.NET版本）
  Date属性会返回一个新的DateTime对象，时间部分被设置为00:00:00，相当于只保留日期：

  Dim pureDate1 As DateTime = dt1.Date
  Dim pureDate2 As DateTime = dt2.Date
  

• 方式二：使用DateOnly类型（VB.NET 6.0及以上版本推荐）
  如果你的项目用的是较新的VB.NET版本，DateOnly类型专门用来表示日期，没有时间部分，更贴合需求：

  Dim pureDate1 As DateOnly = DateOnly.FromDateTime(dt1)
  Dim pureDate2 As DateOnly = DateOnly.FromDateTime(dt2)
  

3. 计算日期差值 #

不管用哪种方式提取纯日期，计算天数差的方式都很简单：

' 计算两个日期的天数差（结果可能为正或负，取决于哪个日期更大）
Dim dayDifference As Integer = (pureDate2 - pureDate1).Days

MsgBox($"日期差值为：{dayDifference} 天")

完整代码示例 #

把上面的步骤整合起来，完整的处理代码如下：

Private Sub CalculateDateDifference()
    Dim inputDate1 As String = TextBox1.Text
    Dim inputDate2 As String = TextBox2.Text

    Dim dt1 As DateTime
    Dim dt2 As DateTime
    Dim dateFormat As String = "dd.MM.yyyy HH:mm:ss"

    ' 解析日期
    If Not DateTime.TryParseExact(inputDate1, dateFormat, Globalization.CultureInfo.InvariantCulture, Globalization.DateTimeStyles.None, dt1) Then
        MsgBox("第一个日期格式错误，请输入如「19.08.2021 14:07:16」的格式")
        Return
    End If

    If Not DateTime.TryParseExact(inputDate2, dateFormat, Globalization.CultureInfo.InvariantCulture, Globalization.DateTimeStyles.None, dt2) Then
        MsgBox("第二个日期格式错误，请输入如「19.08.2021 14:07:16」的格式")
        Return
    End If

    ' 提取纯日期（这里用Date属性兼容所有版本）
    Dim pureDate1 As DateTime = dt1.Date
    Dim pureDate2 As DateTime = dt2.Date

    ' 计算差值
    Dim dayDiff As Integer = (pureDate2 - pureDate1).Days
    MsgBox($"两个日期的差值为：{dayDiff} 天")
End Sub

注意：如果dt2早于dt1，差值会是负数，你可以根据需求用Math.Abs(dayDiff)来取绝对值。

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