Variable de Tipo

[ruedabeat2003]

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

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

[ecfisa]

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]

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!!!! 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.