Función para el cálculo de la edad

[erick_arcini]

Estimados (que dijeron ando preguntando no?... jaja) no, aquí les dejo una función para calcular la edad con los días transcurridos, igual y si ya se encontraba una pues ya ni modo, aquí la dejo.

Código:

create function edad(@nacimiento as datetime)
returns varchar(25)
as 
begin
declare @aYear varchar(3)
declare @diasTranscurridos varchar(3)

set @aYear = year(getdate()) - year(@nacimiento)

if month(getdate()) < month(@nacimiento)
	begin
		set @aYear = @aYear - 1 
		set @diasTranscurridos = datediff(day,convert(varchar,year(getdate())) + '/01/01',getdate())+1
		set @diasTranscurridos = 365 - @diasTranscurridos
	end
else
	begin
		if month(getdate()) > month(@nacimiento)
			begin
				set @diasTranscurridos = datediff(day,convert(varchar,year(getdate())) + '/01/01',getdate())+1
			end
		else
			begin
				if month(getdate()) = month(@nacimiento)
					begin
						if day(getdate()) = day(@nacimiento)
							begin
								set @aDia = 0
							end
						else
							begin
								if day(getdate()) < day(@nacimiento)
									begin
										set @aYear = @aYear - 1 
										set @diasTranscurridos = datediff(day,convert(varchar,year(getdate()) - 1) + '/01/01',convert(varchar,year(getdate()) - 1) + '/31/12') - (datediff(day,convert(varchar,year(getdate())) + '/' + convert(varchar,month(getdate())) + '/01',getdate()) + 1)
									end
								else
									begin 
										if day(getdate()) > day(@nacimiento)
											begin 
												set @diasTranscurridos = datediff(day,convert(varchar,year(getdate())) + '/' + convert(varchar,month(getdate())) + '/01',getdate())+1
											end
									end
							end
					end
			end
	end
return @aYear + ' años ' + @diasTranscurridos + ' días'
end

[iislas]

Gracias, por aqui hemos publicado algo sobre el tema, donde se calculan, años, meses, dias, horas y hasta minutos, si no mal recuerdo.

Saludos

[Andres95]

Gracias por el aporte pero,

1. Al ejecutar indica uso indebido de getdate en funcion de usuario.
2. Al cambiar a stored procedure, indica que faltan declarar varibales.
3. Al declarar las variables faltantes y tratar de ejecutar con 30 de Enero de 1990, indica este msg de error.

Server: Msg 242, Level 16, State 3, Procedure edad, Line 34
The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.


Y bueno ya no continue depurando...

Saludos!

Iniciado por erick_arcini

Estimados (que dijeron ando preguntando no?... jaja) no, aquí les dejo una función para calcular la edad con los días transcurridos, igual y si ya se encontraba una pues ya ni modo, aquí la dejo.

Código:

create function edad(@nacimiento as datetime)
returns varchar(25)
as 
begin
declare @aYear varchar(3)
declare @diasTranscurridos varchar(3)

set @aYear = year(getdate()) - year(@nacimiento)

if month(getdate()) < month(@nacimiento)
	begin
		set @aYear = @aYear - 1 
		set @diasTranscurridos = datediff(day,convert(varchar,year(getdate())) + '/01/01',getdate())+1
		set @diasTranscurridos = 365 - @diasTranscurridos
	end
else
	begin
		if month(getdate()) > month(@nacimiento)
			begin
				set @diasTranscurridos = datediff(day,convert(varchar,year(getdate())) + '/01/01',getdate())+1
			end
		else
			begin
				if month(getdate()) = month(@nacimiento)
					begin
						if day(getdate()) = day(@nacimiento)
							begin
								set @aDia = 0
							end
						else
							begin
								if day(getdate()) < day(@nacimiento)
									begin
										set @aYear = @aYear - 1 
										set @diasTranscurridos = datediff(day,convert(varchar,year(getdate()) - 1) + '/01/01',convert(varchar,year(getdate()) - 1) + '/31/12') - (datediff(day,convert(varchar,year(getdate())) + '/' + convert(varchar,month(getdate())) + '/01',getdate()) + 1)
									end
								else
									begin 
										if day(getdate()) > day(@nacimiento)
											begin 
												set @diasTranscurridos = datediff(day,convert(varchar,year(getdate())) + '/' + convert(varchar,month(getdate())) + '/01',getdate())+1
											end
									end
							end
					end
			end
	end
return @aYear + ' años ' + @diasTranscurridos + ' días'
end

[erick_arcini]

Iniciado por Andres95

...
1. Al ejecutar indica uso indebido de getdate en funcion de usuario.

Que raro, yo lo ejecuto sin broncas, solo que me equivoque en una linea del código donde dice @aDia pero funciona

Iniciado por Andres95

2. Al cambiar a stored procedure, indica que faltan declarar varibales.

mmmm, deja pasarlo y contesto esta pregunta

Iniciado por Andres95

3. Al declarar las variables faltantes y tratar de ejecutar con 30 de Enero de 1990, indica este msg de error.

Server: Msg 242, Level 16, State 3, Procedure edad, Line 34
The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.

supongo que esto debe de ser con el store procedure, mmmm, deja probarlo y pues ya veremos como queda, gracias por el tip.
Y bueno ya no continue depurando...

[Andres95]

Ok, tienes razon, si compila pero en SQL 2005 y yo la estaba probando en SQL 2000.

Si embargo el msg de error es el mismo cuando lo pruebo con el 30 de Enero de 1990.


Saludos!

[HackmanC]

Hola,

Odio decir esto pero la lógica está mal (después de corregir solamente el problema de la declaración de la variable @aDia). El resultado que obtengo en MSSQL 2000 :

para la fecha 20 de Noviembre de 1972 ('19721101')
al día de hoy 28 de Enero de 2009: 36 años 337 días.
Cuando en realidad debería ser : 36 Años 69 Dias

para la fecha 27 de Enero de 2009 ('20090127')
al día de hoy : 0 años 28 días
En realidad debería ser : 0 Años 1 Dias

Con 30 de Enero de 1992 genera un error.
Creo que podría ser mas simple, es un script :
(Para sp ó function hay que parametrizarlo, etc.)

Código:

declare @fecha datetime
declare @final datetime
declare @annos integer
declare @dias  integer
declare @temp  datetime

-- set @fecha = '20090128'
-- set @final = '20090128'

set @fecha = '19721120'
set @final = getdate()

set @annos = datediff(Year, @fecha, @final)
set @temp = dateadd(Year, @annos, @fecha)
set @dias = datediff(Day, @temp, @final)
if sign(@dias) < 0
begin
  set @annos = @annos - 1
  set @temp = dateadd(Year, @annos, @fecha)
  set @dias = datediff(Day, @temp, @final)
end

print CONVERT(NVARCHAR, @annos) + N' Años ' + CONVERT(NVARCHAR, @dias) + N' Dias'

Saludos,