- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 142
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-6-12
               
|
本帖最後由 Hsieh 於 2013-6-6 23:47 編輯
回復 1# freeffly
- Function ChDate(DateStr As String)
- 'DateStr必須是包含"中華民國年月日"的字串
- Dim Mystr As String, s%
- s = InStr(DateStr, "中華民國") + 4
- Mystr = Mid(DateStr, s, InStr(s, DateStr, "日") - s + 1)
- ChDate = CDate(Replace(Mystr, Val(Mystr) & "年", Val(Mystr) + 1911 & "年"))
- End Function
|
|
發表於 2013-5-30 20:20
| 
