返回列表 上一主題 發帖

[發問] 日期的計算和判斷

幼稚園飛天豬

帖子
32 
主題
14 
精華
0 
積分
52 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-5-31 
最後登錄
2025-2-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-8-30 11:03 | 只看該作者

[發問] 日期的計算和判斷

日期在vba內怎麼加減。
2010/8/5  09:00:00 AM 加4天。要怎麼寫
結果要2010/8/9  09:00:00 AM ，因為我要寫for，一直都加4天，然後在判斷。但不知語法為何。

2010/8/28  09:00:00 AM 加4天
結果2010/9/1  09:00:00 AM 加4天

日期加減他要如何判斷這個月是幾天如何進位?

先謝謝大大指導了^^
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2010-8-30 11:37 | 只看該作者
回復 1# 幼稚園飛天豬
  1. Sub Ex()
  2.     Dim D As Date, i%
  3.     '[A1] = Now
  4.     [A1] = "2010/8/5 09:00:30"
  5.     D = [A1] + 3
  6.     i = Day(DateSerial(Year([A1]), Month([A1]) + 1, 0))
  7.     MsgBox D & Chr(10) & [A1] + 3 & Chr(10) & "本月為" & i & "天"
  8. End Sub
複製代碼

TOP

幼稚園飛天豬

帖子
32 
主題
14 
精華
0 
積分
52 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-5-31 
最後登錄
2025-2-19 
3#
發表於 2010-8-30 12:55 | 只看該作者
謝謝版大
原來我是在命名的搞錯了。
^^

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題