Suma Antiguedad Laboral
 

Una duda tengo que sumar rangos de fechas de una persona por actividad laboral:
Ej: 01/01/2015 - 02/01/2016 = 1 año y 1 un dia
01/01/2017 - 02/04/2018 = 1 año - 3 meses - 2 dias etc...


Tengo la funcion que me convierte por rango de fechas a año-mes -dia pero no encuentro nada que me sume todos los resultados y me de el valor final ya que si sumo la cantidad de dias entre todos los rangos no me da igual.


Lo que hago en ese momento es suma total de dias de todos los rangos pero se que no es real el valor.

Código Delphi [-]
....

...('select DATEDIFF(fecha_final,a.fecha_inicio) from antiguedad  
....('where documento = :docu')...
while  not zquery5.Eof do
           begin
             cantidaddias :=  zquery5.Fields[0].AsInteger + 1 ;
              sumadias := sumadias + cantidaddias;
             .....
              zquery5.Next;
           end;





  dias := sumadias;
  Resul:= dias/30.41;
  meses := trunc(resul);
  
  dias1 := dias mod 30;

 if dias1 = 1 then dias1 := 0;
  case meses of
    0:
    begin
      edit6.Text := intToStr(dias);


    end;
    1..24:
    begin
      edit5.Text := intToStr(meses);
      edit6.Text := intToStr(dias1);

    end;
  else
    begin
      edit4.Text := intToStr(meses div 12);
      edit5.Text := intToStr(meses mod 12);
      edit6.Text := intToStr(dias1);
    end;
  end;

¿Y no te sirve calcular con DaysBetween() o alguna otra función de manejo de fechas?

Antiguedad
 

Si gracias pero mi duda es lo mismo calcular el day between y sumar todos los dias y de la cantidad de dias que medio dio, ejemplo : 2191 dias llevarlo a Año Mes Dia me parece que no da igual que calcular los rangos y sumar de esas partes los Años Mes Dia, porque no son dias corridos..


estoy inventando esto: no se si me da bien debo verificar.

Código Delphi [-]
.......................................

 while  not zquery5.Eof do
           begin

             DecodeDate(zquery5.Fields[0].AsDateTime, AAI, MMI, DDI);
             DecodeDate(zquery5.Fields[1].AsDateTime, AAF, MMF, DDF);

   AA := AAF - AAI;

   if( MMI <= MMF ) then
      MM := MMF - MMI
   else
   begin
      MM := MMF + 12 - MMI;
      AA := AA - 1;
   end;

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

   if MM < 0 then
   begin
      AA := AA - 1;
      MM := 12 + MM;
   end;

  aa1 := aa+aa1;
  mm1 := mm + mm1;
  dd1 := dd + dd1;

  If dd1 > 29 then
     begin
       dd1:= dd1 - dd;
       mm1 := mm1 + 1;
     end;


  if mm1 > 11 then
     begin
       mm1 := mm1 - 12;
       aa1 := aa1 + 1;

     end;



              zquery5.Next;
  end;

edit4.Text  := inttostr(aa1);
edit5.Text  := inttostr(mm1);;
edit6.Text  := inttostr(dd1);

Un campo fecha es un número. Si usas la función indicada por TiammatMX, te devuelve los días entre fechas. Haces la suma y listo.

Código SQL [-]
select sum( DaysBetween(fechinicio,fechafin) ) as sumadias from tbTablaquesea where usuario=elusuarioquesea

Antiguedad
 

Gracias Casimiro entendi, pero mi pregunta es: da igual los valores en año mes dia de hacer una sumatoria de dias y ese valor descomponerlo en AAMMDD.


Que como son rangos de fechas no correlativos tomar esos rangos y descomponerlos en AAMMDD y despues sumarlos?. Al tener algo correlativo es como que dijiera 2000 dias del 01/01/2011 al 31/12/2018 y en realidad estos mismos no fueron correlativos y entre medio pudo haber existido años bisiestos o meses con 31 0 30 segun los rangos.


Perdon por si no me supe expresar.


Saludos.

Hola.

En la sección Trucos el compañero MaMu puso un codigo para Calcular EDAD en años, meses y dias de una Persona.

Creo que con unas pocas modificaciones te serviría para el caso:

Código Delphi [-]
...
type
  TAntiguedad = record
    year : Word;
    month: Word;
    day  : Word;
  end;

function Antiguedad(Desde, Hasta: TDate): TAntiguedad;
var
  a1,m1,d1: Word;
  a2,m2,d2: Word;
  Year, Month, Day: Word;
begin
  DecodeDate(Desde, a1, m1, d1);
  DecodeDate(Hasta, a2, m2, d2);

  Year := a2 - a1;

  if ( m1 <= m2 ) then
     Month := m2 - m1
  else
  begin
    Month := m2 + 12 - m1;
    Dec(Year);
  end;

  if ( d1 <= d2 ) then
    Day := d2 - d1
  else
  begin
    Day := d2 + MonthDays[IsLeapYear(a2), m2] - d1;
    Dec(Month);
  end;

  if Month < 0 then
  begin
    Year := Year - 1;
    Inc(Month, 12);
  end;

  Result.year  := Year;
  Result.month := Month;
  Result.day   := Day;
end;

// Ejemplo de uso:
procedure TForm1.Button1Click(Sender: TObject);
var
  d1, d2: TDate;
  a: TAntiguedad;
begin
  d1 := StrToDate('01/01/2017');  
  d2 := StrToDate('02/04/2018'); 
  a  := Antiguedad(d1, d2);
  ShowMessageFmt('años:%d, meses:%d, días:%d',[a.year, a.month, a.day]); // (*)

  d1 := StrToDate('29/12/2005');
  a  := Antiguedad(d1, Date());
  ShowMessageFmt('años:%d, meses:%d, días:%d',[a.year, a.month, a.day]);
end;

(*) Fechas tomadas de tu primer mensaje y da como resultado: años: 1, meses: 3, días: 1

Saludos :)

antiguedad
 

Gracias entonces despues sumo todas esas partes para que me de la totalidad de antiguedad haciendo la formula que hice mas arriba.

Hola.
No estoy entendiendo..., la función Antigüedad ya devuelve la totalidad del tiempo transcurrido entre fechas en años, meses y días. ¿ Por que necesitas sumar esos datos ?

Saludos. :)

Date una mirada a http://www.clubdelphi.com/foros/showthread.php?t=93348, y coloca datos concretos.

Creo que ya lo han comentado y tal vez llego tarde, pero creo que en temas de fechas la unidad "básica" es 1 día.
Por lo tanto, creo que lo más senciilo es pasar a días cada uno de los intervalos y una vez tengas los días totales, pasar eso al tipo Antiguedad (es decir, sacar los años, meses y días a partir del total de días).