ACCESSVBA集粹

您正在看的acce教程是:ACCEVBA集粹。本月最后一日是周几
SELECT
Weekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1))A本月最后一日是周几,
下月最后一日是周几
SELECT
Weekday(DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1)-1))A下月最后一日是周几,
本月最后一个周5到月底的天数
SELECT
(Weekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1)) 1)Mod7A本月最后一个周5到月底的天数;
下月最后一个周5到月底的天数
SELECT
(Weekday(DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1)-1)) 1)Mod7A下月最后一个周5到月底的天数;
本月最后一个周5的日期
SELECT
DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1))-1-(Weekday(DateAdd("m",1,DateSerial(Year(Date()),Month(Date()),1)-1)) 1)Mod7A本月最后一个周5的日期;
下月最后一个周5的日期
SELECT
DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1))-1-(Weekday(DateAdd("m",2,DateSerial(Year(Date()),Month(Date()),1)-1)) 1)Mod7A下月最后一个周5的日期;