Pro Information

اشتراک گذاری اطلاعات

Professional Information

اشتراک گذاری اطلاعات

تابع تبدیل تاریخ شمسی به میلادی Shamsi to Miladi Function in Sql

بسیاری از مواقع نیاز داریم تاریخ شمسی را به تاریخ میلادی تبدیل نماییم . در این پست تابع تبدیل این کار قرار داده شده . دستور سلکت مربوط به تست تابع نیز قرار داده شده است .

Start of Code :

  
USE [DbName]
GO
/****** Object: UserDefinedFunction [dbo].[ShamsitoMiladi] Script Date: 7/19/2017 10:47:04 AM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

/*
select dbo.ShamsitoMiladi('1358/10/11')
--http://learnbi.ir/1391/09/19/post-32/
----------------------------------
*/


ALTER FUNCTION [dbo].[ShamsitoMiladi](@DateStr varchar(10))

RETURNS DATE

AS

BEGIN

declare @YYear int,@MMonth int,@DDay int,@epbase int,@epyear int,@mdays int,@persian_jdn int,@i int,

@j int,@l int,@n int,@TMPRESULT varchar(10),@IsValideDate int,@TempStr varchar(20),@TmpDateStr varchar(10)

SET @i=charindex('/',@DateStr)

IF LEN(@DateStr) - CHARINDEX('/', @DateStr,CHARINDEX('/', @DateStr,1)+1) = 4

BEGIN

IF ( ISDATE(@TmpDateStr) =1 )

RETURN @TmpDateStr

ELSE

RETURN NULL

END

ELSE

SET @TmpDateStr = @DateStr

IF ((@i<>0) and

(ISNUMERIC(REPLACE(@TmpDateStr,'/',''))=1) and

(charindex('.',@TmpDateStr)=0))

BEGIN

SET @YYear=CAST(SUBSTRING(@TmpDateStr,1,@i-1) AS INT)

IF ( @YYear< 1300 )

SET @YYear =@YYear + 1300

IF @YYear > 9999

RETURN NULL

SET @TempStr= SUBSTRING(@TmpDateStr,@i+1,Len(@TmpDateStr))

SET @i=charindex('/',@TempStr)

SET @MMonth=CAST(SUBSTRING(@TempStr,1,@i-1) AS INT)

SET @MMonth=@MMonth-- -1

SET @TempStr= SUBSTRING(@TempStr,@i+1,Len(@TempStr))

SET @DDay=CAST(@TempStr AS INT)

SET @DDay=@DDay-- - 1

IF ( @YYear >= 0 )

SET @epbase = @YYear - 474

Else

SET @epbase = @YYear - 473

SET @epyear = 474 + (@epbase % 2820)

IF (@MMonth <= 7 )

SET @mdays = ((@MMonth) - 1) * 31

Else

SET @mdays = ((@MMonth) - 1) * 30 + 6

SET @persian_jdn =(@DDay) + @mdays + CAST((((@epyear * 682) - 110) / 2816) as int) + (@epyear - 1) * 365 + CAST((@epbase / 2820) as int ) * 1029983 + (1948321 - 1)

IF (@persian_jdn > 2299160)

BEGIN

SET @l = @persian_jdn + 68569

SET @n = CAST(((4 * @l) / 146097) as int)

SET @l = @l - CAST(((146097 * @n + 3) / 4) as int)

SET @i = CAST(((4000 * (@l + 1)) / 1461001) as int)

SET @l = @l - CAST( ((1461 * @i) / 4) as int) + 31

SET @j = CAST(((80 * @l) / 2447) as int)

SET @DDay = @l - CAST( ((2447 * @j) / 80) as int)

SET @l = CAST((@j / 11) as int)

SET @MMonth = @j + 2 - 12 * @l

SET @YYear = 100 * (@n - 49) + @i + @l

END

SET @TMPRESULT=Cast(@MMonth as varchar(2))+'/'+CAST(@DDay as Varchar(2))+'/'+CAST(@YYear as varchar(4))

RETURN Cast(@TMPRESULT as varchar(10))

END

RETURN NULL
END


End of Code

برچسب ها : SQL Server اس‌کیوال سرور - سی‌کوال سرور - Structured Query Language

ADS

ADS

2021 © کلیه حقوق مادی و معنوی این سایت متعلق به آقای امیر کیانی گهر می باشد