Suma Antiguedad Laboral

[Casimiro Noteví]

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

[shoulder]

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.

[ecfisa]

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

[shoulder]

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

[ecfisa]

Hola.

Empezado por shoulder

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

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.

[mamcx]

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

[Neftali [Germán.Estévez]]

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).