如何将15分钟添加到VBA中以字符串形式存储的日期中

Question

我尝试了多种方法，但似乎都不起作用。

我有这种格式的日期时间2021年1月1日10:10，我想再加15分钟，这样看起来就会是这样的2020年1月2日10:25。

日期时间以字符串形式存储在单元格中，这就是我尝试的
akt.Offset(0,2) + TimeSerial(0, 15, 0)
DateAdd("n", 15, akt.Offset(0,2))
结果始终为空

我做错了什么？最好的方法是什么？

Answer 1

使用CDate：

' True date value:
=DateAdd("n", 15, CDate(Replace(akt.Offset(0,2), ".", "/")))
' Text date:
=Format(DateAdd("n", 15, CDate(Replace(akt.Offset(0,2), ".", "/"))), "d.m.yyyy hh:nn")