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

[µo°Ý] ¦³½Öª¾¹D¤é´Áªº¥[ªk?

[µo°Ý] ¦³½Öª¾¹D¤é´Áªº¥[ªk?

Dim day_tmp As date = #9/24/2010#

For i As Integet = 1 to 200
     °j°é¤¤Åý day_tmp ¦Û°Ê²Ö¥[ 1 ¤Ñ
     ¦Ó¦~¤ë¤é·|¦Û°Ê½Õ¾ã
Next i

§ä¹M¤F MSDN §ä¤£¨ì¦³»¡©úªº,¦³½Ö¦³¨Ï¥Î¹L©Îª¾¹Dªº¥i¥H´£¨Ñ¸Ñ¨M¤è®×?
V98

¦^´_ 1# linshin1999
  1. Sub yy()
  2. Dim mydate  As Date  '«Å§i¤é´ÁÅܼÆ
  3. mydate = #9/24/2010# '«ü©w¶}©l¤é´Á
  4. For i = 1 To 20
  5.    mydate = mydate + i  'ÅܼÆ+1
  6. Next
  7. MsgBox mydate
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Hsieh ª©¥D,VBA¥i¥H³o¼Ë¥Î¥i¬OVB¤£¦æ,³o³¡¥÷§Ú¹Á¸ÕÂà¨ìVBA¨Ó³B²z¬Ý¬Ý,ÁÂÁÂ!!
V98

TOP

¦^´_ 3# linshin1999

¬°¦ó·|¤£¦æ?
°²³]§A¥Î«ö¶s±Ò°Ê
  1. Private Sub Command1_Click()
  2. Dim mydate  As Date  '«Å§i¤é´ÁÅܼÆ
  3. mydate = #9/24/2010# '«ü©w¶}©l¤é´Á
  4. For i = 1 To 20
  5.    mydate = mydate + i  'ÅܼÆ+1
  6. Next
  7. MsgBox mydate
  8. End Sub
½Æ»s¥N½X
°õ¦æªí³æ¡A«ö¤U«ö¶s¤£¬O´N²£¥Í°T®§®ØÅã¥Ü¤é´Á¶Ü?
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Hsieh ª©¥D:VBA¥i¥H¦ý¬O VB ¤£¦æ, ¥i¬O³o¤@¬q¨t²Î¬O¥ÎVB¼gªº.
V98

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-1-11 13:57 ½s¿è

¦^´_ 5# linshin1999
¨C¦¸¥[1¤~¹ï¤£¬O¥[i
  1. Private Sub Command1_Click()
  2. Dim mydate  As Date  '«Å§i¤é´ÁÅܼÆ
  3. mydate = #9/24/2010# '«ü©w¶}©l¤é´Á
  4. For i = 1 To 20
  5.    mydate = mydate + 1  'ÅܼÆ+1
  6. Next
  7. MsgBox mydate
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ linshin1999 ©ó 2011-1-11 16:05 ½s¿è

¦^´_ 6# Hsieh


    ª©¥D§A½T©w¬O¦b Vistual Basic ¼Ò¦¡¤U°õ¦æªº ?
    ¦pªG¬O³o¼Ë¯u¬OÁ«¤j¤F,¦£¤F¤@­Ó¤U¤È²×©ó¥Î¤gªk½m¿ûªº¤èªk§¹¦¨¤F¤é´Á¥[ªk,¦ý¬O§Ú¨Ìª©¥Dªº¼gªk, ¦b§Úªº Vistual Basic ¤U´ú¯uªº¤£¦æ.
V98

TOP

Microsoft Visual Basic 6.0
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ linshin1999 ©ó 2011-1-11 20:26 ½s¿è

¦^´_ 8# Hsieh


   ¤£¬O,¬OVisual Studio 2010 (Vb), ©Ò¥H«Ü¦h¥Î  VB6 ªº¤H¥Î¤£²ßºD Visual Studio ¤¤ªº VB ¦]¬°¥[¤J¤F Web
V98

TOP

¥»©«³Ì«á¥Ñ ·t¶Â ©ó 2011-1-11 23:49 ½s¿è

¸Õ¸Õ§a

Dim day_tmp As date = #9/24/2010#

For i As Integet = 1 to 200
   day_tmp = day_tmp.AddDays(1)
Next i

©Î    day_tmp = day_tmp.AddDays(200)  ¤@¦æ¸Ñ¨M(·|¨Ì¤ë¥÷¦Û°Ê¸õ30©Î31 ¤Ñ)


¥t   vb6   ¸òvb.net(vb2005¡Bvb2008¡Bvb2010) ªº¼gªk®t«Ü¦h¡A¦ýÆ[©À¬O¤@¼Ëªº
¬O¾Çµ{¦¡¦Ó¤£¬O­nµ{¦¡¡A¬O¶i¨Bªº°ò¦

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD