使用DateInterval.Day的混淆输出 [英] Confused output using DateInterval.Day

问题描述

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



-Left数字字符代表小时

-decimal代表分钟

-And最后是dateformat



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

输入1为：3.56

输入2是：21.32 03/13/2014

输出为：1.28 03/14/2014



样本以1位数字格式运行d。当一天是单位错误输出时我的问题是：

输入1是：3.56

输入2是：21.32 03/07/2014

输出为：1.33 03/8/2014





这是我的代码：

'如果分钟达到60

如果Val（TextBox7.Text.Trim.Split（。）（1））> = 60那么

TextBox7.Text = Val（TextBox7 .Text.Trim.Split（。）（0））+ 1&。 &Val（TextBox7.Text.Trim.Split（。）（1） - 60）&&Format（现在，MM / dd / yyyy）

Else

TextBox7.Text =格式（Val（TextBox6.Text）+ Val（Strings.Left（time.Text.Trim，5）），##。00）&Strings.Right（time.Text.Trim ，11）

结束如果



'这是几小时转换，如果分钟达到60

'这里的问题

Dim xDate As Date = Format（CDate（Strings.Right（time.Text.Trim，11）），MM / dd / yyyy）



如果Val（TextBox7.Text.Trim.Split（。）（0））> = 24那么

TextBox7.Text = Val（TextBox7.Text.Trim .Split（。）（0）） - 24&。 &Val（TextBox7.Text.Trim.Split（。）（1））&&DateAdd（DateInterval.Day，1，xDate）

结束如果

I confused why my code is not running the right output consistently, This is computation for date format. And im using military time format

-Left digit character represents hours
-decimal represents minutes
-And last is the dateformat

Sample run with 2 digit day format dd:
Input 1 is: 3.56
Input 2 is: 21.32 03/13/2014
Output is: 1.28 03/14/2014

Sample run with 1 digit day format d. Which is my problem when the day is single digits wrong output:
Input 1 is: 3.56
Input 2 is: 21.32 03/07/2014
Output is: 1.33 03/8/2014


This is My code:
'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

推荐答案

这篇关于使用DateInterval.Day的混淆输出的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！