check the attachement
Function extractdate(x As String)
Dim i, j, k, s, t As Integer
x = x & " "
i = Len(x)
j = InStr(x, "%")
For k = j To i
If IsNumeric(Mid(x, k, 1)) Then
s = k
Exit For
End If
Next k
For k = s + 1 To i
If Mid(x, k, 1) = " " Then
t = k
Exit For
End If
Next k
ex
Hope this may help you...
Regards,
Manoj Kumar
On Mon, Jan 24, 2011 at 1:04 PM, Chidurala, Shrinivas <
shrinivas.chidur...@citi.com> wrote:
> Dear All,
>
> Please can any one help me to extract date in given securities by way of
> VBA code and formula.
>
> *Security* *Date* REC 07.60% *22
Dear All,
Please can any one help me to extract date in given securities by way of VBA
code and formula.
SecurityDate
REC 07.60% 22JAN13 22-Jan-2013
08.80% STATE BKOF BK&JAIPUR 05SEP11 FD
GAIL INDIA LIMITED
HDFC 0.00% 24AUG12
LIC HOUSING FINANCE 07.50% 10JUN13
Regards,
Shrinivas
-