我正在MS Access中处理表单,并且有很多需要更改的日期数据。
我有一个看起来像这样的日期字段:2/28/2019 10:00:00 PM。此字段被加载到名为txtFieldDate的文本框中。
现在,我想将2个斜杠之间的值更改为15。现在,加载的日期可以具有1到31之间的任意一天的日值,所以问题出在1到9天之间,这是单个日期数字(例如2/4/2019 11:00:00 PM)。
我尝试使用替换功能(例如varMiddleDate = Replace(varMiddleDate,“ / * /”,“ / 15 /”)),但我无法使用通配符,因此我想知道是否有一种简便的方法可以替换之间的任何内容2个斜杠(一位或两位数)并将值15放在那里?
谢谢
切勿将日期/时间存储为文本。
因此,将其转换为DateTime并将Day值替换为15:
TrueDate = CDate(YourTextDate)
Date15 = DateSerial(Year(TrueDate), Month(TrueDate), 15) + TimeValue(TrueDate)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句