Board logo

標題: [發問] 有誰知道日期的加法? [打印本頁]
作者: linshin1999    時間: 2011-1-11 12:00     標題: 有誰知道日期的加法?

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

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

找遍了 MSDN 找不到有說明的,有誰有使用過或知道的可以提供解決方案?
作者: Hsieh    時間: 2011-1-11 12:35

回復 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
複製代碼
作者: linshin1999    時間: 2011-1-11 13:18

Hsieh 版主,VBA可以這樣用可是VB不行,這部份我嘗試轉到VBA來處理看看,謝謝!!
作者: Hsieh    時間: 2011-1-11 13:37

回復 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
複製代碼
執行表單，按下按鈕不是就產生訊息框顯示日期嗎?
作者: linshin1999    時間: 2011-1-11 13:45

Hsieh 版主:VBA可以但是 VB 不行, 可是這一段系統是用VB寫的.
作者: Hsieh    時間: 2011-1-11 13:56

本帖最後由 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
複製代碼
[attach]4365[/attach]
作者: linshin1999    時間: 2011-1-11 15:23

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

回復 6# Hsieh


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

Microsoft Visual Basic 6.0
作者: linshin1999    時間: 2011-1-11 16:58

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

回復 8# Hsieh


   不是,是Visual Studio 2010 (Vb), 所以很多用  VB6 的人用不習慣 Visual Studio 中的 VB 因為加入了 Web
作者: 暗黑    時間: 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) 的寫法差很多，但觀念是一樣的
作者: linshin1999    時間: 2011-1-12 09:49

本帖最後由 linshin1999 於 2011-1-12 09:53 編輯

回復 10# 暗黑


    暗黑兄謝謝你:常常這樣請教你也不是辦法,昨天忙了一個下午今天早上來到公司一看昨天等於白忙的,你可以教我如何釣魚嗎?就是如何在 Help 中找到.AddDays()這個東西,在我的 Visual studio 中用date來搜尋屬性和方法都找不到它的影子,你可以以這個為例子教我用MSDN,讓我更順手一點,謝謝你!!早知道有這個東西今天早上再來寫就好了!!
作者: 暗黑    時間: 2011-1-12 10:36

本帖最後由 暗黑 於 2011-1-12 10:47 編輯

選取欲  F1 之指令(圖片中我有選取反藍，下列的圖片皆同)  ，按下F1  查詢
[attach]4374[/attach]

出現  說明視窗  (一 般是  找成員， 因我是找 DATE 所以要改成 DATATIME)
  點選 DATETIME
[attach]4375[/attach]

出現挑選，因我們要知道DATETIME的組成，所以挑選  DATETIME結構(系統)
[attach]4376[/attach]

點選  DATETIME  的成員
[attach]4377[/attach]

觀看說明資訊，如  ADDDAY
點選 ADDDAY 即可看到範例及說明
[attach]4378[/attach]


另...這樣的狀況 很正常，我曾經寫一段程式碼寫3天寫不出來，到最後寫出來只有一行程式碼
   但只要有心，板上的各位板大，都會很熱心指導大家的，而我..也是板上的各位大大，在這幾年中指導出來的...
作者: linshin1999    時間: 2011-1-12 11:32

回復 12# 暗黑


    可惜 2010 年版的 msdn 改版了,你的 2008 年版千萬不要改成 2010 年版的,昨天没有嘗試去找 DATATIME 所以没找到,公司只有我一個電腦工程師孤軍奮鬥很辛苦,因此我用Dos寫公司的軟體一直很不想去改已經25年了,直到桌邊買不到了,擴允性成問題了到去年11月才換系統,Windows 也到去年才接觸到,請再教一個東西,每一個人在論壇上都用的那個 Po 上來的圖案,是如何做的,謝謝!!
作者: 暗黑    時間: 2011-1-12 11:52

用高級模式
[attach]4380[/attach]


然後  圖片
[attach]4381[/attach]

點選圖片後，即可後續操作..然後  上傳  附加



另..你可以試著 安裝 2008 的 msdn  ，你用2010  的應該可以相容  2008 的，試試吧
作者: linshin1999    時間: 2011-1-12 11:57

回復 14# 暗黑


    謝謝你了!!



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)