Foros Club Delphi - Variable de Tipo

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Variable de Tipo (https://www.clubdelphi.com/foros/showthread.php?t=77101)

ruedabeat2003

21-12-2011 01:00:36

Variable de Tipo

Hola, tengo que definir una variable de nombre 'la_fecha' tipo TXSDate y en esta variable quiero ponerle el valor tomado desde una tabla (FormatDateTime('yyyy-mm-dd',qAux.fieldByName('fecha_expedicion').AsDateTime), he visto que el tipo TXSDate tiene 3 campos, como asigno cada uno de ellos.
Hice una asignacion del siguiente tipo

Cita:

var
var // Inicia Procedure crea_xdocto
la_fecha:TXSDate;

la_fecha.AsDate := qAux.fieldByName('fecha_expedicion').AsDateTime;

No obtuve error en compilación, ni tampoco en la corrida, es eso correcto o tengo que asignar atributo por atributo en la variable de tipo TXSDate ?

Gracias por la ayuda :o

ecfisa

21-12-2011 01:19:16

Hola.

Yo creo que es correcto, pero para quitarte toda duda podés hacer:

Código Delphi [-]var
  xsd: TXSDate;
begin
  xsd.AsDate := qAux.fieldByName('fecha_expedicion').AsDateTime;
  ShowMessage(Format('%d/%d/%d', [xsd.Day, xsd.Month, xsd.Year]));
  ...

Un saludo.

ruedabeat2003

21-12-2011 02:24:58

Fecha correcta!!!

Código:

var  // Inicia Procedure crea_xdocto

   qAux:TQuery;

   cadenaX,inicio : widestring;

   el_identificador : TipoIdentificador;

   la_fecha:TXSDate;

begin

  la_fecha := TXSDate.Create;

...

   la_fecha.AsDate := qAux.fieldByName('fecha_expedicion').AsDateTime;



   ShowMessage(Format('%d/%d/%d', [la_fecha.Day, la_fecha.Month, la_fecha.Year]));

CORRECTO!!!! :eek: Me desplego el valor correcto: 21/10/2011. Excelente.

La verdad que el foro me ha sacado de grandes problemas y dudas, mucho mejor que acudir con mis compañeros, que todo se lo guardan. Muchas gracias y saludos.

Por hoy me voy tranquilo a casa, ya mañana los sigo bombardeando con dudas. :cool::cool::cool:

La franja horaria es GMT +2. Ahora son las 22:41:38.