关于日期的自定函数

zxbjyp

小弟的目的　是将一个日期　比如说　05-05-25 这个日期　我现在要做月报　我想不输入　05-05-01 而从05-05-25 中用函数取得　该怎么弄　下边这个　不行　请高手帮忙！！

Public Function datezd(date1)

Dim d As Date

Dim s, g, f

Set s = DatePart("yyyy", Date)

Set g = DatePart("m", Date)

date1 = "#" & "s-d-01" & "#"

End Function

一点通

试下这样行不行date1 = format(date,"yyyy-mm") & "-1"

zxbjyp

可以　谢谢！！