vb6如何设置日期?

MsgBox DateAdd("M", -1, Format(Now, "yyyy-mm-dd"))
DateAdd 函数
返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。
语法
DateAdd(interval, number, date)
DateAdd 函数语法中有下列命名参数：
部分 描述
interval 必要。字符串表达式，是所要加上去的时间间隔。
number 必要。数值表达式，是要加上的时间间隔的数目。其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。
date 必要。Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。
设置
interval 参数具有以下设定值：
设置 描述
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟
s 秒
说明
可以使用 DateAdd 函数对日期加上或减去指定的时间间隔。例如，可以用 DateAdd 来计算距今天为三十天的日期；或者计算距现在为 45 分钟的时间。
为了对 date 加上“日”，可以使用“一年的日数” (“y”)，“日” (”d”) 或“一周的日数” (”w”)。

m=month(now)-1
if m=0 then m=12
.value = "上月:" & m & “月"

With xlSheet.Range(xlSheet.Cells(i, 5), xlSheet.Cells(i, 7))
.MergeCells = True
.HorizontalAlignment = xlCenter
a = InStr(1, Date, "-"): b = InStrRev(Date, "-")
c = IIf(CInt(Mid(Date, a + 1, b - a - 1)) - 1 = 0, 12, CInt(Mid(Date, a + 1, b - a - 1)) - 1)
.Value = "月份:" & Format(CDate(Mid(Date, 1, a) & c & Mid(Date, b)), "mm月")
.Font.Bold = True
End With