根据组合框选择填充日期

Question

我在 ComboBox1 中有两个项目，一个是 Cardio Only，第二个是 Gym Only。
我想根据 Combobox1 selection.

在 TextBox8 中自动填充更新日期

例如
如果我 select“仅限有氧运动”，那么下次更新日期应该是 90 天 + 当前日期或 3 个月 + TextBox8 中的当前日期。
如果我 select “仅限健身房”，那么下次更新日期应该是 30 天 + 当前日期或 1 个月 + TextBox8 中的当前日期。

（以天为单位）
90 + 22/01/2022 = 22/04/2022
30 + 22/01/2022 = 21/02/2022

（以月为单位）
3 + 22/01/2022 = 22/04/2022
1 + 22/01/2022 = 21/02/2022

Answer 1

使用它在当前日期基础上增加 3 个月：

DateAdd("m", 3, Date)

这会将当前日期增加 90 天

DateAdd("d", 90, Date)

请注意，添加天数和添加月份并不总是产生相同的结果，具体取决于月份中的天数。

例如DateAdd("m", 1, #2002/1/30#) 产生 2002/02/28.

但是 DateAdd("d", 30, #2002/1/30#) 产生 2002/03/01。

另请参阅：DateAdd function

Answer 2

Private Sub ComboBox1_Change()

   Dim mth As Long
   Select Case Me.ComboBox1.Value
       Case "GYM ONLY"
           mth = 1
       Case "CARDIO ONLY"
           mth = 3
   End Select
   If mth > 0 Then
       Me.TextBox8 = Format(DateAdd("m", mth, Date), "dd/mm/yyyy")
   End If

End Sub

根据组合框选择填充日期

Populate date based on combobox selection

excel

vba

userform