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


  • Crear macros Excel

  • Posts

    • Hola!   He modificado la macro de evento, para que funcione tanto para escribir la fecha, como para restringir en que columnas debe poner mayusculas Ten mucho cuidado con las macros de evento, te puedes volver loco 🤪   Saludos a todos Tabla Excel.xlsm
    • Hola, Hace algún tiempo, en todo excel, publicaron una macro para cambiar los textos a mayusculas, era esta. Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range On Error Resume Next Set rng = Target.SpecialCells(xlCellTypeConstants, xlTextValues) On Error GoTo 0 If rng Is Nothing Then Exit Sub Dim c As Range With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual For Each c In rng c = UCase(c) Next c .Calculation = xlCalculationAutomatic .EnableEvents = True .ScreenUpdating = True End With End Sub Es como dice @Silvia, su macro es la que ocasiona el problema. Gabriel
    • Fabuloso!!, anexo archivo con los datos, que no es mucha informacion. Agradecido por tu inmensa ayuda JSD Datos del ComboBox.xlsx
    • hola Antonio Casi te puedo asegurar que el problema es ocasionado por tu macro,  algún entendido en macros la podría revisar.. La cosa es que pese a que cerré tu libro el proyecto seguía apareciendo en ver código y tenía los mismos problemas que mencionas .  Tuve que cerrar por completo el excel para arreglar esta situación...... Entonces se me ocurrió eliminar la macro y guardar el libro (sin la macro) y ahí pude resolver tu problema 🤣   saludos, Silvia    
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy