Ver Mensaje Individual
  #9  
Antiguo 05-03-2012
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
En ese caso, puedes hacer algo como esto:

Código Delphi [-]
function FormatearFechaHora(Cadena: String): String;
var
  Y, M, D, H, N, S: Integer;
  DT: TDateTime;

begin
  Y := StrToInt(Copy(Cadena, 1, 4));
  M := StrToInt(Copy(Cadena, 5, 2));
  D := StrToInt(Copy(Cadena, 7, 2));
  H := StrToInt(Copy(Cadena, 9, 2));
  N := StrToInt(Copy(Cadena, 11, 2));
  S := StrToInt(Copy(Cadena, 13, 2));

  DT := EncodeDateTime(Y, M, D, H, N, S, 0);

  {
    Operaciones con DT
  }

  // Observa el uso de las dobles comillas para la T
  Result := FormatDateTime('yyyy-mm-dd"T"hh:mm:ss', DT);
end;

// Saludos
Responder Con Cita