Rancy
27-06-2008, 11:27:52
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:
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?
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:
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?