Sub Activity_Create(FirstTime As Boolean)
Log(ParseDate("2012-07-18T10:46:36"))
End Sub
Sub ParseDate(s As String) As String
DateTime.DateFormat = "yyyy-MM-dd"
Dim data As Long
data = DateTime.DateParse(s)
DateTime.DateFormat = "MM/dd/yyyy"
Return DateTime.Date(data)
End Sub