求大神。

  那个选择的三角标怎么弄出来啊，求助

大佬们，求助啊，那个日期怎么才能显示出来，

Combo1

DTP***

[此贴子已经被作者于2018-6-21 23:59编辑过]

用ComboBox控件，代码：
Private Sub Form_Load()
  Combo1.AddItem "2012/6/29"
  Combo1.ListIndex = 0
End Sub

ComboBox控件，使用循环得到几年的日期，然后选择需要的日期：

Private Sub Form_Load()
Combo1.Clear
Dim AA As Integer, BB As Integer
AA = 2016: BB = Year(Date)    '年份初值可以根据你的需要修改，终值是当年的年份
For I = AA To BB
    For J = 1 To 12
    If I = BB And J > Month(Date) Then Exit For    '当年的月份是现在的月份
        For K = 1 To 31
            If J = 2 And I Mod 4 = 0 And K = 30 Then Exit For '闰年是29天
            If J = 2 And I Mod 4 <> 0 And K = 29 Then Exit For '非闰年是28天
            If (J = 4 Or J = 6 Or J = 9 Or J = 11) And K = 31 Then Exit For     '4、6、9、11是小月，只有30天
            If I = BB And J = Month(Date) And K > Day(Date) Then Exit For   '日期最大是当天的日期
            Combo1.AddItem I & "/" & J & "/" & K
        Next K
    Next J
Next I
End Sub