Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Saturday, June 11 2011
- Sub changedtformat()
- Dim rawdate As String, cleandate As Date, resultdate As Date
- rawdate = "Saturday, June 11 2011"
- cleandate = Mid(rawdate, InStr(1, rawdate, ",") + 2, Len(rawdate))
- resultdate = CDate(cleandate)
- MsgBox resultdate
- End Sub
- =DATEVALUE(SUBSTITUTE(MID(A1,FIND(" ",A1)+1,9999)," ",", ",2))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement