Como converter esta String data <dhEmi>2014-06-01T00:00:00-03:00</dhEmi> em data ?

Delphi

26/12/2014

Como comverter esta String data <dhEmi>2014-06-01T00:00:00-03:00</dhEmi> em data ?

1-Depois recuperar a data ?
2-Recuperar a Hora ?

Obs: Uso Delphi-7

A quem puder ajudar, desde ja meus agradecimentos.

100+

ANT.CARLOS/SP
Antonio Jesus

Antonio Jesus

Curtidas 0

Melhor post

Renato Rubinho

Renato Rubinho

29/12/2014

Buenos,

Você precisa do TimeZone (-03:00)? Precisaria pegar alguma função que interpreta o TimeZone através do configurado no computador.
Se precisa apenas da Data e Hora, Utilize o EncodeDateTime.

  EncodeDateTime(StrToInt(Copy('2014-06-01T00:00:00-03:00',1,4)),
                 StrToInt(Copy('2014-06-01T00:00:00-03:00',6,2)),
                 StrToInt(Copy('2014-06-01T00:00:00-03:00',9,2)),
                 StrToInt(Copy('2014-06-01T00:00:00-03:00',12,2)),
                 StrToInt(Copy('2014-06-01T00:00:00-03:00',15,2)),
                 StrToInt(Copy('2014-06-01T00:00:00-03:00',18,2)),
                 0); // Milisegundos deixa zerado porque não existe no formato recebido


Abraççç,
rrubinho
GOSTEI 1
POSTAR