输入字符串的格式不正确。 Date.ToShortTimeString

Question

嗨，有人可以帮我这个代码吗？我的错误是（“输入字符串格式不正确”）

my lblmonin.text有（“hh：mm：ss”）格式 和lblmonout.text（“hh：mm：ss”）格式

Dim TimeA As Date Dim TimeB作为日期 昏暗......作为整数 昏暗mm作为整数 Dim ss As Integer

    'Calculation for Monday
    If Not Date.TryParse(lblmonin.Text, TimeA) Then
    End If
    If Not Date.TryParse(lblmonout.Text, TimeB) Then
    End If
    hh = TimeB.Subtract(TimeA).Hours
    mm = TimeB.Subtract(TimeA).Minutes
    ss = TimeB.Subtract(TimeA).Seconds

    Dim span As New TimeSpan
    span = TimeSpan.Parse(TimeB.ToShortTimeString) - TimeSpan.Parse(TimeA.ToShortTimeString)
    lblmontotal.Text = span.ToString

Answer 1

TimeSpan.Parse会抛出FormatException，因为它不接受DateTime.ToShortTimeString返回的字符串格式（包括AM / PM指示符）。

只需减去两个日期：

span = TimeB - TimeA