¿Existe DateUtils para Delphi 5?

[jhonny]

Empezado por ContraVeneno

Gracias por el dato jhonny.

Que bueno que de algo te sirva el dato , por otro lado... tal vez te sirva la función YearSpan (Aunque la verdad es que no es muy precisa), de todas formas pruebala bien y nos cuentas .

[jhonny]

Aunque viéndolo desde otro punto de vista, la implementación de la función YearsBetween simplemente es esta:

Código Delphi [-]
 
function YearsBetween(const ANow, AThen: TDateTime): Integer;
begin
  Result := Trunc(YearSpan(ANow, AThen));
end;

[ContraVeneno]

Y la implementación de la función YearSpan es esta:

Código Delphi [-]
Var
  { average over a 4 year span }
  ApproxDaysPerMonth: Double = 30.4375;
  ApproxDaysPerYear: Double  = 365.25;

  { The above are the average days per month/year over a normal 4 year period. }
  { We use these approximations because they are more accurate for the next }
  {  century or so.  After that you may want to switch over to these 400 year }
  {  approximations... }
  {    ApproxDaysPerMonth = 30.436875 }
  {    ApproxDaysPerYear  = 365.2425 }

.....
function YearSpan(const ANow, AThen: TDateTime): Double;
begin
  Result := DaySpan(ANow, AThen) / ApproxDaysPerYear;
end;
...
function DaySpan(const ANow, AThen: TDateTime): Double;
begin
  Result := SpanOfNowAndThen(ANow, AThen);
end;

function SpanOfNowAndThen(const ANow, AThen: TDateTime): TDateTime;
begin
  if ANow < AThen then
    Result := AThen - ANow
  else
    Result := ANow - AThen;
end;

Complicado, complicado, pues no es...

[[Lepe]]

No, claro, esas dos constantes son muy intuitivas y seguro que yo mismo las habría deducido cómo máximo en 3 minutejos, bah... será por deducir....

Saludos

[jhonny]

Empezado por Lepe

No, claro, esas dos constantes son muy intuitivas y seguro que yo mismo las habría deducido cómo máximo en 3 minutejos, bah... será por deducir....

Saludos

Cierto , es que creí que D5 tenia la función YearSpan .

[ContraVeneno]

Entonces, ¿puedo dejar la función así?:

Código Delphi [-]
function YearsBetween(const ANow, AThen: TDateTime): Integer;
Begin
 Result := Trunc((Abs(ANow - AThen)) / 365.2425);
end;

[jhonny]

Empezado por ContraVeneno

Entonces, ¿puedo dejar la función así?:

No veo, el "porque no", solo que para migrar ese proyecto en el futuro
tendrás que tener en cuenta ese detalle y decidir si desea seguir usando
tu implementación o la que viene de fabrica .