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

[µo°Ý] ¤é´Á°ÝÃD

[µo°Ý] ¤é´Á°ÝÃD

¦U¦ì¥ý¶i
§Ú¥Îweb¸ê®Æ·|¶×¤Jexcel¸Ì
¦]¬°¦³¤é´ÁÄæ¦ì
¥i¬O¦bexcelÅã¥Ü«o«Ü©_©Ç
¦]¬°¶×¤J¸ê®Æ¬O¥Á°êªº99¦~
¥i¬O¦bEXCEL¸Ì³ºµMÅã¥Ü1999¦~
¬O¥X¤F¤°»ò°ÝÃD?
¥i¥H§i¶D§Ú¶Ü?

¥»©«³Ì«á¥Ñ luhpro ©ó 2010-8-7 00:01 ½s¿è

¦^´_ 1# shadowming

³o¬O¦]¬° Excel ¬O­^»y¨t(¨Ï¥Î¦è¤¸¦~¥÷)ªº°ê®a©Ò°µ¥X¨ÓªºªF¦è,
©Ò¥H³]­p¤W³£¬O¥H¦è¤è¤H¨Ï¥Î¤W¤è«K¬°¥D,
·í§A¿é¤J 99/4/5 ®É,
¨t²Î¬O·í°µ¤@­Ó¦è¤è¤H¦b¨Ï¥Î¤é´ÁªºÂ²©ö¿é¤J¤è¦¡,
¤]´N¬O·Q¿é¤J '99/4/5 ¬Ù²¤¤F«e­±ªº 19 ,
¬G¦Ó Excel ·|¦Û°Ê¦b«e­±¥[¤W 19 ´NÅܦ¨ 1999/4/5 ¤F.

¹ê°È¤W§Ú­Ì·QÅý¤é´Á¯à¥¿±`Åã¥Üªº¸Ü,
´N­n¦b±N¤é´Á¶Çµ¹Àx¦s®æ«e¥ý§â¦~¥÷¥[¤W 1911 Åܦ¨ 2010/4/5 ¤~¯à¶Çµ¹Àx¦s®æ,
¥t¥~¤]¥i¥Hª½±µ±N ¤é´Áªº serial number [§YDATEVALUE(99/4/5)] + 4018 ¶Çµ¹Àx¦s®æ«á¦A±NÅã¥Ü®æ¦¡§ï¦¨¤é´Á§Y¥i.

TOP

¦^´_ 2# luhpro

ª½±µ±N ¤é´Áªº serial number [§YDATEVALUE(99/4/5)] + 4018 ¶Çµ¹Àx¦s®æ«á¦A±NÅã¥Ü®æ¦¡§ï¦¨¤é´Á§Y¥i.

§Ú·Ó±z»¡±o¤èªk³o¼Ë¤U¥h°µ
¥i¬O¥u­n§Ú²{¤W§ó·s¸ê®Æ
·|¦AÅܦ^­ì­È
¬O­þ¸Ì¿ù¤F?

TOP

§ó·s¸ê®Æ´N¬OÂл\¸ê®Æ¤½¦¡´N¨S¤F
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# shadowming

¨Ì§A¤W­±»¡ªº±¡§Î§Ú²q·Q§AÀ³¸Ó¬O¦bµ{¦¡¦Û°Êµ¹­È«á¦A¥Î¤â°Ê¥h­×§ï¤º®e¦¨§A­nªºµ²ªG,
³o¼Ë¤U¦¸µ{¦¡µ¹­È«á¦ÛµMÁÙ¬O­n¦A¦¸¸g¹L "¤â°Ê" ¥h­×§ï¤º®e¤~·|¥¿½TÅo.

§Ú·Q§A¥i¥H¥ý¥Îµ{¦¡±N­È¥á¨ì§OªºÀx¦s®æ,
¦b³z¹L¤¤Ä~Àx¦s®æ¤W­Ó§O¤½¦¡­pºâ,
³Ì«á¦A©ó­ì¥ý­nµ¹­ÈªºÀx¦s®æ¤W¨ú¤Þ¥Îºâ¥X¨Óªº­È.

¥t¤@­Ó¤è¦¡´N¬O¦bµ{¦¡µ¹­È«e´N°µ¦n­pºâ¤u§@(¦p¤U­zµ{¦¡),
¦A±Nµ{¦¡ºâ¦nªº­È¥á¹L¥h§Y¥i.
Sub test()

  Dim sDate$
  
  sDate = "99/4/8"
  sDate = eDate2cDate(sDate)

End Sub


Function eDate2cDate(sDate As String) As String

  Dim iYear, sMonth$, sDay$
  
  iYear = Year(sDate)
  sMonth = Month(sDate)
  sDay = Day(sDate)
  
  iYear = iYear + 11
  eDate2cDate = DateSerial(iYear, sMonth, sDay)

End Function

§A¥i¥H¶}¤@­Ó·sªºExcelÀÉ, ·s¼W¤@­Ó¼Ò²Õ,¦A¶K¤W¤W­zµ{¦¡,
±N´å¼Ð«ü©w¦b Sub °Ï¶ô¤º«á«ö F8 «öÁä¥H³æ¨B¼Ò¦¡°õ¦æ,
µM«áÆ[¬Ý "°Ï°ìÅܼÆ" µøµ¡¤¤¦UÅܼƪº­È§Y¥i±oª¾¦U¨ç¼Æªº§@¥Î.

TOP

¦^´_ 5# luhpro

¤F¸Ñ
¥i¥H¥Î¤F
ÁÂÁÂÀ°¦£¸Ñµª
¤]·PÁªO¤j¨Ó¬Ý¬Ý

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD