Guest User

Untitled

a guest
Jun 24th, 2018
101
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.25 KB | None | 0 0
  1. ' Parse a date in ISO 8601 "universal combined" format: YYYY-MM-DDTHH:MM:SSZ
  2. ' This function ALSO accepts SQL date format: YYYY-MM-DD HH:MM:SS
  3. Function CDateFromUniversal( s )
  4.  
  5. CDateFromUniversal = CDate(Mid(s, 1, 10) & " " & Mid(s, 12, 8))
  6.  
  7. End Function
Add Comment
Please, Sign In to add comment