求助：怎么获得一个月的首末日期？

slywolf

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的代码应该怎么写？请大家帮忙。谢谢

情比金坚

'求月末日期

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

谢谢。我去试试。