VB.NET计算DateTime时间差并格式化显示的报错求助

一、BC30311错误的根源 #

你代码里New DateTime(22, 17, 53)用错了构造函数——这个重载是DateTime(年份, 月份, 日期)，22被当成年份，17作为月份（超出1-12的合法范围），导致DateTime对象初始化异常，间接引发了看似矛盾的“TimeSpan无法转TimeSpan”错误。

二、完整可行的实现代码 #

1. 读取日志文件，提取开始/结束时间 #

先读取日志内容，匹配Process started和Process completed行，提取时间字符串并解析成DateTime：

Imports System.IO
Imports System.Text.RegularExpressions
Imports System.Globalization

Public Class TimeHelper
    Public Shared Function ExtractProcessTimes(logFilePath As String) As (startTime As DateTime, endTime As DateTime)
        ' 匹配时间的正则表达式
        Dim startRegex As New Regex("Process started (\d{4}/\d{2}/\d{2} \d{2}:\d{2}:\d{2})")
        Dim endRegex As New Regex("Process completed (\d{4}/\d{2}/\d{2} \d{2}:\d{2}:\d{2})")
        
        Dim startStr As String = Nothing
        Dim endStr As String = Nothing

        ' 逐行读取日志，找到目标时间就停止
        For Each line In File.ReadAllLines(logFilePath)
            If startStr Is Nothing Then
                Dim match = startRegex.Match(line)
                If match.Success Then startStr = match.Groups(1).Value
            End If
            If endStr Is Nothing Then
                Dim match = endRegex.Match(line)
                If match.Success Then endStr = match.Groups(1).Value
            End If
            If startStr IsNot Nothing AndAlso endStr IsNot Nothing Then Exit For
        Next

        ' 严格按格式解析时间，避免区域设置影响
        Dim startTime = DateTime.ParseExact(startStr, "yyyy/MM/dd HH:mm:ss", CultureInfo.InvariantCulture)
        Dim endTime = DateTime.ParseExact(endStr, "yyyy/MM/dd HH:mm:ss", CultureInfo.InvariantCulture)

        Return (startTime, endTime)
    End Function

2. 计算时间差 #

直接用DateTime相减得到TimeSpan，无需额外的Subtract方法：

Public Shared Function CalculateDuration(startTime As DateTime, endTime As DateTime) As TimeSpan
        Return endTime - startTime
    End Function

3. 格式化时长并弹窗显示 #

安全格式化TimeSpan，拼接字符串后用MessageBox展示：

Public Shared Sub ShowDuration(logFilePath As String)
        Dim (startTime, endTime) = ExtractProcessTimes(logFilePath)
        Dim duration = CalculateDuration(startTime, endTime)
        Dim durStr As String

        Try
            ' VB.NET中格式化TimeSpan时，冒号需要用反斜杠转义
            durStr = duration.ToString("hh\:mm\:ss")
            ' 或者用String.Format：durStr = String.Format("{0:hh\:mm\:ss}", duration)
        Catch ex As FormatException
            durStr = "Invalid Format"
        End Try

        Dim displayStr = $"Time diff {durStr} for {vbCrLf}"
        MessageBox.Show(displayStr)
    End Sub

4. 调用方式 #

在你的项目中直接调用即可：

' 替换成你的日志文件路径
ShowDuration("C:\Logs\process-log.txt")

三、注意事项 #

• 用DateTime.ParseExact代替Parse，确保时间格式完全匹配，不会因系统区域设置出错。
• TimeSpan格式化时，冒号必须转义（\:)，否则会被识别为格式分隔符导致错误。
• 找到两个时间后提前退出循环，提升大日志文件的读取效率。

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