Office中国论坛/Access中国论坛

标题: 求助：怎么获得一个月的首末日期？ [打印本页]

作者: slywolf 时间: 2005-3-27 02:03
标题: 求助：怎么获得一个月的首末日期？
A、B、C文本控件，都是日期型的。A的格式为yyyy-m，B、C的格式是yyyy-m-d。

我希望在A中输入月份后，B自动得到该月的首日，C得到该月的末日。

例如，A中输入2004-2，B显示2004-2-1，C显示2004-2-28。

B、C的代码应该怎么写？请大家帮忙。谢谢

作者: 情比金坚 时间: 2005-3-27 05:45
'求月末日期

Function 月末(日期 As Date) As Date

月末 = DateSerial(Year(日期), Month(日期) + 1, 0)

End Function '求月初日期

Function 月初(日期 As Date) As Date

月初 = 日期 - Day(日期) + 1

End Function

Function 月初(日期 As Date) As Date

　　月初 = CDate(FORMat(日期, "yyyy-m-1"))

作者: slywolf 时间: 2005-3-28 01:59
谢谢。我去试试。

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