什么函数可以得到当月的上一个月,例如,1月的上一个月是12

Question

另外,什么函数可以返回长日期格式?

Answer 1

本示例取得一个日期，并使用 DateAdd 函数显示指定月份数以后的相应日期。
Dim Msg, Number, StartDate As String   'Declare variables.
Dim Months As Double
Dim SecondDate As Date
Dim IntervalType As DateInterval
IntervalType = DateInterval.Month   ' Specifies months as interval.
StartDate = InputBox("Enter a date")
SecondDate = CDate(StartDate)
Number = InputBox("Enter number of months to add")
Months = Val(Number)
Msg = "New date: " & DateAdd(IntervalType, Months, SecondDate)
MsgBox (Msg)

Answer 2

DATEADD ( M, -1, datetime )

Answer 3

MsgBox Month(DateAdd("m", -1, CDate("2004 - 1 - 14")))

Answer 4

a =iif(val(month(date))=1,1,val(month(date))-1)
msgbox "上个月是：" & a

Answer 5

'以系统设置的长日期格式返回当前系统日期。
MyStr = Format(Date, "Long Date")

Answer 6

Private Sub Command1_Click()
a = DateAdd("m", -1, Date)
MsgBox "上月：" + Format(a, "yyyy年mm月")
a = Format(Date, "Long Date")
MsgBox "长日期：" + CStr(a)
End Sub

Answer 7

MsgBox IIf(Month(Date) = 1, 13, Month(Date)) - 1