返回列表 上一主題 發帖

[發問] 計算日期問題

et5323

帖子
128 
主題
13 
精華
1 
積分
118 
點名
0  
作業系統
WinXP 
軟體版本
Office2003 
閱讀權限
50 
性別
男 
來自
四川成都邛崃 
註冊時間
2010-9-13 
最後登錄
2017-5-12 
1# 跳轉到 »
發表於 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

TOP

        靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。
返回列表 上一主題