VB提取字符串中的日期

'函数代码：

Function getDate(a As String) As String
    On Error GoTo ToExit '打开错误陷阱
    '------------------------------------------------
    Dim b As String, ok1 As Integer
    For i = 1 To Len(a)
        b = Mid$(a, i, 1)
        If b >= "0" And b <= "9" Or b = "-" Then
            ok1 = ok1 + 1
            getDate = getDate & b
        ElseIf ok1 < 6 Then
            ok1 = 0
            getDate = ""
        End If
    Next i
    '------------------------------------------------
    Exit Function
    '----------------
ToExit:
    getDate = ""
    Resume Next
End Function

'调用：

Private Sub Form_Load()
    MsgBox getDate("E:\日报\第四采油厂采油注水综合日报\第四采油厂采油注水综合日报(2013-9-5)实际.xls")
End Sub

---

更多精彩>>>