[jhonny]

El problema es que si hacemos ese algoritmo, nos pasaríamos del año 200 D.C. inmediatamente al año 2007 D.C. sería como una maquina que trae a alguien del pasado inmediatamente al presente. Pero si queremos que esa persona sea como Highlander el inmortal y ver en un instante como pasa por cada uno de esos años, podemos hacerlo asi .

Código Delphi [-]
var
  nAgnus_Rarus:Integer;
  nDiferencia:Integer;
  nAgnus_Final:Integer;
begin
  nAgnus_Rarus:=200;
  nDiferencia  :=1806;
  for nAgnus_Final := 0 to nDiferencia+nAgnus_Rarus do
  begin
  end;
  ShowMessage('Año correcto: '+FormatFloat(',0', nAgnus_Final) + ' dc.');
end;

Pero si ustedes son como yo y se aburrieron de ver la serie de esos inmortales... abria que usar:

Código Delphi [-]
var
  nAgnus_Rarus, nAgnus_Final :string;
begin
  nAgnus_Rarus:='2.00';
  nAgnus_Final:='7';
  ShowMessage('Año correcto: '+ nAgnus_Rarus+nAgnus_Final+ ' dc.');
end;

Pero, ya se lo que están pensando, "Este man tiene que estar desocupadisimo", la verdad es que no y por eso desde un principio dije, hagámosla asi:

Código Delphi [-]
ShowMessage('Año correcto: 2.007 dc.');

¿Que si me la fume verde?...