如何简便地获得某月（不一定是当月）最后一天？

xryacc2

有两个控件cobyear和cobmonth，当用户各输入或选择一个数值时，获得控件中值的月份的最后一天，这个功能如何最简便的实现呢？比如当用户选取cobyear=2009,cobmoth=2，则当月最后日期为2009-02-28，谢谢。

t小宝

假设cobyear为年，cobmoth为月，下法可取月最后一天
DateAdd("m", 1, DateSerial([cobyear], [cobmoth], 1))-1

xryacc2

非常感谢：t小宝
在你热心地答复我2分钟前，我还得到了另一种方法：与你等共享：
假如yea=cobyear,mon=cbomonth:
DateSerial(yea, mon + 1, 0)

t小宝

3# xryacc2

谢谢，很简洁的方法，很有启发，一直以为月为12时不能再加1，还有日为0竞然也行，
如 DateSerial(2009, 12+ 1, 0) 返回：2009/12/31

asklove

好方法，学习一下

chaojianan

http://ryan888.5d6d.com/thread-16274-1-1.html