標題: [發問] 顯示每週的固定日 [打印本頁]

---

作者: jesscc    時間: 2011-6-18 22:25     標題: 顯示每週的固定日

本帖最後由 jesscc 於 2011-6-18 22:38 編輯

當我製作完一份文件要存檔時，可能是本週週五，也可能是下週週一或週二，而我希望在C4能固定顯示下週四的日期，不知該如何做?

1. Sub dd()
   
2. myDay = Format(Date + Weekday(Date) - 2, "e" & "." & "m" & "." & "dd")
   
3. Sheets("da").Range("C4") = "出貨日:" & myDay
   
4. End Sub

複製代碼

註:
有兩個"&"無法顯示
"e" 後面那個和"出貨日:"後面那個

---

作者: chin15    時間: 2011-6-18 22:43

d = Date
Do
d = d + 1
Loop Until Weekday(d, 2) = 4
MsgBox d

---

作者: jesscc    時間: 2011-6-18 22:51

我希望用這種格式顯示
Format(Date, "e" & "." & "m" & "." & "dd")
像這樣  2010.6.23

---

作者: oobird    時間: 2011-6-19 10:02

Format(Date, "e" & "." & "m" & "." & "dd")
結果會變成 100.6.23，不是2010.6.23

---

作者: jesscc    時間: 2011-6-19 12:26

是的!抱歉，我key錯了。
應該是100.6.23

---

作者: GBKEE    時間: 2011-6-19 15:50

回復 5# jesscc
Format(Date, "e.m.dd") 可以不必加 &

---

作者: Hsieh    時間: 2011-6-19 17:25

當日的下周四日期
Date+4-WEEKDAY(Date,2)

---

作者: jesscc    時間: 2011-6-19 18:11

謝謝 GBKEE 大幫我精簡化
Hsieh大，我用這個方法，顯示出來的還是上週的週四(100.6.16)

d = Format(Date + 4 - Weekday(Date, 2), "e.m.d")
Sheets("da").Range("C4") = "出貨日:" & d

我是希望在第一個週四以後到第二個週四之前的任何一天存檔，都能夠固定顯示第二個週四的日期。

---

作者: Hsieh    時間: 2011-6-19 22:05

回復 8# jesscc


    d = Format(Date + 4 - Weekday(Date, 2) + 7, "e.m.d")

---

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