返回列表 上一主題 發帖

[發問] 程式碼 濃縮

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
1# 跳轉到 »
發表於 2015-8-17 21:14 | 顯示全部帖子
回復 1# mark15jill
去除         For maa = 1 To 12
以及        For daa = 1 To 31
而直接使用 mma 以及 dda 之變數：
  1.         Select Case mma
  2.             Case 1
  3.                 Select Case dda
  4.                     Case 1
  5.                         dlab(0).Text = yya - 1 & "/" & 12 & "/" & 29
  6.                         dlab(1).Text = yya - 1 & "/" & 12 & "/" & 30
  7.                         dlab(2).Text = yya - 1 & "/" & 12 & "/" & 31
  8.                         dlab(3).Text = yya & "/" & mma & "/" & dda
  9.                         dlab(4).Text = yya & "/" & mma & "/" & dda + 1
  10.                         dlab(5).Text = yya & "/" & mma & "/" & dda + 2
  11.                         dlab(6).Text = yya & "/" & mma & "/" & dda + 3
  12.                     Case 2
  13.                         dlab(0).Text = yya - 1 & "/" & 12 & "/" & 30
  14.                         dlab(1).Text = yya - 1 & "/" & 12 & "/" & 31
  15.                         dlab(2).Text = yya & "/" & mma & "/" & dda - 1
  16.                         dlab(3).Text = yya & "/" & mma & "/" & dda
  17.                         dlab(4).Text = yya & "/" & mma & "/" & dda + 1
  18.                         dlab(5).Text = yya & "/" & mma & "/" & dda + 2
  19.                         dlab(6).Text = yya & "/" & mma & "/" & dda + 3
  20.                     Case 3
  21.                         .
  22.                         .
  23.                         .
  24.                     Case 31
  25.                          dlab(0).Text = yya & "/" & mma & "/" & dda - 3
  26.                          dlab(1).Text = yya & "/" & mma & "/" & dda - 2
  27.                          dlab(2).Text = yya & "/" & mma & "/" & dda - 1
  28.                          dlab(3).Text = yya & "/" & mma & "/" & dda
  29.                          dlab(4).Text = yya & "/" & mma + 1 & "/" & 1
  30.                          dlab(5).Text = yya & "/" & mma + 1 & "/" & 2
  31.                          dlab(6).Text = yya & "/" & mma + 1 & "/" & 3
  32.                 End Select
  33.             Case 2
  34.                 Select Case dda
  35.                         .
  36.                         .
  37.                         .
  38.         End Select
複製代碼
試試看是否對你有幫助？

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題