Question

VB中如何实现时间的自动加减

一个text，一个label，一个combo
如何实现在text中输入一个时间，在combo中选择一个时间加成，在label中自动生成加成后的时间？
例如在text中输入08：00，在combo中选择15分钟，如何让label显示为08:15？

Answer 1

Private Sub Command2_Click()
Dim strH As String
Dim strM As String
Dim date1 As Date
Dim date2 As Date
Dim msg As String
msg = Format(Now, "YYYY-MM-DD")
msg = msg & " " & Text1.Text
date1 = CDate(msg)
date2 = DateAdd("n", CLng(Combo1.Text), date1)
Label1.Caption = Format(date2, "HH:MM")
End Sub

追问

1、如果不适用command呢
2、如果combo的条目里写上15分钟 这样的单位，该如何给条目赋值呢？
万分感谢

追答

如果不适用command，也可以直接把代码放在Combo1_Click事件过程中。这样更方便。
Private Sub Combo1_Click()
Dim strH As String
Dim strM As String
Dim date1 As Date
Dim date2 As Date
Dim msg As String
msg = Format(Now, "YYYY-MM-DD")
msg = msg & " " & Text1.Text
date1 = CDate(msg)
date2 = DateAdd("n", CLng(Combo1.Text), date1)
Label1.Caption = Format(date2, "HH:MM")
End Sub

你的第二问内容不明确，无法回答你。

Answer 2

DateAdd 函数示例
本示例先取得一个日期，再用 DateAdd 函数显示未来数月后的日期。

Dim FirstDate As Date ' 声明变量。
Dim IntervalType As String
Dim Number As Integer
Dim Msg
IntervalType = "m" ' "m"指定以“月份”作为间隔。
FirstDate = InputBox("Enter a date")
Number = InputBox("Enter number of months to add")
Msg = "New date: " & DateAdd(IntervalType, Number, FirstDate)
MsgBox Msg