麻辣家族討論版版 - Powered by Discuz! Board

複製代碼

Function MDate2Date(ByVal strDate As String, ByRef RefDate As Date) As Boolean
Dim MatChes As Object
Dim I As Long, K As Long
Dim strTemp As String
Dim Date1 As Date
On Error GoTo MDate1DateError
RefDate = Date1
Date1 = #1/1/1912#
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "\d+[\\/年\-]\s*\b((0{0,1}[1-9])|(1[0-2]))[\\/\-月]\s*\b((0{0,1}[1-9])|([12]\d)|(3[0-1]))(日|\b)"
Set MatChes = .Execute(strDate)
If MatChes.Count Then
strDate = MatChes.Item(0)
Else
Exit Function
End If
.Pattern = "\d+"
Set MatChes = .Execute(strDate)
For I = 1 To 3
K = Val(MatChes.Item(I - 1))
Date1 = DateAdd(Choose(I, "yyyy", "m", "d"), K - 1, Date1)
Next I
MDate2Date = Day(Date1) = K
If MDate2Date Then RefDate = Date1
End With
MDate1DateError:
End Function

複製代碼