- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 14
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2024-11-6
|
¦^´_ 3# shadowming
¨Ì§A¤W±»¡ªº±¡§Î§Ú²q·Q§AÀ³¸Ó¬O¦bµ{¦¡¦Û°Êµ¹È«á¦A¥Î¤â°Ê¥hק鷺®e¦¨§Anªºµ²ªG,
³o¼Ë¤U¦¸µ{¦¡µ¹È«á¦ÛµMÁÙ¬On¦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°µ¦npºâ¤u§@(¦p¤Uzµ{¦¡),
¦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¤Wzµ{¦¡,
±N´å¼Ð«ü©w¦b Sub °Ï¶ô¤º«á«ö F8 «öÁä¥H³æ¨B¼Ò¦¡°õ¦æ,
µM«áÆ[¬Ý "°Ï°ìÅܼÆ" µøµ¡¤¤¦UÅܼƪºÈ§Y¥i±oª¾¦U¨ç¼Æªº§@¥Î. |
|