В Excel вы можете просто взять все слева от символа T
. Если эта строка даты была в ячейке A1, то:
=DATEVALUE(LEFT(A1,FIND("T",A1)-1))
В качестве альтернативы в VBA, если строка даты была сохранена в переменной с именем sFoo
:
CDate(Left$(sFoo,Instr(sFoo,"T")-1))