　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-8-16 16:36 | 只看該作者

[發問] 程式碼濃縮

本帖最後由 mark15jill 於 2015-8-16 16:38 編輯

附件程式碼是否可以有效率的濃縮呢？
是有關於日期判斷的程式碼....
因此種方法不用考慮二月是否為閏月(28、29)的部分
只是程式會很長
若完成將會弄完整程式碼上來

[程式太長超過論壇的限制... 只好用附件]

需濃縮.rar (1.23 KB)

樓主熱帖

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2015-8-17 15:11 | 只看該作者

本帖最後由 stillfish00 於 2015-8-17 15:33 編輯

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

我只是路過而已，你要的答案可能很簡單，但是你問得不對。

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

3^#

發表於 2015-8-17 17:30 | 只看該作者

本帖最後由 mark15jill 於 2015-8-17 17:32 編輯

回復  mark15jill
1.  日期判斷是判斷什麼，這段程式的目的是什麼，好歹要說明一下
2.  宣告語法有錯，這 ...
stillfish00 發表於 2015-8-17 15:11

謝謝大大的回覆..
1.此帖主要的目的在於濃縮程式碼... 因在下對於濃縮程式碼能力很差，想說是否有其他方法可以濃縮
2.dtp 主要是日期插件的宣告 d7labx為 label的宣告
3.語法的部份請忽略... 因這的確不是VBA的 ... 只是想詢問濃縮的方法...
4.function qqa 為共用副程式碼區域(有點類似 VBA的副程式)

在下詢問的其實很簡單...
程式碼濃縮
僅僅如此而已...

至於一開始說的那些其實只是想說如果這個問題解決後，我會將成品(完整版程式) 放上論壇供參考...

謝謝

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2015-8-17 21:14 | 只看該作者

回復 1# mark15jill
去除 For maa = 1 To 12
以及 For daa = 1 To 31
而直接使用 mma 以及 dda 之變數：

Select Case mma
Case 1
Select Case dda
Case 1
dlab(0).Text = yya - 1 & "/" & 12 & "/" & 29
dlab(1).Text = yya - 1 & "/" & 12 & "/" & 30
dlab(2).Text = yya - 1 & "/" & 12 & "/" & 31
dlab(3).Text = yya & "/" & mma & "/" & dda
dlab(4).Text = yya & "/" & mma & "/" & dda + 1
dlab(5).Text = yya & "/" & mma & "/" & dda + 2
dlab(6).Text = yya & "/" & mma & "/" & dda + 3
Case 2
dlab(0).Text = yya - 1 & "/" & 12 & "/" & 30
dlab(1).Text = yya - 1 & "/" & 12 & "/" & 31
dlab(2).Text = yya & "/" & mma & "/" & dda - 1
dlab(3).Text = yya & "/" & mma & "/" & dda
dlab(4).Text = yya & "/" & mma & "/" & dda + 1
dlab(5).Text = yya & "/" & mma & "/" & dda + 2
dlab(6).Text = yya & "/" & mma & "/" & dda + 3
Case 3
.
.
.
Case 31
dlab(0).Text = yya & "/" & mma & "/" & dda - 3
dlab(1).Text = yya & "/" & mma & "/" & dda - 2
dlab(2).Text = yya & "/" & mma & "/" & dda - 1
dlab(3).Text = yya & "/" & mma & "/" & dda
dlab(4).Text = yya & "/" & mma + 1 & "/" & 1
dlab(5).Text = yya & "/" & mma + 1 & "/" & 2
dlab(6).Text = yya & "/" & mma + 1 & "/" & 3
End Select
Case 2
Select Case dda
.
.
.
End Select

複製代碼

試試看是否對你有幫助？

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

5^#

發表於 2015-8-18 09:39 | 只看該作者

回復  mark15jill
去除       For maa = 1 To 12
以及       For daa = 1 To 31
而直接使用 mma 以及 ...
c_c_lai 發表於 2015-8-17 21:14

謝謝您的回覆
剛有試驗過若將for 迴圈移除直接以select case 代表的話則會造成select case 的參數錯誤(讀不到maa or daa)
進而導致後續的參數都有問題..

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

6^#

發表於 2015-8-18 09:48 | 只看該作者

回復 3# mark15jill
好吧，我就講白了。
我的意思是你完全沒說明這段程式是在做甚麼
如果今天你的問題是:
dtp 為輸入的日期，將該日與前三天、後三天的日期放到 dlab(0) 到 dlab(6)
那麼我就可以很快地告訴你，用Dateadd就可以很快做到，
而不是再去看你的程式碼慢慢推測到底要做甚麼功能。

Sub test()
For i = 0 To 6
dlab(i) = DateAdd("d", i - 3, CDate(dtp.Value))
Next
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

7^#

發表於 2015-8-18 10:48 | 只看該作者

本帖最後由 mark15jill 於 2015-8-18 11:11 編輯

回復 mark15jill
好吧，我就講白了。
我的意思是你完全沒說明這段程式是在做甚麼
如果今天你的問題是: ...
stillfish00 發表於 2015-8-18 09:48

大大您好....
關於這段程式是做甚麼的
我在發帖時就已經有說明...
請參考發帖時的第二行文字和...是有關於日期判斷的程式碼....
至於前三天旱後三天
若依照您所提供的公式
會造成
1.2月閏月
2.前一年後一年...

而我所詢問的程式碼則是不用以上兩點所提的問題
如果都不考慮我知道是可以寫成
For uu = -3 to 3
dlab(uu+3).Text = yya & "/" & mma & "/" & dda+uu
next
'yya =年 : mma=月 : dda=日
造成您的困擾抱歉
[下次關鍵詞在下會用大紅字標示以避免造成困擾 ]

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

8^#

發表於 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

mark15jill