返回列表 上一主題 發帖

[發問] 計算日期問題

[發問] 計算日期問題

請問Excel Vba 要如何計算1個月有幾天?
jason

還有個方法:
[a1] = "=day(eomonth(""2010/2/5"",0))"

TOP

Sub Ex()
    Dim WDay As Date
    WDay = "2010/2/5"
    MsgBox day(DateSerial(Year(WDay), Month(WDay) + 1, 0))
End Sub

TOP

回復 1# jasonv88
  1. Sub Ex()
  2.     Dim WDay As Date
  3.     WDay = "2010/2/5"
  4.     MsgBox DateSerial(Year(WDay), Month(WDay) + 1, 1) - DateSerial(Year(WDay), Month(WDay), 1)
  5. End Sub
複製代碼

TOP

        靜思自在 : 犯錯出懺悔心,才能清淨無煩惱。
返回列表 上一主題