返回列表 上一主題 發帖

[發問] 程式碼 濃縮

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2015-8-17 15:11 | 顯示全部帖子
本帖最後由 stillfish00 於 2015-8-17 15:33 編輯

回復 1# mark15jill
1.  日期判斷是判斷什麼，這段程式的目的是什麼，好歹要說明一下
2.  宣告語法有錯，這不是VBA合法的宣告
3.  用到的 dtp、d7labx，這些無法得知內容是什麼
4.  Function qqa 無傳回值，無法判斷程式目的

我只是路過而已，你要的答案可能很簡單，但是你問得不對。
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2015-8-18 09:48 | 顯示全部帖子
回復 3# mark15jill
好吧，我就講白了。
我的意思是你完全沒說明這段程式是在做甚麼
如果今天你的問題是:
dtp 為輸入的日期，將該日與前三天、後三天的日期放到 dlab(0) 到 dlab(6)
那麼我就可以很快地告訴你，用Dateadd就可以很快做到，
而不是再去看你的程式碼慢慢推測到底要做甚麼功能。
  1. Sub test()
  2.     For i = 0 To 6
  3.         dlab(i) = DateAdd("d", i - 3, CDate(dtp.Value))
  4.     Next
  5. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 2015-8-18 13:24 | 顯示全部帖子
回復 7# mark15jill
若依照您所提供的公式
會造成
1.2月閏月
2.前一年 後一年...

DateAdd("d",-1,"2015/3/1")  => 2015/2/28
DateAdd("d",-1,"2016/3/1")  => 2016/2/29
DateAdd("d",-1,"2016/1/1")  => 2015/12/31
DateAdd("d",1,"2014/12/31") => 2015/1/1
何來問題?
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題