Public Sub Main()
Dim strDat As String
strDat = "1970-09-26T16:00:00+00:00"
strDat = Scan(strDat, "*-*-*T*")[1] &/ Scan(strDat, "*-*-*T*")[2] &/ Scan(strDat, "*-*-*T*")[0]
Print "Se la data deve essere localizzata: "; Date(strDat)
Print "Se la data *non* deve essere localizzata: "; CDate(strDat)
End