Office中国论坛/Access中国论坛

标题: 关于日期的自定函数 [打印本页]

作者: zxbjyp 时间: 2005-10-21 00:47
标题: 关于日期的自定函数
小弟的目的　是将一个日期　比如说　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

作者: 一点通 时间: 2005-10-21 01:11
试下这样行不行date1 = format(date,"yyyy-mm") & "-1"

作者: zxbjyp 时间: 2005-10-21 01:56
可以　谢谢！！

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