[已解决]关于日期加减问题

一成不变变

下面代码，如果Range("A2")值是2015年12月28日时，s= 13月.xlsx",怎样使结果是1月.xlsx",请帮忙


Public Sub SDD()
    If Day(Range("A2")) < 25 Then
       s = Month(Range("A2")) & "月.xlsx"
        Else
       s= Month(Range("A2")) + 1 & "月.xlsx"
    End If
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2015-12-30 14:46

Public Sub SDD()
    Dim rng, m, d
    Set rng = Range("A2")
    m = Month(rng)
    d = Day(rng)
    m = IIf(d < 25, m, m + 1)
    m = IIf(m Mod 12, m Mod 12, m)
    MsgBox m & "月.xlsx"
End Sub

跳转到最佳答案楼层

橘子红

  s=  Month(Range("A2")) + 1 mod 12 & "月.xlsx"

这样?

爱疯

Public Sub SDD()
    Dim rng, m, d
    Set rng = Range("A2")
    m = Month(rng)
    d = Day(rng)
    m = IIf(d < 25, m, m + 1)
    m = IIf(m Mod 12, m Mod 12, m)
    MsgBox m & "月.xlsx"
End Sub

领风飞翔

Public Sub SDD()
    If Day(Range("A2")) < 25 Then
        s = Month(Range("A2")) & "月.xlsx"
        Else
        s = (Month(Range("A2")) + 1) Mod 12 & "月.xlsx"
    End If
    MsgBox s
End Sub