你好
我正在尝试使用 VB 解决问题,我需要一些帮助。我对这门语言很陌生(1 周)。问题是我创建了一个用户表单来显示两个不同时间之间已经过去了多少小时和分钟,类似于时间表。
用户表单由两个日历组成,每个日历下有两个文本框;每个盒子记录他们离开的小时和分钟,另外两个盒子记录他们回来的时间。
我已经使用代码将日历一起减去(例如日历输入 - 日历输出),然后将其乘以 24 以指示距离的小时数。然后在日历下我有一个文本框供用户输入他们离开的时间。然后我按小时减去 24,例如,如果它是 24 -15,它将显示为 9(当天的 9 小时),然后我会将其添加到他们插入到文本框 Hour in(返回时间)中的数字中。例如 14。然后我会将它们加到一起,例如 9 + 14 = 23 并将其显示在另一个文本框 Total Hours 中。因此它将显示 23 表示 23 小时。
然后我想显示另外两个文本框来指示分钟。一个代表分钟出来然后分钟。
我有转换这些分钟的问题,例如,如果外出时间是 15:50,而第二天的时间是 15:55,它显示为 24(在一个文本框中)和 105 分钟(在另一个文本中)盒子)。我想将分钟添加到小时中,并将剩余分钟的余额放在分钟文本框中。这应该显示 24(在一个文本框中)和 5(在另一个文本框中)。
最终目的是获得显示一个人缺席数天、数小时和数分钟的结果,例如,2天、5小时和10分钟。关于如何修改代码以实现此目的的任何想法?
这是我的代码。
请帮忙
Dim number1 As Date
Dim number2 As Date
Dim number3 As Integer
Dim number4 As Integer
Dim Number5 As Integer
Dim Number6 As Integer
Dim answer As Integer
Dim answer2 As Integer
Dim answer3 As Integer
Dim answer4 As Integer
Dim answer5 As String
number1 = DTPicker1
number2 = DTPicker2
number3 = Txthourout
number4 = TxtHourin
Number5 = TxtMinuteout
Number6 = TxtMinuetIn
answer = number2 - number1
answer2 = answer * 24
answer3 = answer2 - number3
answer4 = answer3 + number4
answer5 = Number5 + Number6
TextBox1.Text = answer4
TextBox2.Text = answer5
End Sub