Vb.net 使用DateInterval.day混淆输出

我不明白为什么我的代码没有一致地运行正确的输出，这是日期格式的计算。我用的是军用时间格式

• 左数字字符表示小时
• 十进制代表分钟
• 最后是日期格式

2位数日格式dd的样本运行：

Input 1 is: 3.56
Input 2 is: 21.32 03/13/2014
Output is: 1.28 03/14/2014

使用1位数日格式d的样本运行。当一天的输出是个位数错误时，这就是我的问题：

Input 1 is: 3.56
Input 2 is: 21.32 03/07/2014
Output is: 1.33 03/8/2014

这是我的代码：

 'if minutes reach 60            
If Val(TextBox7.Text.Trim.Split(".")(1)) >= 60 Then
  TextBox7.Text = Val(TextBox7.Text.Trim.Split(".")(0)) + 1 & "." & Val  (TextBox7.Text.Trim.Split(".")(1) - 60) & " " & Format(Now, "MM/dd/yyyy")
  Else
TextBox7.Text = Format(Val(TextBox6.Text) + Val(Strings.Left(time.Text.Trim, 5)), "##.00") & Strings.Right(time.Text.Trim, 11)
  End If

'This is for hours convert which if the minutes reach 60
'Problem here
Dim xDate As Date = Format(CDate(Strings.Right(time.Text.Trim, 11)), "MM/dd/yyyy")

 If Val(TextBox7.Text.Trim.Split(".")(0)) >= 24 Then
TextBox7.Text = Val(TextBox7.Text.Trim.Split(".")(0)) - 24 & "." & Val(TextBox7.Text.Trim.Split(".")(1)) & " " & DateAdd(DateInterval.Day, 1, xDate)
End If

---

您可以使用.NET格式：

Console.WriteLine( date.ToString("h:mm dd/MM/yyyy"));

---

有关可用格式的更多详细信息，请参见上

是的，我想因为我在使用Vb.net，我的代码很抱歉，我只是一个来自Java的Vb.net初学者。我是否将此代码Dim xDate替换为Date=Format（CDate（Strings.Right（time.Text.Trim，11）），“MM/dd/yyyy”），并将其更改为该格式？