Problemas al calcular días entre enero y febrero

[dec]

Hola a todos,

Tal vez quieras usar la función "DaysBetween" de la unidad "DateUtils" como en el código de abajo: *

Código Delphi [-]
uses
  DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  Fromdate, ToDate : TDateTime;
begin
  Fromdate := EncodeDateTime(2019, 01, 31, 0, 0, 0, 0);
  ToDate   := EncodeDateTime(2019, 02, 12,  0, 0, 0, 0);

  ShowMessageFmt('Total de días de diferencia: %d', [DaysBetween(ToDate, Fromdate)]);
end;

* Tomado de Delphi Basics

[tiqui_loquito]

Buena tarde dec

Gracias por tu pronta respuesta.

La función que te uso la realizo para calcular la edad respecto a la fecha de nacimiento de un usuario y la fecha en que se esta creando dicho paciente. El calculo lo hace bien para meses y años. El problema se encontró en el caso puntual que mencione, el cual el paciente nació el 1 de enero y lo estaban registrando el 12 de febrero y le ponía 9 días.

Ahora, con respecto a lo que me dices, sería usarla cuando los años y los meses sean ceros?, de esa manera lo entiendo.

Gracias

[dec]

Hola a todos,

La función "EncodeDateTime" te permite conformar una variable "TDateTime", que, es la que requiere después "DaysBetween", por ejemplo. Los argumentos de la variable "EncodeDateTime" son, por este orden, año, mes, día, hora, minuto, segundo y milisegundo. En el caso de arriba se dejan en cero la hora, minuto, segundo y milisegundo, porque, no los he considero relevantes para el caso que nos ocupa. Evidentemente, tú puedes usar "EncodeDateTime" con los argumentos que precises.

No estoy seguro si esto responde tu duda o no...

[tiqui_loquito]

Gracias David Esperalta

Realice la siguiente modificación al código y me retorna los días cuando solo no ha transcurrido ni un mes

Código Delphi [-]
   if( DDI <= DDF ) then
      DD := DDF - DDI
   else
   begin
      DD := DDF + MonthDays[IsLeapYear(AAF),MMF] - DDI;
      MM := MM - 1;

      if MM = 0 then
      DD:=  DaysBetween(FechaI, FechaF)
   end;

[tiqui_loquito]

Puedo dar el tema por resuelto.

Gracias a David Esperalta he resuelto mi duda, muchas gracias.

Espero este hilo le sea de ayuda a otras personas.

[Casimiro Noteví]

Empezado por tiqui_loquito

Puedo dar el tema por resuelto.
Gracias a David Esperalta he resuelto mi duda, muchas gracias.
Espero este hilo le sea de ayuda a otras personas.

Es que David Esperalta es uno de los maestros de clubdelphi

[tiqui_loquito]

Empezado por Casimiro Notevi

Es que David Esperalta es uno de los maestros de clubdelphi

Es muy cierto casimiro, igual que tu, efecsia y otros más.

Gracias por colaborar siempre