Question

我确定我遗失的内容很简单，但我不能指责它，我基本上做了一个学校报告数据库，并希望在下拉列表中显示学年，例如＆＃34; 2012 - 2013＆＃34;，我想要显示10年前和2年前进

这是我的代码

Private Sub Combo2_GotFocus()

   For years = -10 To 2
      Me.Combo2.AddItem Format(DateAdd("yyyy", years, Now), "yyyy" & " - " & "yy")
   Next years

End Sub

输出

2004 - 04
2005年 - 05年。。。 2016 - 16（我想要的是2016年 - 17年）

我尝试用增量化的日期变量来代替＆＃34; ＆安培; ＆＃34; YY＆＃34;无济于事

Answer 1

试试这个：

Private Sub Combo2_GotFocus()

   For years = -10 To 2
      Me.Combo2.AddItem Format(DateAdd("yyyy", years, Now), "yyyy") & "-" & Format(DateAdd("yyyy", years + 1, Now), "yy")
   Next years

End Sub

你也可以使用这个：

Dim y As Integer

For years = -10 To 2
    y = Year(Now) + years
    Me.Combo2.AddItem y & "-" & Right(CStr(y + 1), 2)
Next years

想要将变量添加到Format（）String输出

1 个答案: