Jump to content

Calcular edad entre fecha dada y la fecha actual en años, meses y días


Recommended Posts

Estimados,

Buenas noches,

Requiero de su ayuda, con una función en Power Query, de un post de la web, estoy tratando de modificar, que me calcule la edad en años, meses y días, dando como parámetros una fecha de nacimiento y la fecha actual.

En el enlace solo esta en años y meses.

Según en mi archivo, lo que esta resaltado con amarillo no es igual a la columna anterior(esta hecha con formula SIFECHA().

Muy agradecido de antemano.

Web de ejemplo

Función del post

(yourdate as date)=>
let
    startdate=
    if yourdate>Date.From(DateTime.LocalNow()) then null else yourdate,
    MyYears=Number.RoundDown(Duration.TotalDays(Date.From(DateTime.LocalNow()) - startdate)/365),
    month1=Date.Month(Date.From(DateTime.LocalNow()))-Date.Month(Date.AddYears(startdate,MyYears)),
    mymonths=if month1<0 then 12+month1 else month1,
    Concat = 
    Text.From(MyYears) & " Yrs " & 
    Text.From(mymonths) & " Months"
in
    Concat

 

Calcular Edad años meses y dias.xlsx

Link to post
Share on other sites

Buenas con todos,

Encontré la solución algo chapuzado. Si hay otra opción bienvenido.

let
    EdadCum = (tudia as date)=>
let
    iniciofecha=
    if tudia>Date.From(DateTime.LocalNow()) then null else tudia,
    
    
    MiAnio=Number.RoundDown(Duration.TotalDays(Date.From(DateTime.LocalNow()) - iniciofecha)/365),

    mes1=Date.Month(Date.From(DateTime.LocalNow()))-Date.Month(Date.AddYears(iniciofecha,MiAnio)),

    mimess=if mes1<=0 then 12-(1-mes1) else
           if Date.Day(Date.From(DateTime.LocalNow()))<Date.Day(Date.AddYears(iniciofecha,MiAnio)) then mes1-1  else mes1,
  	
    dia1=Date.Day(Date.From(DateTime.LocalNow()))-Date.Day(Date.AddMonths(iniciofecha,MiAnio)),
      
    midias=if dia1<0 then 31+dia1 else dia1,

    Concat = 
    Text.From(MiAnio) & " años " & 
    Text.From(mimess) & " meses " &
    Text.From(midias) & " dias"
in
    Concat
in
    EdadCum

 

Link to post
Share on other sites
a


×
×
  • Create New...

Important Information

Privacy Policy