VB问题：如何将组合框ComboBox里头的数字转成年月日？

关于组合框的VB题，求大神解答啊~~

这个问题，先将ComboBox中的数字全部保存到数组，利用数组进行操作应该方便一些。
Private Sub Command1_Click()
Dim a() As Long
ReDim a(Combo1.ListCount - 1)
For i = 0 To Combo1.ListCount - 1
a(i) = CLng(Combo1.List(i)) '将Combo1中的值全部装入数组a()
Next
Dim m As Long, mi As Integer
Dim n As Long, ni As Integer
Dim t As Long
m = CLng(Combo1.List(0))
n = m
mi = 0
ni = 0
For i = 1 To Combo1.ListCount - 1
If CLng(Combo1.List(i)) > m Then m = CLng(Combo1.List(i)): mi = i 'm 为数组中的最大值
If CLng(Combo1.List(i)) < n Then n = CLng(Combo1.List(i)): ni = i 'n 为数组中的最小值
Next
t = a(ni)
a(ni) = a(0)
a(0) = t '将数组中的最小值与数组元素(0)处的值交换
t = a(mi)
a(mi) = a(UBound(a))
a(UBound(a)) = t '将数组中的最大值与数组元素中最后一个值交换
Combo1.Clear '将COmbo1清空
For i = 0 To UBound(a) '重新将数组a()添加到Combo1中
Combo1.AddItem a(i)
Next
Combo1.Text = Combo1.List(0)
End Sub

第一句：组合框combo0更改时
第二句：定义strsql为字符串格式
第三句：如果组合框combo0不等于空值
第四句：设置strsql=部门工资统计查询中所有值条件是：部门ID的值=combo0中选定的值
第五句：endif 结束假设
第六句：部门统计子窗体数据源=strsql,从而实现子窗体中显示的值为部门ID=combo0中的值

先添加一个Combo4
Combo4.text = Combo3.text + "/" + Combo1.text + "/" + Combo2.text

我介意你不要用这个列表框因为这个太麻烦了，你用那个MonthView好了如果你要变成02/23/2008 这种形式的话那你你就用Format函数把它转换过来就可以了！

---

VB问题：如何将组合框ComboBox里头的数字转成年月日？视频