VBA MS Access在文本框中更改2个字符之间的值

我正在MS Access中处理一些表单，我有很多日期数据需要更改

我有一个日期字段，如下所示：2019年2月28日10:00:00 PM。此字段加载到名为txtFieldDate的文本框中

现在，我想将2个斜杠//之间的值更改为15。现在加载的日期可以有一个从1到31的日期值，所以问题是第1天到第9天是个位数（例如2019年2月4日11:00:00 PM）

我尝试使用replace函数（例如varMiddleDate=replace（varMiddleDate，“/*/”，“/15/”），但我无法使用通配符，因此我想知道是否有一种简单的方法可以替换两个斜杠（一个或两个数字）之间的任何内容，并将值15放入其中

---

谢谢

永远不要将日期/时间存储为文本

因此，转换为DateTime并用15替换Day值：

TrueDate=CDate（YourTextDate）
Date15=日期序列（年（TrueDate），月（TrueDate），15）+时间值（TrueDate）