求助：如何设置日期为当前月1日？？？

SUQUANJIN

高手们，最近我做了一个仓库的进出存。MDB，要查询时输入开始日期和结束日期，我想把开始日期默认为“每个月的1日”，我想请帮一下要怎么样设置才可以？？

谢谢各位

myszh

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

多谢了

andymark

Format(date(), "yyyy-m-1")