- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 23# Hsieh
¦^´_ 21# GBKEE
§Ú±N GBKEE ª©¤jªº¼Ò²Õ¡B¥[¤W Hsieh ª©¤j´£¨Ñªº Function¡A
¨âªÌ²Õ¦X«áÁÙÆZ¹ê¥Îªº¡G- Sub Ex_¤é´Á¼ÆÈ3()
- Dim i As Long, xl_Year As Variant
- With Range("B1:B" & [A1].End(xlDown).Row)
- For i = 1 To .Count
- .Cells(i) = ChDate(.Cells(i).Offset(, -1))
- If .Cells(i) <> "" Then .Cells(i).Offset(, 1) = CEDate(.Cells(i))
- Next
- ' .Offset(,-1)¡G ¥ª²¾ 1 Äæ (B -> AÄæ)¡F Resize(,3)¡G ±qAÄæ°_ÂX¥R¬°¤TÄæ (A¡BB¡BC ¤TÄæ)
- ' .Cells(1) = "2012¦~10¤ë12¤é" (B Äæ)¡A .Cells(1).Offset(, 1) = "2012/10/12" (C Äæ)
- ' .Offset(, -1).Resize(, 3).Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlNo
- .Offset(, -1).Resize(, 3).Sort Key1:=.Cells(1).Offset(, 1), Order1:=xlAscending, Header:=xlNo
- End With
- End Sub
½Æ»s¥N½X- Function ChDate(DateStr As String)
- ' DateStr¥²¶·¬O¥]§t"¤¤µØ¥Á°ê¦~¤ë¤é"ªº¦r¦ê
- Dim Mystr As String, s%
-
- s = InStr(DateStr, "¤¤µØ¥Á°ê") + 4
- If s = 4 Then ChDate = "": Exit Function
- Mystr = Mid(DateStr, s, InStr(s, DateStr, "¤é") - s + 1)
- ChDate = Replace(Mystr, Val(Mystr) & "¦~", Val(Mystr) + 1911 & "¦~")
- End Function
- Function CEDate(DateStr As String) ' ¡uC.E.¡v¬O¡uCommon Era¡vªºÁY¼g¡A·N¬°¡u¤½¤¸¡v
- CEDate = CDate(DateStr)
- End Function
½Æ»s¥N½X ÁÂÁ¨â¦ìª©¤jªº¹©¤OÀ°¦£¡C |
|