--**************************************
-- Name: Age exactly edad exacta
-- Description:Devuelve la diferencia entre fechas
Result the diference between dates
-- By: Alejo Carrilllo
--
-- Inputs:datestart dateend and accuracy
fecha inicial fecha final y precision
--
-- Returns:cadena con la diferencia entre la fecha inicial y final
string with the result between the start date and enddate
--
--This code is copyrighted and has-- limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=1339&lngWId=5--for details.--**************************************
Create FUNCTION [dbo].[edadexacta]
(
@fechaini datetime,
@fechafin datetime,
@precision int
)
RETURNS varchar(40)
AS
BEGIN
-- declare @fechaini datetime, @fechafin datetime, @precision int
-- set @fechaini= '1800-12-31'
-- set @fechafin= '2008-02-29'
-- set @precision = 3
DECLARE @cad varchar(40), @meses int, @dias int, @aņos int, @fecmes datetime, @diasmes int
set @aņos =year(@fechafin) - year(@fechaini)
set @meses = month(@fechafin)- month(@fechaini)
--obtiene dias del mes de la fecha inicial
set @fecmes = @fechaini - DAY(@fechaini) + 1
set @diasmes=DATEDIFF(day, @fecmes, DATEADD(month, 1, @fecmes))
--select @diasmes, @aņos, @meses
--fin dias mes
if @meses <0
begin
set @aņos = @aņos -1
set @meses = @meses + 12 --el aņo descontado se suma a los meses
end
set @dias = day(@fechafin)- day(@fechaini)
if @dias <0
begin
set @meses = @meses - 1
set @dias = @dias + @diasmes --el mes descontado se suma a los dias del mes de la fecha inicial
end
if @precision >= 1
begin
if @aņos=1
set @cad = convert(nvarchar,@aņos)+' aņo '
else
set @cad = convert(nvarchar,@aņos)+' aņos '
if @precision >= 2
begin
if @meses=1
set @cad = @cad +convert(nvarchar,@meses)+' mes '
else
set @cad = @cad +convert(nvarchar,@meses)+' meses '
if @precision >= 3
if @dias=1
set @cad = @cad +convert(nvarchar,@dias)+' dia'
else
set @cad = @cad +convert(nvarchar,@dias)+' dias'
end
end
-- select @cad
RETURN @cad
END
|
