用vba如何得到上一个月的天数

蓝桥玄霜 · 发表于 2015-11-8 13:05

对不起，是我笔误了，应该是减1的，，怎么出来+1了。呵呵。

hyg7501 · 发表于 2015-11-8 13:34

4楼正解，蓝桥老师的代码应该是这样的dd=Day(Dateserial(Year(Date),Month(Date),1)-1)

answer6141 · 发表于 2020-1-9 20:07

=day(dateserial(year(date),month(date),1-1))

复制代码

ning84 · 发表于 2023-6-17 16:25

Sub deldel()
Dim Rng As Range, oDate As Date, oDay
Set Rng = Selection
oDate = Rng
Debug.Print oDate
oDay = Day(DateSerial(Year(oDate), Month(oDate) + 1, 0))
Debug.Print DateSerial(Year(oDate), Month(oDate) + 1, 0)
Debug.Print oDay
For ii = 1 To 12
Debug.Print DateSerial(Year(oDate), ii + 1, 0),
oDate = DateSerial(Year(oDate), ii + 1, 0)
Debug.Print Day(oDate)
Next ii
End Sub

复制代码

结果
2023/1/31    31
2023/2/28    28
2023/3/31    31
2023/4/30    30
2023/5/31    31
2023/6/30    30
2023/7/31    31
2023/8/31    31
2023/9/30    30
2023/10/31    31
2023/11/30    30
2023/12/31    31

ning84 · 发表于 2023-6-17 22:10

Sub deldel1()
Dim Rng As Range, Rng1 As Range, Rng2 As Range
Dim oDate As Date, oDay
With Sheet1
Set Rng = .Cells(5, 1).CurrentRegion
Set Rng = .Range("A5", "L5")
Set Rng1 = Rng(6, 1)
Debug.Print Rng.Address
For jj = 1 To Rng.Columns.Count
oDate = Rng(, jj)
oDay = Day(DateSerial(Year(oDate), Month(oDate) + 1, 0))
''
For ii = 1 To oDay
Rng1(ii, 1) = Format(oDate + ii - 1, "yyyy年mm月dd日")
Next ii
Set Rng2 = Rng1(ii - 1, 1).CurrentRegion
Rng(2, jj) = "=" & Rng2.Address(0, 0)
Set Rng1 = Rng1(oDay + 5, 1)
Next jj
Debug.Print Rng1.Address
End With
End Sub

复制代码

		自动登录	找回密码
密码			免费注册