VBA MS Access изменяет значения в текстовом поле между 2 символами

Question

Я работаю над своими формами в MS Access, и у меня есть много данных о дате, которые мне нужно изменить.

У меня есть поле даты, которое выглядит следующим образом: 28.02.2009 10:00: 00 вечера. Это поле загружается в текстовое поле с именем txtFieldDate.

Теперь я хочу изменить значения между двумя косыми чертами / / на 15. Теперь загружаемая дата может иметь значение дня в любом месте от 1 до 31 в виде мы знаем, поэтому проблема в днях с 1 по 9, которые являются однозначными (например, 4/4/2019 11:00:00 PM).

Я попытался использовать функцию замены (например, varMiddleDate = Replace (varMiddleDate, "/ * /", "/ 15 /")), но я не могу заставить работать с подстановочными знаками, поэтому мне было интересно, есть ли простой способ заменить все, что находится между двумя косыми чертами (одна или две цифры) и поставить значение 15 там?

Спасибо

Answer 1

Никогда не сохраняйте дату / время как текст.

Итак, конвертируйте в DateTime и замените значение Day на 15:

TrueDate = CDate(YourTextDate)
Date15 = DateSerial(Year(TrueDate), Month(TrueDate), 15) + TimeValue(TrueDate)