Dim MonthNumber, datetime MonthNumber = Format(Now, "MM") datetime = DateSerial(2020, MonthNumber, 1) - (Weekday(DateSerial(2020, MonthNumber, 1), vbWednesday) + 14)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)