返回列表 上一主題 發帖

[發問] 顯示每週的固定日

[發問] 顯示每週的固定日

本帖最後由 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" 後面那個和"出貨日:"後面那個
Jess

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

TOP

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

TOP

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

TOP

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

TOP

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

TOP

當日的下周四日期
Date+4-WEEKDAY(Date,2)
學海無涯_不恥下問

TOP

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

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

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

TOP

回復 8# jesscc


    d = Format(Date + 4 - Weekday(Date, 2) + 7, "e.m.d")
學海無涯_不恥下問

TOP

        靜思自在 : 要用心,不要操心、煩心。
返回列表 上一主題