请救！！

Dim datetemp As Date
       Text1(0).Text = Day(datetemp)
 Combo2(1)和Combo2(1)都是日期。
  这一句：datetemp = Trim(DateAdd("d", -1, DateAdd("m", 1, DateSerial(CInt(Combo2(0)), CInt(Combo2(1)), -1))))   为什么会出现类型不匹配？

解决方案 »

  1.   

    DateSerial(CInt(Combo2(0)), CInt(Combo2(1)), -1)
    DateSerial(year, month, day)
    DateSerial这个函数是把3个值合成一个日期！请问哪个月有一个-1的日？
    DateSerial(CInt(Combo2(0)), CInt(Combo2(1)), 1)你在里面的DateAdd里把月份加1又在外面的DateAdd里把月份减1求的就是当月的日期！
    不明白你在搞什么啊？
    如果只要当月的第一天你只要datetemp=DateSerial(Year(Date),Month(Date), 1)
    就可以了啊！
      

  2.   

    combo2(0)应该是年，combo2(1)应该是月
    不应该是日期