Function leftD(A As String)
Dim Sl As Integer, i As Integer, j As Integer
Sl = Len(A)
For i = Sl To 1 Step -1
j = Asc(Mid(A, i - 1, 1))
If j >= 48 And j <= 57 Then
leftD = Left(A, i - 1)
Exit For
End If
Next i
End Function
I suppose there are no digits after your date.
If you are experiencing a similar issue, please ask a related question
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
24 Experts available now in Live!