vb编写简单的时间计算器

发布网友发布时间：2022-05-01 18:45

共4个回答

热心网友时间：2022-06-21 10:44

DateAdd返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。
语法：
DateAdd(interval, number, date)

DateDiff 返回两个日期之间的时间间隔。
语法：
DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])

代码：
Private Sub Command1_Click()
Text2.Text = ""
Text3.Text = ""
Dim a As Date
a = Text1.Text
Text2.Text = DateAdd("h", 5, a)
Text3.Text = DateAdd("h", 18, a)
End Sub

热心网友时间：2022-06-21 10:44

Private Sub Command1_Click()
If Val(Text1.Text) + Val(Text2.Text) < 24 Then
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Else
Text3.Text = (Val(Text1.Text) + Val(Text2.Text)) Mod 24
End If
formant(text1.text,"00.00")
formant(text2.text,"00.00")
formant(text3.text,"00.00")
End Sub
我想大概的思路应该是这样的吧！

热心网友时间：2022-06-21 10:45

DateAdd和DateDiff分别是时间加法函数和时间减法函数。

你的题目主要就用着第一个。

热心网友时间：2022-06-21 10:45

大哥，你肯定不知道DateAdd和DateDiff这2个函数吧？
试下吧，很好用