Оператор " - "не определен для типов "дата" и "целое число".

---

Привет, я пытаюсь найти день в данном месяце. Код выдал мне такую ошибку: Code:BC30452 Operator '-' не определен для типов 'Date' и 'Integer'.

Это и есть код:

Dim MonthNumber, datetime
MonthNumber = Format(Now, "MM")
datetime = DateSerial(2020, MonthNumber, 1) - (Weekday(DateSerial(2020, MonthNumber, 1), vbWednesday) + 14)

Что я уже пробовал:

Попытался использовать datetime.subtract, но это не сработало для этого кода.

---