[發問] 有誰知道日期的加法?

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-1-11 12:35 | 只看該作者

回復 1# linshin1999

Sub yy()
Dim mydate As Date '宣告日期變數
mydate = #9/24/2010# '指定開始日期
For i = 1 To 20
mydate = mydate + i '變數+1
Next
MsgBox mydate
End Sub

複製代碼

學海無涯_不恥下問

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

3^#

發表於 2011-1-11 13:18 | 只看該作者

Hsieh 版主,VBA可以這樣用可是VB不行,這部份我嘗試轉到VBA來處理看看,謝謝!!

V98

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2011-1-11 13:37 | 只看該作者

回復 3# linshin1999

為何會不行?
假設你用按鈕啟動

Private Sub Command1_Click()
Dim mydate As Date '宣告日期變數
mydate = #9/24/2010# '指定開始日期
For i = 1 To 20
mydate = mydate + i '變數+1
Next
MsgBox mydate
End Sub

複製代碼

執行表單，按下按鈕不是就產生訊息框顯示日期嗎?

學海無涯_不恥下問

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

5^#

發表於 2011-1-11 13:45 | 只看該作者

Hsieh 版主:VBA可以但是 VB 不行, 可是這一段系統是用VB寫的.

V98

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2011-1-11 13:56 | 只看該作者

本帖最後由 Hsieh 於 2011-1-11 13:57 編輯

回復 5# linshin1999
每次加1才對不是加i

Private Sub Command1_Click()
Dim mydate As Date '宣告日期變數
mydate = #9/24/2010# '指定開始日期
For i = 1 To 20
mydate = mydate + 1 '變數+1
Next
MsgBox mydate
End Sub

複製代碼

學海無涯_不恥下問

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

7^#

發表於 2011-1-11 15:23 | 只看該作者

本帖最後由 linshin1999 於 2011-1-11 16:05 編輯

回復 6# Hsieh

版主你確定是在 Vistual Basic 模式下執行的 ?
如果是這樣真是虧大了,忙了一個下午終於用土法練鋼的方法完成了日期加法,但是我依版主的寫法, 在我的 Vistual Basic 下測真的不行.

V98

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2011-1-11 16:24 | 只看該作者

Microsoft Visual Basic 6.0

學海無涯_不恥下問

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

9^#

發表於 2011-1-11 16:58 | 只看該作者

本帖最後由 linshin1999 於 2011-1-11 20:26 編輯

回復 8# Hsieh

不是,是Visual Studio 2010 (Vb), 所以很多用 VB6 的人用不習慣 Visual Studio 中的 VB 因為加入了 Web

V98

暗黑

帖子: 62
主題: 10
精華: 0
積分: 253
點名: 0
作業系統: xp , win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 人心
註冊時間: 2010-5-21
最後登錄: 2012-8-3

10^#

發表於 2011-1-11 23:46 | 只看該作者

本帖最後由暗黑於 2011-1-11 23:49 編輯

試試吧

Dim day_tmp As date = #9/24/2010#

For i As Integet = 1 to 200
day_tmp = day_tmp.AddDays(1)
Next i

或 day_tmp = day_tmp.AddDays(200) 一行解決(會依月份自動跳30或31 天)

另 vb6 跟vb.net(vb2005、vb2008、vb2010) 的寫法差很多，但觀念是一樣的

是學程式而不是要程式，是進步的基礎