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

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ªº¸Ñ»¡)

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