=DateSerial(Year(Date()),Month(Date()),1)
#CDate(CStr(Year(date)) & "-" & CStr(Month(Date)) & "-01")#Year(date) 是当前年份，Month(Date)是当前月份，CDate是将字符串数据转换成日期数据的函数。上面语句就可以得到 2018-10-01 的日期数据了。
