Advertisement
Guest User

Untitled

a guest
Jun 27th, 2019
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.35 KB | None | 0 0
  1. Saturday, June 11 2011
  2.  
  3. Sub changedtformat()
  4. Dim rawdate As String, cleandate As Date, resultdate As Date
  5.  
  6. rawdate = "Saturday, June 11 2011"
  7. cleandate = Mid(rawdate, InStr(1, rawdate, ",") + 2, Len(rawdate))
  8. resultdate = CDate(cleandate)
  9. MsgBox resultdate
  10.  
  11. End Sub
  12.  
  13. =DATEVALUE(SUBSTITUTE(MID(A1,FIND(" ",A1)+1,9999)," ",", ",2))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement