zyzzyva

回復 11# 小俠客
不知道您的原始資料是什麼樣子，如果這些字串不會出現在句首跟句尾，.test那邊就不用改

1. Function IsYear (ByRef Target As String) As Boolean
   
2.     Dim x, oRegexp As Object: Set oRegexp = CreateObject("vbscript.regexp")
   
3.     With oRegexp
   
4.         .Pattern = "\D(\d{4}年?)\D"
   
5.         IsYear = .test("-" & Target & "-")
   
6.     End With
   
7. End Function

複製代碼