VBA代码 月尾2025年3月18日 10:08
Function 月尾(日期 As Date)
Dim y, m
y = Year(日期)
m = Month(日期)
月尾 = DateSerial(y, m + 1, 0)
End FunctionFunction 月尾(日期 As Date)
Dim y, m
y = Year(日期)
m = Month(日期)
月尾 = DateSerial(y, m + 1, 0)
End Function
全部回复（0）