Office中国论坛/Access中国论坛

标题: 如何简便地获得某月（不一定是当月）最后一天？ [打印本页]

作者: xryacc2 时间: 2009-12-25 20:18
标题: 如何简便地获得某月（不一定是当月）最后一天？
本帖最后由 xryacc2 于 2009-12-25 21:08 编辑

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

作者: t小宝 时间: 2009-12-25 21:34
假设cobyear为年，cobmoth为月，下法可取月最后一天
DateAdd("m", 1, DateSerial([cobyear], [cobmoth], 1))-1

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

作者: t小宝 时间: 2009-12-26 10:11
3# xryacc2

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

作者: asklove 时间: 2009-12-26 10:24
好方法，学习一下

作者: chaojianan 时间: 2009-12-26 10:25
http://ryan888.5d6d.com/thread-16274-1-1.html

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)