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

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

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

现在我想将两个斜线之间的值 / / 更改为 15。现在加载的日期可以有一个从 1 到 31 之间的任何日期值，因为我们知道，所以问题是第 1 到 9 天，它们是单一的数字（例如 2019 年 2 月 4 日晚上 11:00:00）。

我尝试使用替换函数（例如 varMiddleDate = Replace(varMiddleDate, "/*/", "/15/")），但我无法使用通配符，所以我想知道是否有一种简单的方法来替换两者之间的任何内容2个斜线（一位或两位数）并将值15放在那里？

谢谢

标签： vbams-accessreplace

切勿将日期/时间存储为文本。

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

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