faça o seguinte:
intVirg = InStr(1, ttime, ",") 'localiza virgula para separar inteiro do decimal
partData = Left$(ttime, intVirg - 1) 'salva parte inteira refere-se a data
partTime = Mid$(ttime, intVirg + 1) 'salva parte decimal refere-se ao horas
'Calcula data num sistema cuja data referencia é janeiro de 1970 se for vb
'data base 1 Janeiro 100 até 31 Dezembro 9999
fieldData = DateAdd("s", partData, CDate("01/01/1970 00:00:00"))
'soma horas passadas a data encontrada
fieldData = DateAdd("s", partTime, fieldData)
