我有一个程序,必须计算每小时滑板的成本。用户应该选择租金时间和返回时间。所以!我做了一个功能。
Private Function ElapsedTime(ByVal dtmEarly As DateTime, ByVal dtmLate As DateTime) As Integer
Dim timeDiff As TimeSpan = dtmLate - dtmEarly
Return Math.Abs(timeDiff.Hours)
End Function
所以我选择10:00:00 PM租用时间和12:00:00 AM返回时间,只需2小时就可以了!
所以我的timeDiff.Hours在最后返回 - = 22。
任何人都可以帮助我吗?只有我遇到问题。谢谢!
答案 0 :(得分:0)
我几天前在另一个问题上尝试过这种问题,这可以帮助您解决问题。这里我使用了MaskedTextBox,你也可以使用DateTimePicker控件。
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim stTime() As String
Dim endTime() As String
stTime = Split(MaskedTextBox1.Text, ":")
endTime = Split(MaskedTextBox2.Text, ":")
Dim startTime As TimeSpan = New TimeSpan(Val(stTime(0)), Val(stTime(1)), Val(stTime(2)))
Dim PresentTime As TimeSpan = New TimeSpan(Val(endTime(0)), Val(endTime(1)), Val(endTime(2)))
Dim difTime As TimeSpan = PresentTime - startTime
MessageBox.Show(String.Format("You are already {0}hour(s) {1}minute(s) {2}second(s) late.", difTime.Hours, difTime.Minutes, difTime.Seconds))
End Sub
希望它可以帮到你。
答案 1 :(得分:0)
我将要做的并且似乎正在工作的是,我将添加自定义格式,以便用户选择他们想要返回电路板的那一天。非常感谢你的帮助!