返回列表 上一主題 發帖

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

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

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

For i As Integet = 1 to 200
     迴圈中讓 day_tmp 自動累加 1 天
     而年月日會自動調整
Next i

找遍了 MSDN 找不到有說明的,有誰有使用過或知道的可以提供解決方案?
V98

回復 1# linshin1999
  1. Sub yy()
  2. Dim mydate  As Date  '宣告日期變數
  3. mydate = #9/24/2010# '指定開始日期
  4. For i = 1 To 20
  5.    mydate = mydate + i  '變數+1
  6. Next
  7. MsgBox mydate
  8. End Sub
複製代碼
學海無涯_不恥下問

TOP

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

TOP

回復 3# linshin1999

為何會不行?
假設你用按鈕啟動
  1. Private Sub Command1_Click()
  2. Dim mydate  As Date  '宣告日期變數
  3. mydate = #9/24/2010# '指定開始日期
  4. For i = 1 To 20
  5.    mydate = mydate + i  '變數+1
  6. Next
  7. MsgBox mydate
  8. End Sub
複製代碼
執行表單,按下按鈕不是就產生訊息框顯示日期嗎?
學海無涯_不恥下問

TOP

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

TOP

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

回復 5# linshin1999
每次加1才對不是加i
  1. Private Sub Command1_Click()
  2. Dim mydate  As Date  '宣告日期變數
  3. mydate = #9/24/2010# '指定開始日期
  4. For i = 1 To 20
  5.    mydate = mydate + 1  '變數+1
  6. Next
  7. MsgBox mydate
  8. End Sub
複製代碼
學海無涯_不恥下問

TOP

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

回復 6# Hsieh


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

TOP

Microsoft Visual Basic 6.0
學海無涯_不恥下問

TOP

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

回復 8# Hsieh


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

TOP

本帖最後由 暗黑 於 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) 的寫法差很多,但觀念是一樣的
是學程式而不是要程式,是進步的基礎

TOP

        靜思自在 : 能幹不幹,不如苦幹實幹。
返回列表 上一主題