在Lotus notes脚本中，我需要完整的逻辑来从当前日期减去30天

Question

在Lotus notes脚本中，我需要完整的逻辑，以CCYYMMDD格式从当前日期减去30天，我想用print语句打印这个日期，以便我看到结果。我需要完整版的lotus notes脚本，包括所有变量的定义和数据类型。我尝试使用多种方法在打印时获得空结果或数据类型不匹配。我需要你的帮助。谢谢

Answer 1

Dim dt As New NotesDateTime("")
dt.SetNow
dt.SetAnyTime
dt.AdjustDay -30
Print Format(dt.LSLocalTime, "YYYYMMDD")