返回列表 上一主題 發帖

[發問] 計算日期問題

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

        靜思自在 : 我們最大的敵人不是別人.可能是自己。
返回列表 上一主題