datediff函数怎么用？
我建了两个控件数组combo1和combo2,一个控件label1然后写了如下代码运行后老显示#a#部分缺少表达式。
Private Sub Combo1_Click(Index As Integer)
a = CDate(Combo1(0).Text / Combo1(1).Text / Combo1(2).Text)
b = CDate(Combo2(0).Text / Combo2(1).Text / Combo2(2).Text)
Label1.Caption = DateDiff("d",#a#, #b#)
End Sub
就算建立变量数组安a(2)和b(2)和combo控件一一对应，然后把#a#和#b#改成#a(0)/a(1)/a(2)#形式还是老样子，是什么问题（VB6.0）
解决方法
我晕！我来告诉你你怎么编：
Private Sub Combo1_click(index as integer)
dim a as date,b as date
a=DateSerial(val(Combo1(0).Text),val(Combo1(1).Text),val(Combo1(2).Text))
b=DateSerial(val(Combo2(0).Text),val(Combo2(1).Text),val(Combo2(2).Text))
'DateSerial函数：把年月日合成日期；
'语法：DateSerial(year,month,dey)，其中year为年，month为月，
'day为日，均为整型；
'返回值：Date类型的日期
Label1.caption=DateDiff("d",a,b)
End sub
