'函数代码:
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