VB DateAdd to String

Question

我试图将DateAdd函数作为字符串

到目前为止我得到了

Dim newDate 
newDate = DateAdd("m", 1, date)
MsgBox(newDate.ToString("d"))

哪个获取所需的错误对象

我试图创建一个获取日期的photoshop脚本，并在1个月后添加，然后写入活动文本图层

'Get and Change Expiry Date 
docRef.ActiveLayer = docRef.Layers(3)
Set textItemRef = docRef.ActiveLayer.TextItem

Dim newDate 
newDate = DateAdd("m", 1, date)
textItemRef.Contents = newDate.ToString("d")

任何帮助都会很棒

Answer 1

VBA中的字符串不是对象，因此没有ToString()方法，即VB.NET。

newDate = DateAdd("m", 1, date)
MsgBox newDate

或

MsgBox format$(newDate, "dd/mm/yyyy")