VB中如何提出本月的最后一天日期？？

VB中如何提出本月的最后一天日期？？

解决方案 »

  1.   

    取出当前月，为1就将年减1，月为12；不为1就直接将月减1，然后日设为1号，over！
      

  2.   

    Day(DateSerial(year(date), month(date) + 1, 0))
      

  3.   

    'fxy_2002(阿勇)的得到的是本月的天数，加个Day函数画蛇添足了'本月的最后一天日期如下
    DateSerial(year(date), month(date) + 1, 1 - 1)
    '下个月就是month(date) + 1
    '一号就是1，前一天是1 - 1，直接写为0也可以，但不如这个直观
      

  4.   

    谢谢大家 谢谢mastercyl(淡兰色) 问题解决
      

  5.   

    谢谢 viena(维也纳nn-实心木头人)
    我正是安这方法做的