ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Åã¥Ü¨C¶gªº©T©w¤é

[µo°Ý] Åã¥Ü¨C¶gªº©T©w¤é

¥»©«³Ì«á¥Ñ jesscc ©ó 2011-6-18 22:38 ½s¿è

·í§Ú»s§@§¹¤@¥÷¤å¥ó­n¦sÀɮɡA¥i¯à¬O¥»¶g¶g¤­¡A¤]¥i¯à¬O¤U¶g¶g¤@©Î¶g¤G¡A¦Ó§Ú§Æ±æ¦bC4¯à©T©wÅã¥Ü¤U¶g¥|ªº¤é´Á¡A¤£ª¾¸Ó¦p¦ó°µ?
  1. Sub dd()
  2. myDay = Format(Date + Weekday(Date) - 2, "e" & "." & "m" & "." & "dd")
  3. Sheets("da").Range("C4") = "¥X³f¤é:" & myDay
  4. End Sub
½Æ»s¥N½X
µù:
¦³¨â­Ó"&"µLªkÅã¥Ü
"e" «á­±¨º­Ó©M"¥X³f¤é:"«á­±¨º­Ó
Jess

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

TOP

§Ú§Æ±æ¥Î³oºØ®æ¦¡Åã¥Ü
Format(Date, "e" & "." & "m" & "." & "dd")
¹³³o¼Ë  2010.6.23
Jess

TOP

Format(Date, "e" & "." & "m" & "." & "dd")
µ²ªG·|Åܦ¨ 100.6.23¡A¤£¬O2010.6.23

TOP

¬Oªº!©êºp¡A§Úkey¿ù¤F¡C
À³¸Ó¬O100.6.23
Jess

TOP

¦^´_ 5# jesscc
Format(Date, "e.m.dd") ¥i¥H¤£¥²¥[ &

TOP

·í¤éªº¤U©P¥|¤é´Á
Date+4-WEEKDAY(Date,2)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁ GBKEE ¤jÀ°§Úºë²¤Æ
Hsieh¤j¡A§Ú¥Î³o­Ó¤èªk¡AÅã¥Ü¥X¨ÓªºÁÙ¬O¤W¶gªº¶g¥|(100.6.16)

d = Format(Date + 4 - Weekday(Date, 2), "e.m.d")
Sheets("da").Range("C4") = "¥X³f¤é:" & d

§Ú¬O§Æ±æ¦b²Ä¤@­Ó¶g¥|¥H«á¨ì²Ä¤G­Ó¶g¥|¤§«eªº¥ô¦ó¤@¤Ñ¦sÀÉ¡A³£¯à°÷©T©wÅã¥Ü²Ä¤G­Ó¶g¥|ªº¤é´Á¡C
Jess

TOP

¦^´_ 8# jesscc


    d = Format(Date + 4 - Weekday(Date, 2) + 7, "e.m.d")
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD