Ver Mensaje Individual
  #3  
Antiguo 18-09-2025
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is online now
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 19.437
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Lo primero que hay que saber es si tu versión de Delphi soporta la función que te he puesto: DateToISO8601

Si la soporta, sólo debes usarla para convertir tu valor de fecha en una cadena (string):

Código Delphi [-]
implementation

{$R *.dfm}
uses
  System.DateUtils;

procedure TForm4.Button1Click(Sender: TObject);
var
  fecha:TDateTime;
  str1, str2:string;
begin
  fecha := Date();  // obtener fecha y hora actual;
  str1 := DateToISO8601(fecha, True);
  str2 := DateToISO8601(fecha, False);
  ShowMessage('Fecha con AinputUTC a True:  ' + str1 + sLineBreak +
              'Fecha con AinputUTC a False: ' + str2);
end;

Si tu dato viene de un campo como comentas, pues utiliza el valor del campo (no del componente), por ejemplo:

Código Delphi [-]
str2 := DateToISO8601(Tabla1.FieldByName('CampoFecha').AsDateTime, False);

Si tu versión de delphi no lo soporta, pues deberás formatearla tú como has hecho más arriba con un FormartDateTime.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita