Calcular dias entre 2 fechas.

[Bluefox]

Buenas...
Necesito calcular la fecha entre 2 fechas, pero en base 365. Quiero decir, sin contar los años bisiestos.

Por ejemplo
entre 29/11/2017 y el 29/11/2020 el days between o la resta entre fechas, nos da 1096 días, cuando necesitaría 1095.

alguna idea? gracias.

[Casimiro Noteví]

¿Y los meses que tienen 30 o 31 cómo los cuentas?
Si vas a fijar los días en 365, entonces contarás que cada mes tiene 365/12=30,416666667 días.

[Bluefox]

Pues en principio es como si no existiera el 29 de febrero.
Enero 31, Febrero 28, Marzo 31.... etc.
No sirve el valor medio

[Casimiro Noteví]

Pues hazlo normalmente con DaysBetween y luego restas un día si es año bisiesto.

[Bluefox]

Debería de saber si entre las fechas, hay algun bisiesto y restarle el numero de bisiestos.
Quiero decir:
29/11/2017 y el 29/11/2020 el days between o la resta entre fechas, nos da 1096 días, cuando necesitaría 1095.
29/11/2017 y el 28/02/2020 el days between o la resta entre fechas, nos da 821 días Que seria correcto.


entre el 01/01/2020 y el 28/01/2020 hay 58 días.
entre el 01/01/2020 y el 01/03/2020 hay 60 días, pero necesitaría un 59.

[[duilioisola]]

Con fuerza bruta he hecho esto...

Código Delphi [-]
// Log(s : string) imprime [TimeStamp] + s

procedure TFMPruebas.TButtDaysBetweenClick(Sender: TObject);
var
   F1, F2 : TDateTime;

   function Dias29FebreroEntreFechas(ANow, AThen: TDateTime) : integer;
   var
     aYear, aMonth, aDay: Word;
     T : TDateTime;
   begin
      Result := 0;

      // Invierto si es necesario
      if (ANow > AThen) then
      begin
         T := AThen;
         AThen := ANow;
         ANow := T;
      end;

      // Recorro todos los dias entre las dos fechas y cuento los 29/2.
      while (ANow < AThen) do
      begin
         DecodeDate(ANow, aYear, aMonth, aDay);
         if ((aMonth = 2) and (aDay = 29)) then
            inc(Result);
         ANow := IncDay(ANow);
      end;
   end;

begin
  F1 := EncodeDate(2017, 11, 29);
  F2 := EncodeDate(2020, 11, 29);
  Log(Format('DaysBetween(%s, %s) = %d (- %d) = %d', [DateToStr(F2), DateToStr(F1), DaysBetween(F2, F1), Dias29FebreroEntreFechas(F2, F1), DaysBetween(F2, F1) - Dias29FebreroEntreFechas(F2, F1)]));

  F1 := EncodeDate(2017, 11, 29);
  F2 := EncodeDate(2020, 02, 28);
  Log(Format('DaysBetween(%s, %s) = %d (- %d) = %d', [DateToStr(F2), DateToStr(F1), DaysBetween(F2, F1), Dias29FebreroEntreFechas(F2, F1), DaysBetween(F2, F1) - Dias29FebreroEntreFechas(F2, F1)]));

  F1 := EncodeDate(2020, 01, 01);
  F2 := EncodeDate(2020, 02, 28);
  Log(Format('DaysBetween(%s, %s) = %d (- %d) = %d', [DateToStr(F2), DateToStr(F1), DaysBetween(F2, F1), Dias29FebreroEntreFechas(F2, F1), DaysBetween(F2, F1) - Dias29FebreroEntreFechas(F2, F1)]));

  F1 := EncodeDate(2020, 01, 01);
  F2 := EncodeDate(2020, 03, 01);
  Log(Format('DaysBetween(%s, %s) = %d (- %d) = %d', [DateToStr(F2), DateToStr(F1), DaysBetween(F2, F1), Dias29FebreroEntreFechas(F2, F1), DaysBetween(F2, F1) - Dias29FebreroEntreFechas(F2, F1)]));
end;

Código Delphi [-]
[2017-11-29 17:08:23.591] DaysBetween(29/11/2020, 29/11/2017) = 1096 (- 1) = 1095
[2017-11-29 17:08:23.591] DaysBetween(28/02/2020, 29/11/2017) = 821 (- 0) = 821
[2017-11-29 17:08:23.591] DaysBetween(28/02/2020, 01/01/2020) = 58 (- 0) = 58
[2017-11-29 17:08:23.591] DaysBetween(01/03/2020, 01/01/2020) = 60 (- 1) = 59