Office中国论坛/Access中国论坛

标题: 求助：如何设置日期为当前月1日？？？ [打印本页]

作者: SUQUANJIN 时间: 2007-1-20 19:35
标题: 求助：如何设置日期为当前月1日？？？
高手们，最近我做了一个仓库的进出存。MDB，要查询时输入开始日期和结束日期，我想把开始日期默认为“每个月的1日”，我想请帮一下要怎么样设置才可以？？

谢谢各位

作者: myszh 时间: 2007-1-20 19:38
Public Function 月末(日期 As Date) As Date
月末 = DateSerial(Year(日期), Month(日期) + 1, 0)
End Function
Public Function 月初(日期 As Date) As Date
月初 = 日期 - Day(日期) + 1
End Function
[em01]

作者: SUQUANJIN 时间: 2007-1-21 00:14
多谢了

作者: andymark 时间: 2007-1-21 05:11
Format(date(), "yyyy-m-1")

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