標題: [發問] 計算日期問題 [打印本頁]

---

作者: jasonv88    時間: 2010-9-27 17:45     標題: 計算日期問題

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

---

作者: GBKEE    時間: 2010-9-27 18:03

回復 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

複製代碼

---

作者: et5323    時間: 2010-9-27 18:52

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

---

作者: oobird    時間: 2010-9-27 22:46

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)