Foros Club Delphi - Error con fecha (fecha ya pasada)

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

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

- - Error con fecha (fecha ya pasada) (https://www.clubdelphi.com/foros/showthread.php?t=57783)

Error con fecha (fecha ya pasada)

En primer lugar, saludos, y gracias por prestar atencion a este mensaje.

El caso es que tengo un pequeño trozo de código dónde consulto la fecha del sistema, y luego, muestro el año (solo para verificar que hasta aqui todo funciona correctamente).
El problema, es que el año es el 1899... Si; hace mas de 100 años.

Por si sirve de algo dejaré aquí el código:

Código Delphi [-]procedure calc_anys(var anysup: integer; var anyinf: integer; var ComboboxEdat: TCombobox);
var
year, month, day:word;
Data: TDateTime;
begin
  DecodeDate(Data, Year, Month, Day);
  showmessage(IntToStr(year));
end;

Tengo entendido que cosas así suelen ocurrir cuando falla la pila de la placa base, pero en mi caso no es asi, la fecha de windows es la correcta, i no da problemas.

Alguien sabe que puede ocurrir?

No has inicializado la variable data. Con lo cual pilla la fecha por defecto.

Código:

procedure calc_anys(var anysup: integer; var anyinf: integer; var ComboboxEdat: TCombobox);

var

year, month, day:word;

Data: TDateTime;

begin

  //Fecha hoy

  Data:=date; 

  DecodeDate(Data, Year, Month, Day);

  showmessage(IntToStr(year));

end;

Saludos, Tony

Muchas gracias, ya funciona correctamente!

Fuí iluso, y creí que la funcion DecodeDate usaba la hora del sistema.

Bueno, ya se una coas más! :D