[µo°Ý] VB§ó§ïwin10¨t²Î®É¶¡,Åv­­°ÝÃD

blue2263

¤U­±µ{¦¡½X,¦bWin7¨t²Î°õ¦æ¨S¦³°ÝÃD,¦ý¦p¦bWin10¨t²Î°õ¦æ·|¥X²{¤U¹Ï¿ù»~
½Ð±Ð¤j¤j,¦¹°ÝÃD­n«ç»ò¸Ñ¨M

Date = DateAdd("m", 1, Date) '¤é´Á + 1­Ó¤ë

¤U¸ü (14.94 KB)

2016-11-5 12:26

c_c_lai

¦^´_ 1# blue2263

1.    Date = DateAdd("m", 1, Date)     '  ¤é´Á + 1­Ó¤ë

½Æ»s¥N½X

¦]¬° Date ¬°¨t²Î¤§¤º¦b¨ç¼Æ¡A
¬O¤£¤¹³\¨Ï¥ÎªÌ¥ô·N§ó°Êªº¡C
P.S.  "Date" ¬°¨t²Î¤§«O¯d¦r (Reserved Word)¡F
¦ý¦pªG­×§ï¬°¡G

1.    dd = DateAdd("m", 1, Date)     '  ¤é´Á + 1­Ó¤ë

½Æ»s¥N½X

«h¬O OK ªº¡C

blue2263

¦^´_ 2# c_c_lai
C¤j§A¦n
°ÝÃD¬O,§Ú¦bWin7¨t²Î°õ¦æ¨S°ÝÃD,¦ý¦bWin10¨t²Î¤W,·|¥X²{¿ù»~
¤£ª¾¦³¨S¦³§ó§ïWin10Åv­­ªº¤èªk?

c_c_lai

¦^´_ 3# blue2263
¤@¼Ë¬O¨Ï¥Î¦P¤@ Office ª©¥»¡H
§Ú¬O¥Î Office 2010¡A¤@´ú«K¦p¦P§Aµo¥Íªº°T®§¡C
¾Ú§Ú©Òª¾  Office 2010 »yªkÀˬd¤ñ¸ûÄYÂÔ¡A¥¦ªº
«O¯d¦r©Î¤º¦b²[¦¡¬O¤£¯à·íÅܼƨϥή³¨Ó³Q Assign ­Èªº¡C
»P Windows  ª©¥»µLÃö¡C
(¨S¦³§ó§ïÅv­­ «üªº´N¬O¥H¤Wªº¸Ñ»¡)

blue2263

¦^´_ 4# c_c_lai
§Ú¥Îªº¤]¬Ooffice2010
(¨S¦³§ó§ïÅv­­),¤F¸ÑÁÂÁÂ
·PÁÂC¤j¸Ñµª

c_c_lai

¦^´_ 5# blue2263
³o¤T­Ó¨Ò¤l¡A§A¥Î F8 ¥h°õ¦æ¡A«K¥iÆ[¹î¥X¨Ó¡G

1. Sub Ex()
   
2.    Date = DateAdd("m", 1, Date)     '  ¤é´Á + 1­Ó¤ë
   
3.    MsgBox Date
   
4. End Sub

½Æ»s¥N½X

1. Sub Ex2()
   
2.    Dim Date
   
3. 
   
4.    Date = DateAdd("m", 1, Date)     '  ¤é´Á + 1­Ó¤ë
   
5.    MsgBox Date
   
6. End Sub

½Æ»s¥N½X

°ò¥»¤W¡A¤W¨â­Ó¥Îªk¦b¥¿³Wªºµ{¦¡ÅÞ¿è»yªkÀ³¥Î¤W¬O¤£³Q¤¹³\ªº¡A
³o¤]¬O VB ¥»¨­ªº»yªkº|¬}¡A¨ì¤F Windows 10 ¤º³¡§@·~¨t²Îµ{¦¡®w
§Y±N¥¦¸É¥¿¤F¡C

1. Sub Ex3()
   
2.    Dim dd
   
3. 
   
4.    dd = DateAdd("m", 1, Date)     '  ¤é´Á + 1­Ó¤ë
   
5.    MsgBox dd       '  ¥ç¬°¤é´Á«¬ºA
   
6. End Sub

½Æ»s¥N½X

blue2263

¦^´_ 6# c_c_lai
­ì¨Ó¦p¦¹,¤F¸Ñ¤F
ÁÂÁÂC¤j¸Ñµª

jackyq

VBA.Date  ¥»¨­´N¬O³Q³]­p¦¨¥i¥H±µ¨ü½á­Èªº

https://msdn.microsoft.com/en-us/library/office/gg278644.aspx

(1) ¦^¶Ç¨t²Î®É¶¡
Returns a Variant (Date) containing the current system date.

(2) ³]©w¨t²Î®É¶¡ ( ©Ò¥H¬O¥i¥H±µ¨ü  Date = DateAdd("m", 1, Date)  ªº¼gªk  )
To set the system date, use the Date statement.