نمیشه تاریخ میلادی رو بوسیله query توی sql تبدیل به تاریخ شمسی کرد ودر فیلد دیگری قرار داد ؟
ممنون میشم کمکم کنید.....
تاریخ میلادی رو چطوری به شمسی تبدیل کنم بوسیله sql ؟
نمیشه تاریخ میلادی رو بوسیله query توی sql تبدیل به تاریخ شمسی کرد ودر فیلد دیگری قرار داد ؟
ممنون میشم کمکم کنید.....
راه اول این است که توابعی (UDF) بنویسید که تاریخ میلادی رو دریافت کنند و تاریخ شمسی رو بر گردونن و در مکانهایی که می خواهید استفاده کنید با یک view این فیلد رو به تابعتون اضافه کنید .
این عمل باعث کندی بسیار می شود زیرا این محاسبه برای هر رکورد انجام می شود و توابع در cache قرار نمی گیرند .
راه دیگر استفاده از یک جدول است که معادل روزهای سال را به میلادی و شمسی داشته باشد و شما با یک join با این جدول می توانید معادل شمسی رو استفاده کنید که این روش بسیار کارآمد تر است و در تجربه شخصی بنده که ده سال قبل و بعد رو در این جدول دارم بنابراین مشکل سرعت رو هم ندارم . در کاربرد این روش مزایای دیگری هم نسبت به تبدیل همزمان وجود دارد.
اگر راه اول رو بخواهید باید چند روزی صبر کنید تا متن توابع تبدیلی رو به شما بدهم ولی اگر روش دوم رو بخواهید می توانم همین حالا این جدول رو در اختیار شما قرار دهم .
سلام من جدولی دارم که کد ایستگاهای مختلف در ان قرار دارد و جدول دیگری که دمای هر ایستگاه در ساعت ها وتاریخ های متفاوت در ان وجود دارد می خواهم با لا ترین میانگین رطوبت
هر ایستگاه راپیدا کنم میشه کمک کنید ( بدون کرسر)
این جدول رو با جداول دیگرتون روی فیلد تاریخ JOIN کنید .
این یک BACKUP در 2005 است و فقط در 2005 به بالا Restore می شود .
میلادی به شمسی
CREATE FUNCTION [dbo].[MiladiTOShamsi] (@MDate DateTime)
RETURNS Varchar(10)
AS
BEGIN
DECLARE @SYear as Integer
DECLARE @SMonth as Integer
DECLARE @SDay as Integer
DECLARE @AllDays as float
DECLARE @ShiftDays as float
DECLARE @OneYear as float
DECLARE @LeftDays as float
DECLARE @YearDay as Integer
DECLARE @Farsi_Date as Varchar(100)
SET @MDate=@MDate-CONVERT(char,@MDate,114)
SET @ShiftDays=466699 +2
SET @OneYear= 365.24199
SET @SYear = 0
SET @SMonth = 0
SET @SDay = 0
SET @AllDays = CAst(@Mdate as Real)
SET @AllDays = @AllDays + @ShiftDays
SET @SYear = (@AllDays / @OneYear) --trunc
SET @LeftDays = @AllDays - @SYear * @OneYear
if (@LeftDays < 0.5)
begin
SET @SYear=@SYear+1
SET @LeftDays = @AllDays - @SYear * @OneYear
end;
SET @YearDay = @LeftDays --trunc
if (@LeftDays - @YearDay) >= 0.5
SET @YearDay=@YearDay+1
if ((@YearDay / 31) > 6 )
begin
SET @SMonth = 6
SET @YearDay=@YearDay-(6 * 31)
SET @SMonth= @SMonth+( @YearDay / 30)
if (@YearDay % 30) <> 0
SET @SMonth=@SMonth+1
SET @YearDay=@YearDay-((@SMonth - 7) * 30)
end
else
begin
SET @SMonth = @YearDay / 31
if (@YearDay % 31) <> 0
SET @SMonth=@SMonth+1
SET @YearDay=@YearDay-((@SMonth - 1) * 31)
end
SET @SDay = @YearDay
SET @SYear=@SYear+1
SET @Farsi_Date = CAST (@SYear as VarChar(10)) + '/' + CAST (@SMonth as VarChar(10)) + '/' + CAST (@SDay as VarChar(10))
Return @Farsi_Date
END
شمسی به میلادی
CREATE FUNCTION [dbo].[ShamsiToMiladi](@DateStr varchar(10))
RETURNS DATETIME
AS
BEGIN
declare @YYear int
declare @MMonth int
declare @DDay int
declare @epbase int
declare @epyear int
declare @mdays int
declare @persian_jdn int
declare @i int
declare @j int
declare @l int
declare @n int
declare @TMPRESULT varchar(10)
declare @IsValideDate int
declare @TempStr varchar(20)
DECLARE @TmpDateStr varchar(10)
SET @i=charindex('/',@DateStr)
IF LEN(@DateStr) - CHARINDEX('/', @DateStr,CHARINDEX('/', @DateStr,1)+1) = 4
BEGIN
SET @TmpDateStr = dbo.ReversDate(@DateStr)
IF ( ISDATE(@TmpDateStr) =1 )
RETURN @TmpDateStr
ELSE
RETURN NULL
END
ELSE
SET @TmpDateStr = @DateStr
IF ((@i<>0) and
(dbo.SubStrCount('/', @TmpDateStr)=2) 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 Datetime)
END
RETURN NULL
END
سورس dbo.ReversDateنوشته شده توسط Kamyar.Kimiyabeigi
و dbo.SubStrCount را نگذاشتید
ممنون از دوستان ...
این جدول alldate رو با چی باز کنم؟
این یک فایل RAR باید با Winrar اونو Extract کنید و در SQL2005 اونو Restore کنید .
نمی شه یه فایلی بدید که تو 2000 هم Restore بشه؟
راستی ببخشید دو تا تابع تو ShamsiToMiladi هست که SQL نمیشناسه میشه اونارو هم بدید:
dbo.ReversDate و dbo.SubStrCount
ممنون
backup برای 2000
با سلام
یکی از شیوه های که در برنامه هام ازش استفاده کردم و راضی هم بودم استفاده از دو ستون برای تاریخ بود. اولی تایخ شمسی که از نوع CHar 10 بود و دومی تاریخ میلادی و از جنس DateTime.
در جاهایی که میخواستم تاریخ شمسی رو نمایش بدم از ستون تاریخ شمسی استفاده میکردم و برای جاهایی که نیاز به محاسبه روی تاریخ داشتم از ستون تاریخ میلادی استفاده میکردم.
در این روش تبدیلات عموما" فقط در هنگام ثبت اطلاعات بود و هنگام کوئری گرفتن تنها با یک اسکن روی اندیکس ها و بدون تبدیلات اطلاعات نمایش داده میشد که سرعت مناسبی رو هم هنگام کار داشتم.
امیدوارم این شیوه مورد توجه دوستان قرار بگیرد.
*( دوستانی که با این شیوه مخالف هستند لطف کنند نظرشون رو با دلیل بیان کنند . با تشکر)*
خدا یار و نگهدارتان باشد.
والا من با هیچ روشی مخالفت ندارم ، ولی این روش یکی از اصول را میشکنه، اسماً اولین نرمال فرم.
در اولین نرمال فرم هیچ داتایی دوبار نباید تکرار شده باشه.
دومین اشکالش هم اینه که یک داتا را دو جا نگهداری میکنه، اگچه بر طبقه گفته شما هیچ وقت این تاریخ عوض نمیشه، ولی داشتن کپی از یک داتا در سیستم خلاف اصوله مهندسی سیستم است.
با سلام خدمت ارژنگ خان
حرفی که شما گفتید 100 درصد درست هست. ولی یک چیز رو من تو دیتابیس یاد گرفتم و از قوانین هم هست که برای بالا بردن پرفرمنس میتونیم دیتابیس رو DeNormalize کنیم.
یه جورایی( دلیل منطقی نیست ولی یه جورایی) این کارای ما برای ذخیره تاریخ شمسی و سرچ و سورت و .. بر روی آن برا ی SQL Server غیر منطقیه در حالی که ما بهش نیاز داریم. حالا که ما به این مهم نیاز داریم مجبوریم که کارهایی رو انجام بدیم. مثلا" استفاده از همین توابعی که دوستان در صدد پیاد سازی آن هستند. اگر بخواهیم پرفرمنس رو برای این توابع در برابر این شیوه که استفاده کرده ام مقایسه کنیم توابع دوستان پرفرمنس پایین تری خواهند داشت در حالی که میشه گفت اونها اصل رو رعایت کرده اند.
درضمن دوست من مگر این یک ستون چقدر جا خواهد گرفت؟ اگر ما در دیتا بیس های امروزی بخواهیم اینقدر نگران حجم باشیم بهتر است که ایندکس نسازیم و بگیوییم پرفرمنس بیایید پایین در عین حالی که حجم دیتابیس هم میایید پایین.
حالا بازم خوشحال میشوم نظر شما را در این موارد بدانم.
(همیشه مجادله علمی باعث بالا رفتن بحث میشود ولی درصورتی که ادب در آن رعایت شود و کسی دیگر را به خاطر اشتباه و یا پایین بودن علمش مورد تمسخر قرار ندهیم.)
خدا نگهدار
سلام. ضمن تشکر بسیار فراوون از دوست عزیزمون H_BAQERY که واقعا Solution اش خوشحالم کرد، عالی بود، نمی دونم چرا تاحالا به فکرم نرسیده بود.
من هم برای ادامه تشکر یه دیتابیس توی SqlServer2000 به اسم PersianDates ساختم و توی جدول ALL_DATE از سال 1998 تا سال 2018 رو ذخیره کردم. یه توضیح هم بدم و اون اینکه با دو حالت Right to left , left to right رشته تاریخ فارسی رو ذخیره کردم. چون مثلا ممکنه تو CrystalReport ها اینوری بشه و توی Datagridview اون وری !
در هر صورت خیلی Solution باحالی بود جناب H_BAQERY ، دمت گرم.
فایل دیتابیس رو هم ضمیمه کردم.
اين روش را قبلا ما استفاده ميكرديم و افت سرعت شديدي داشتيم اما بعد از استفاده از فانكشنها دوست عزيزمان آقاي linux در مقايسه و در مقياس 100000 ركورد متوجه شديم كه زمان اجراي دستور كاهش پيدا كرد (حدود 2.5 برابر بهتر شد )
در عين حال در همان زمان بنده جدول مقايسه ايي از توابع دوست عزيزمان آقاي Linux و جدول خودمان كه در دلفي برنامه آن نوشته شده بود در اورديم كه متوجه 130 اشتباه در جداول خودمان شديم .
الان کلا در تبدیل تقویم ها بحث بر سر محاسبه سال کبیسه هست، قانون چون الگوریتم خاصی را معرفی نکرده هرکسی روشی را پیشنهاد می دهد که 2 روش خیلی استفاده می شود که این روشی که در این توابع استفاده شده از روشی که در توابع تبدیل تاریخ در دات نت شده فرق می کنه. به خاطر همین ممکن در سالها 1403 دچار مشکل بشید، کلا هم نمیشه گفت کدام روش درست هست یا نیست، تا موقعی که قانون یکی از این روشهای موجود را مبنا قرار نده همین مشکل هست.
سلام و صد سلام به دست اندرکاران و کلیه کاربران
در تبدیل تاریخ شمسی به میلادی و بلعکس با مطالعه کمی که در این سایت نمودم تنها تجربه خویش را بازگو می کنم:
بعضی زمانها می بایست در سطح تنها sql این تبدیل صورت گیرد و برخی موارد در خود برنامه موردی ندارد، بطور مثال اگر Procedure در sql نوشته شده باشد و بخاطر عملیات ریاضی که در آن صورت پذیرفته یا به هر دلیلی که باعث تکرار رکوردها و ایجاد اشکال در جواب می نماید تنها می توان تاریخ را در قسمت مثلا where آورد پس کلیه عملیات در سطح sql است گرچه با آمدن linq تا حد زیادی این مشکل برطرف شده اما نه کاملا شایدم من مسلط نیستم ضمنا function های موجود در این سایت نیز صحیح عمل می کنند، لذا با توجه به شرایط راه حل انتخاب می گردد. خود من هم در net. هم در sql این تبدیل را با در نظر گرفتن شرایط موجود انجام می دهم. ضمنا کاربر محترم Kamyar.Kimiyabeigi بسیار ممنون. با تشکر شادمانی
آخرین ویرایش به وسیله shadmani : دوشنبه 24 خرداد 1389 در 15:14 عصر
با سلام
من اين دو تا تابع را نوشتم
براتون ميگذارم تا شما و بقيه هم استفاده كنيد
فايلها txt هستند ميتوانيد كد موجود را در SQL كپي و اجرا كنيد.
قابل توجه است که این راه حل به ظاهر خنده دار در بسیاری از سیستمهایی که از DLL یا Function استفاده می کردند جایگزین شده به خاطر راحتی بسیار زیادی که داره و سرعت بسیار بالای اون به دلیلی که در پست دو گفتم . اگر جدول رو ببینید فیلدهای نام ماه و ... دیگر رو هم دارد و در بسیاری از گزارشات کار گزارش سازهارو ساده کرده .
همیشه بهترین راه حرفه ای ترین و تخصصی ترین راه نیست .
شما با استفاده از تابعی که آقای کامیابی دادند و یک cursor ساده می تونید این جدول رو تا صدها سال آینده تولید کنید و با یک join ساده هر جا که لازم است استفاده کنید حتی برای تبدیل سیستمهایی که تاریخ اصلیشون میلادیه ما با یک view و تغییر نام View به جدول مورد نظر بسیار سریع نمایش شمسی داشتیم .
خسته نباشی دستاتو بشور.
یادت باشه برای همیشه! بهترین راه حل تخصصی ترین راه حل هست.
اولا تاریخ در sql server بصورت یک عدد 8 بایتی ذخیره میشه که 4 بایت اولش روزهای گذشته از مبدا تقویم هست که در این مورد تاریخ 1/1/1900 هست و 4 بایت دوم هم میلی ثانیه های گذشته از نیمه شب را ذخیره می کند
از Ebook
Remarks
Values with the datetime data type are stored internally by Microsoft SQL Server as two 4-byte integers. The first 4 bytes store the number of days before or after the base date, January 1, 1900. The base date is the system reference date. Values for datetime earlier than January 1, 1753, are not permitted. The other 4 bytes store the time of day represented as the number of milliseconds after midnight.
این دستورات را اجرا کنید تا دقیقا بفهمید منظور چی هست
go
select getdate()
go
select cast(getdate() as float)
جواب بصورت
------------------------------------------------------
2006-09-28 00:32:42.000
(1 row(s) affected)
-----------------------------------------------------
38986.022708487653
(1 row(s) affected)
خواهد بود یعنی sql server موقع نمایش تاریخ از یکسری توابع استفاده کرده و آن را به فرمت مورد نظر نمایش داده و در موقع ذخیره هم از یکسری توابع استفاده کرده و تاریخ مورد نظر را بصورت یک عدد 8 بایتی ذخیره می کند.
حالا اگر شما مستقیما این عدد را به تاریخ شمسی تبدیل کنید همان زمان که sqlserver جهت تبدیل استفاده می کند شما هم استفاده خواهید کرد.
و توابع که شما اینجا گذاشتید هیچ کدام این کار را انجام نمی دهند.برای همین یک خورده کند هست
ببخشید دوستان از دعوا و جار و جنجال گذشته ...
می شه یک کد کامل یا یک راه حل کامل بگید تا ما هم بفهمیم آخرش چی کار باید کرد
من از کنترل فارسی لایبری که در سایت کدپرژکت هست استفاده کردم و فقط مقدار بازگشتی میلادی و برای نشون دادن به کاربر و سرچ توسط اون بر مبنای تاریخ و گذارش گیری مشکل دارم می شه بگید چطور تبدیل کنیم
یکی از دوستان یک کلاس نوشته بود اما من لینکش رو پیدانکردم
ببینید کلا 2 روش وجود داره یکی در سطح برنامه که من موقع ورود اطلاعات از این کار استفاده می کنم یعنی مثلا تاریخ را بصورت شمسی از کاربر می گیرم ولی بصورت میلادی در بانکدادهها ذخیره می کنم.
راه دوم در سطح خود sql سرور که توابعی را که دارم بکار میبرم.
توابع را در پست بعدی براتون میگذارم
سلام
برای تاریخ شمسی میشه دستورات vb رو وارد sql کرد .می دونین که vb 2008 به بالا تقیم شمسی و داخلش داره و راحت تاریخ میلادی و تبدیل میکنه حتی ماههای 30 و31 روزه هم در نظر میگیره
سلام،
من یک تازه کار هستم.اگه میشه لطفا در مورد این جدول alldate بیشتر توضیح دهید .
طرز استفاده از آن را در محیط .net2005 را قم به قدم توضیح دهید.
ممنون می شویم.
alldate یک backup از یک database در sql هست . باید restore بشه . . .
DROP FUNCTION dbo.Persian2Civil
DROP FUNCTION dbo.Civil2Persian
DROP FUNCTION dbo.IsPersianLeapYear
DROP FUNCTION dbo.persian_jdn
DROP FUNCTION dbo.jdn_persian
DROP FUNCTION dbo.Ceil
DROP FUNCTION dbo.Mmod
GO
CREATE FUNCTION dbo.Persian2Civil(@year int, @month int, @day int)
RETURNS char(10) AS
BEGIN
RETURN dbo.jdn_civil(dbo.persian_jdn(@year, @month, @day))
END
GO
CREATE FUNCTION dbo.Civil2Persian(@CivilDate smalldatetime)
RETURNS char(10) AS
BEGIN
RETURN dbo.jdn_persian(CAST(@CivilDate as bigint)+2415021)
--RETURN dbo.jdn_persian(dbo.civil_jdn(@year, @month, @day))
END
GO
CREATE FUNCTION dbo.IsPersianLeapYear (@iYear bigint)
RETURNS bigint AS
BEGIN
DECLARE @temp bigint
DECLARE @lp bit
IF @iYear > 0
SET @temp = ((((dbo.MMod((@iYear - (474)), 2820) + 474) + 38) * 682) % 2816)
ELSE
SET @temp = ((((dbo.MMod((@iYear - (473)), 2820) + 474) + 38) * 682) % 2816)
IF @temp < 682
SET @lp = 1
ELSE
SET @lp = 0
RETURN @lp
END
GO
CREATE FUNCTION dbo.persian_jdn(@iYear bigint, @iMonth int, @iDay int)
RETURNS bigint AS
BEGIN
DECLARE @PERSIAN_EPOCH bigint
SET @PERSIAN_EPOCH = 1948321 -- The JDN of 1 Farvardin 1
DECLARE @epbase bigint
DECLARE @epyear bigint
DECLARE @mdays bigint
DECLARE @temp bigint
IF @iYear >= 0
SET @epbase = @iYear - 474
ELSE
SET @epbase = @iYear - 473
SET @epyear = 474 + dbo.MMod(@epbase, 2820)
IF @iMonth <= 7
SET @mdays = (@iMonth - 1) * 31
ELSE
SET @mdays = (@iMonth - 1) * 30 + 6
SET @temp = @iDay + @mdays + CAST(((@epbase / 2820) * 1029983 + (@PERSIAN_EPOCH - 1)) AS bigint)
RETURN @temp + CAST(((((@epyear * 682) - 110) / 2816) + (@epyear - 1) * 365) AS bigint)
END
GO
CREATE FUNCTION dbo.jdn_persian(@jdn bigint)
RETURNS char(10) AS
BEGIN
DECLARE @depoch bigint
DECLARE @cycle int
DECLARE @cyear bigint
DECLARE @ycycle int
DECLARE @aux1 int, @aux2 int
DECLARE @yday int
DECLARE @iYear bigint, @iMonth int, @iDay int
DECLARE @tmpMonth char(2),@tmpDay char(2)
SET @depoch = @jdn - dbo.persian_jdn(475, 1, 1)
SET @cycle = CAST((@depoch / 1029983) AS int)
SET @cyear = dbo.MMod(@depoch, 1029983)
IF @cyear = 1029982
SET @ycycle = 2820
ELSE
BEGIN
SET @aux1 = CAST((@cyear / 366) AS int)
SET @aux2 = dbo.MMod(@cyear, 366)
SET @ycycle = CAST(((((2134 * @aux1) + (2816 * @aux2) + 2815) / 1028522)) AS int) + @aux1 + 1
END
SET @iYear = @ycycle + (2820 * @cycle) + 474
IF @iYear <= 0
SET @iYear = @iYear - 1
SET @yday = (@jdn - dbo.persian_jdn(@iYear, 1, 1)) + 1
IF @yday <= 186
SET @iMonth = dbo.Ceil(CAST(@yday AS float)/ 31)
ELSE
SET @iMonth = dbo.Ceil(CAST((@yday - 6) AS float)/ 30)
SET @iDay = (@jdn - dbo.persian_jdn(@iYear, @iMonth, 1)) + 1
IF @iMonth < 10
SET @tmpMonth= N'0'+ CAST( @iMonth as char(2))
ELSE
SET @tmpMonth =CAST( @iMonth as char(2))
IF @iDay < 10
SET @tmpDay= N'0'+ CAST( @iDay as char(2))
ELSE
SET @tmpDay =CAST( @iDay as char(2))
RETURN CAST(@iYear AS char(4)) + N'/' + @tmpMonth + N'/' + @tmpDay
END
GO
CREATE FUNCTION dbo.Ceil(@number float)
RETURNS bigint AS
BEGIN
RETURN CASE SIGN(@number) WHEN -1 THEN CEILING(@number) - 1 ELSE CEILING(@number) END
END
GO
CREATE FUNCTION dbo.MMod (@numerator bigint, @denominator bigint)
RETURNS bigint AS
BEGIN
RETURN ((@numerator % @denominator) + @denominator) % @denominator
END
GO
البته بهتر از این هم میشد کدها را نوشت فعلا این را داشته باشید
آقای Linuxپر مدعا لطف کنید در حد تخصص تان از تخصصی بودن صحبت کنید
1-اگر نظری دارید بدون توهین اعلام کنید
2-نظر های خوب دیگران را قبول کنید
3-ببینید واقعا راست می گویید یا ار سر بغض
و...
ولی در حال کدی که نوشته اید به خاطر چند تابعی بودن سرعت رو بسیار کند می کنه مخصوصا اگر در Veiwبا تعداد رکورد بالا استفاده بشه باید ...................
ولی این تابع با سرعت بهتری کار می کنه
ضمنا SQL Server به خاطر اینکه در مدیریت Proc و Func ضعیف عمل می کنه سرعت کار با توابع و پروسیجرها بسیار کنده
Create Function AFf_MiladyToShamsi(@d int,@m int,@y int)
Returns NvarChar(10) AS
begin
-- Convert Milady to Shamsi
-- Update By Written By Mohammad Davoodnia
-- All Rigth Reserved AFTABGARDAN(C) 1385
Declare @ny as int
Declare @nd as int
Declare @nm as int
Declare @sny as nvarchar(4)
Declare @snd as nvarchar(2)
Declare @snm as nvarchar(2)
Declare @dd As bigint
Declare @Result As NVarChar(10)
set @ny=0
Set @nd=0
Set @nm=0
Set @dd=0
Set @ny=@y-621
if @m<3 Set @ny=@ny-1
if (@m=3) and (@d<=20) Set @ny=@ny-1
Set @dd=0
if @m=1 set @dd=@d
if @m=2 set @dd=31+@d
if @m=3 set @dd=31+28+@d
if @m=4 set @dd=31+28+31+@d
if @m=5 set @dd=31+28+31+30+@d
if @m=6 set @dd=31+28+31+30+31+@d
if @m=7 set @dd=31+28+31+30+31+30+@d
if @m=8 set @dd=31+28+31+30+31+30+31+@d
if @m=9 set @dd=31+28+31+30+31+30+31+31+@d
if @m=10 set @dd=31+28+31+30+31+30+31+31+30+@d
if @m=11 set @dd=31+28+31+30+31+30+31+31+30+31+@d
if @m=12 set @dd=31+28+31+30+31+30+31+31+30+31+30+@d
if @m<3 set @dd=@dd+(366-80)
if @m>3 set @dd=@dd-79
if (@m=3) and (@d<=20) set @dd=@dd+(366-80)
if (@m=3) and (@d>20) set @dd=@dd-79
if (@dd>=1) and (@dd<=(6*31))
begin
Set @nm=(@dd / 31)
Set @nd=(@dd-(@nm*31))
IF @nd=0 set @nd=31
IF (@nm<6) And (@nd<>31) Set @nm=@nm+1
end
Else
if @dd>186
begin
set @dd=@dd-186
Set @nm=7+@dd / 30
Set @nd=@dd % 30
if @nd=0
begin
Set @nd=30
Set @nm=@nm-1
end
end
Set @d=@nd
Set @y=@ny
Set @m=@nm
set @sny=ltrim(str(@y))
set @snm=ltrim(str(@m)),2
set @snd=ltrim(str(@d)),2
set @Result=@Sny+'/'+@snm+'/'+@snd
return(@Result)
end
:)
ببین عمو جون من نظرم را هر جوری دلم بخواهد اعلام می کنم. حالا بعضی ها زود به خودشان می گیرند. اخه من با شما ها چه بغضی دارم؟! اینجا نه به کسی پول می دهند نه قرار هست به کد کسی جایزه بدهند من اگر اینجا یک کدی قرار می دهم در برنامه هام ازش استفاده می کنم و به درست بودنش هم مطمئن هستم و تست شده می گذارم اینجا که مشکل یک عده مثل شما ها حل بشود اجبار هم نیست که شما از این کدها استفاده کنید یا از روشهای و کدهای خودتان.
این کد شما هم اشتباه هست هیچ جای کدتان برای سال کبیسه محاسباتی انجام نداده اید. بهتر هست توی تقویم روزهای 2005/3/19 و 2004/3/19 و 2004/3/20 و 2004/3/21 را ببنید که چه روزی بوده و بعد با برنامه خودتان چک کنید و همچنین برای سال 2008 همین روزها را چک کنید.
من کد خودم را با 200 هزار رکورد هم اجرا کردم و در عمل هیچ تاخیری و مشکلی ندیدم.
آخرین ویرایش به وسیله linux : جمعه 25 دی 1388 در 23:10 عصر
D:
حالشو ببر
پسر خوب گفتم برو تقویم را نگاه کن!
19 مارس 2008 برابر 29 اسفند 1386 خواهد بود نه 28 اسفند!
http://www.minelinks.com/calendar_converter.html
از اینجا نگاه کن
و اینجا
http://www.fourmilab.ch/documents/calendar/
سال 2008 سال کبیسه هست.
اگر فکر می کنی کسایی که این سایت را اداره می کنند برنامه اشتباه برای تبدیل این تاریخ را نوشته اند حتما با آنها تماس بگیر و راهنمایشان کن. خیلی خوشحال خواهند شد که متخصصی مثل شما به سایتشان سرزده است.
29 اسفند 86 نرمال Yearعزیز
البته که اینطوره ولی قبل از من متخصصی مثل شما سر زده فکر کنم بیشتر خوشحال شدن
ضمنا بعدیش رو هم داشته باش
آخرین ویرایش به وسیله محمد دادودنیا : دوشنبه 06 آذر 1385 در 04:52 صبح دلیل: مدیریت ضمیمه
البته بحثهای شما بسیار زیبا و اموزنده بود
(بجز برخی قسمتهایی که دیگران را مورد لطف قرار داده بودید)
اما خدمتتان عرض کنم بنده از 2000 استفاده می کنم و 3 سال پیش نیز برای تاریخهای شمسی کارکتر 10 را استفاده نمودم برای محاسبات تفاضل تاریخ و فواصل و اشتراکها در UI نیز از یک کامپوننت تولید شده توسط شرکت خودمان استفاده کردم که به رایگان نیز در همین سایت قرار داده شد
اما بخش مهم در مورد همین محاسبات در 2000 بود که نه تنها تاریخ های معادل فارسی را نگهداری می کردم که جدول تاریخ را نیز ایجاد و بایک برنامه خیلی ساده انرا پر نموده و از روش Join استفاده کردم
در نهایت اینکه سرعت بازیابی تاریخ های معادل از جدول همواره پایین تراز بدترین الگوریتم محاسبه است و این توابعی که دوستان قید فرمودند
1- در مورد انچه دوست عزیز Linuxگذاشته بودند تابع jdn_civil رو فراموش کردند قرار دهند بنابراین نتوانستم تست را انجام دهم
2- در مورد انچه دوست عزیز kamyarفرمودند تابع Substrcount وجود ندارد
امیدوارم دوستان عزیز در مورد این بحث بصورت جدی راه حل ارائه نمایند
آخرین ویرایش به وسیله JavanSoft : دوشنبه 06 آذر 1385 در 13:44 عصر
سال 2008 سال کبیسه نیست
در ضمن نیازی به تشکر یا مغذرت نیست اگر بدونم تابع ام اشتباه است اونو بررسی می کنم و دوباره اصلاحش می کنم ولی از همه دوستانی که توابع رو تست می کنن تشکر می کنم
با تشکر از دوستان
اگر چیزی اضافی که اضافی پس
ولی در مورد Documnet بهترین روشی که یه برنامه رو بتونی راحت به برنامه نویس دیگه ای بدی تا انجام بده ولی نکته اینجاست که چطور اونو تهیه کردی آیا ریز همه کارها و چرا این کاروکردی رو هم می نویسی یا فقط به کلیات اشاره داری(ضمنا اگه کسی روش Document نویسی خوبی بلده به ما یاد بده ممنون می شم)
البته که کنترل کردن دو تا بچه از یک بچه سخت تره حالا در هر زمینه ای که باشه فرقی نداره ولی باید دید که ایا دوتا بودن واقعا ضروریه یا نه می شه اونو اصلاح کرد.
با عرض معذرت از آقای ارزنگ عزیز اگه میشه یه کم واضحتر بگید یا ساده تر بنویسید جمله هاتون خیلی سخت خونده می شه به همون میزان هم فهمیدنش مشکله(اگه کسی Document نویس خوب بلده باشه به درت هردوتای ما می خوره)
آخرین ویرایش به وسیله محمد دادودنیا : چهارشنبه 15 آذر 1385 در 04:49 صبح دلیل: اشتباه تایپی
مرسی از درک بسیار زیادتون
مختصر نویسی همیشه خوب نیست
یه چیز دیگه کدوم یکی از دوستان می تونه یه مقاله کتاب یا هر چیز دیگه از اساتید ارجمند
1-دکتر بیژن بیرشک
2- دکتر محمود حسابی
در زمینه الگوریتم تبدیل تاریخ تاریخ ها (شمسی به میلادی و ...) معرفی کنه ؟
اگه آدرس کتابفروشی اشم بده منمون میشم
قابل توجه اقای Linux مثل اینکه تبدیل تاریخ جزء مباحث مسئله داره همچنین بازه زمانی قابل پیاده سازی تا این لحظه (که بدون ایراد باشه البته این نظر اساتید بسیار مهندس تر از من و شماست) کسی مدعی نشده به عنوان مثال آقای بیرشک یه تقوم 36 ساله طراحی کرده که از اونم ایراد گرفتن
عنوان = گاهنامهٔ تطبیقی سه هزار ساله
مولف = احمد بیرشک (که احتمالاً معرف حضور هستند این استاد!)
ناشر = بنیاد دانشنامهٔ بزرگ فارسی
چاپ دوم سال ۱۳۷۳
از جمله صحبت‌های جالبی که در این کتاب می‌خوانید:
- مفاهیمی مثل کبیسه ۱۲۸ ساله و ...
- فرمول و جداول لازم برای تبدیل تاریخ ۱۲۶۰ تا ۲۰۰۰ ایرانی و ۱- تا ۲۰۶۲ قمری و ۶۳۹- تا ۲۶۲۱ میلادی به هم‌دیگر!
- اندکی درباره آن ۱۰ روزی که از تقویم میلادی حذف شد و هیچ معادلی در تاریخ شمسی و قمری ندارد!!
- این که چرا تقویم ایرانی (جلالی) دقیق‌ترین تقویم است، و با این وجود، هر ۱۴۱۰۰۰ سال یک روز با واقعیت اختلاف پیدا می‌کند!
تقویم جدید از 1304 شروع میشه و قبل از آن یک محاسبه دیگری بکار می بردند که بر پایه سال 12 ماه و هر ماه 30 روز بوده که 5 روز آخر سال به آن اضافه می کردند و به آن خمسه مسترقه می گفتند و پس در هر صورت با این الگوریتم ها سال های قبل از 1304 با تقویم جور در نیم آید و بدلیل پیچیدگی محاسبات کبیسه ممکن هست که این الگوریتم ها تا یک محدوده کمی جواب بدهد ولی تقویم شما از ب بسم الله ایراد داشت.
خطاب به linux:
اگر ممکنه کد کامل را برای ما بفرستید (کدی که قبلا فرستادید تعریف jdn_civil را نداشت.)
من خیلی مایلم که یک برنامه BenchMark بنویسم، که کارش این باشه که سه روش رو با هم مقایسه کنه، از لحاظ سرعت (و اگر سوادم رسید، از لحاظ میزان RAM و CPU مصرفی):
- روش فانکشن‌های شما برای تبدیل تاریخ
- روش استفاده از جدول تاریخی که Join میشه (به شرط بزرگی جدول، مثلاً از ۱۰۰۰ تا ۲۰۰۰ شمسی)
- روش عدم تبدیل تاریخ در پایگاه داده، بلکه تبدیل اون در خود برنامه با کمک PersianCalendar دات نت ۲
دوستان دیگه‌هم اگر روشهای دیگه‌ای رو می‌خوان که من در این مقایسه وارد کنم، پیشنهاد بدن (اما نه پیشنهاد رو هوا، بلکه کد یا جدول لازم رو هم در اختیار بذارن.)
من وقتی این کد را تبدیل می کردم به sql چندتا چیز را نمیدانستم
1-تابع ieeereminder
2 تابع ceiling
در نتیجه خودم دوباره این توابع را نوشتم و در ضمن این کد را میشود اپتیمایز کرد
DROP FUNCTION dbo.Persian2Civil
DROP FUNCTION dbo.Civil2Persian
DROP FUNCTION dbo.IsPersianLeapYear
DROP FUNCTION dbo.persian_jdn
DROP FUNCTION dbo.jdn_persian
DROP FUNCTION dbo.Ceil
DROP FUNCTION dbo.Mmod
GO
CREATE FUNCTION dbo.Persian2Civil(@year int, @month int, @day int)
RETURNS char(10) AS
BEGIN
--RETURN dbo.jdn_civil(dbo.persian_jdn(@year, @month, @day))
RETURN cast(dbo.persian_jdn(@year, @month, @day) - 2415021 as
datetime)
END
GO
CREATE FUNCTION dbo.Civil2Persian(@CivilDate smalldatetime)
RETURNS char(10) AS
BEGIN
RETURN dbo.jdn_persian(CAST(@CivilDate as bigint)+2415021)
--RETURN dbo.jdn_persian(dbo.civil_jdn(@year, @month, @day))
END
GO
CREATE FUNCTION dbo.IsPersianLeapYear (@iYear bigint)
RETURNS bigint AS
BEGIN
DECLARE @temp bigint
DECLARE @lp bit
IF @iYear > 0
SET @temp = ((((dbo.MMod((@iYear - (474)), 2820) + 474) + 38) *
682) % 2816)
ELSE
SET @temp = ((((dbo.MMod((@iYear - (473)), 2820) + 474) + 38)
* 682) % 2816)
IF @temp < 682
SET @lp = 1
ELSE
SET @lp = 0
RETURN @lp
END
GO
CREATE FUNCTION dbo.persian_jdn(@iYear bigint, @iMonth int, @iDay int)
RETURNS bigint AS
BEGIN
DECLARE @PERSIAN_EPOCH bigint
SET @PERSIAN_EPOCH = 1948321 -- The JDN of 1 Farvardin 1
DECLARE @epbase bigint
DECLARE @epyear bigint
DECLARE @mdays bigint
DECLARE @temp bigint
IF @iYear >= 0
SET @epbase = @iYear - 474
ELSE
SET @epbase = @iYear - 473
SET @epyear = 474 + dbo.MMod(@epbase, 2820)
IF @iMonth <= 7
SET @mdays = (@iMonth - 1) * 31
ELSE
SET @mdays = (@iMonth - 1) * 30 + 6
SET @temp = @iDay + @mdays + CAST(((@epbase / 2820) * 1029983 +
(@PERSIAN_EPOCH - 1)) AS bigint)
RETURN @temp + CAST(((((@epyear * 682) - 110) / 2816) + (@epyear - 1) *
365) AS bigint)
END
GO
CREATE FUNCTION dbo.jdn_persian(@jdn bigint)
RETURNS char(10) AS
BEGIN
DECLARE @depoch bigint
DECLARE @cycle int
DECLARE @cyear bigint
DECLARE @ycycle int
DECLARE @aux1 int, @aux2 int
DECLARE @yday int
DECLARE @iYear bigint, @iMonth int, @iDay int
DECLARE @tmpMonth char(2),@tmpDay char(2)
SET @depoch = @jdn - dbo.persian_jdn(475, 1, 1)
SET @cycle = CAST((@depoch / 1029983) AS int)
SET @cyear = dbo.MMod(@depoch, 1029983)
IF @cyear = 1029982
SET @ycycle = 2820
ELSE
BEGIN
SET @aux1 = CAST((@cyear / 366) AS int)
SET @aux2 = dbo.MMod(@cyear, 366)
SET @ycycle = CAST(((((2134 * @aux1) + (2816 * @aux2) +
2815) / 1028522)) AS int) + @aux1 + 1
END
SET @iYear = @ycycle + (2820 * @cycle) + 474
IF @iYear <= 0
SET @iYear = @iYear - 1
SET @yday = (@jdn - dbo.persian_jdn(@iYear, 1, 1)) + 1
IF @yday <= 186
SET @iMonth = dbo.Ceil(CAST(@yday AS float)/ 31)
ELSE
SET @iMonth = dbo.Ceil(CAST((@yday - 6) AS float)/ 30)
SET @iDay = (@jdn - dbo.persian_jdn(@iYear, @iMonth, 1)) + 1
IF @iMonth < 10
SET @tmpMonth= N'0'+ CAST( @iMonth as char(2))
ELSE
SET @tmpMonth =CAST( @iMonth as char(2))
IF @iDay < 10
SET @tmpDay= N'0'+ CAST( @iDay as char(2))
ELSE
SET @tmpDay =CAST( @iDay as char(2))
RETURN CAST(@iYear AS char(4)) + N'/' + @tmpMonth + N'/' + @tmpDay
END
GO
CREATE FUNCTION dbo.Ceil(@number float)
RETURNS bigint AS
BEGIN
RETURN CASE SIGN(@number) WHEN -1 THEN CEILING(@number) - 1
ELSE CEILING(@number) END
END
GO
CREATE FUNCTION dbo.MMod (@numerator bigint, @denominator bigint)
RETURNS bigint AS
BEGIN
RETURN ((@numerator % @denominator) + @denominator) %
@denominator
END
GO
خیر در مورد ایشون چیز قابل عرضی ندارم. منظور از فانکشن شما هم اینه؟ اگر بعله، چون دوستان خیلی اون رو مورد لطف قرار دادن، اون رو هم وارد می‌کنم (ضمناً از لحاظ درستی تاریخی که بر می‌گردون هم مورد بررسی قرارش می‌دم که این همه بحثی که سرش شد به نتیجه برسه.)
قوانین ایجاد تاپیک در تالار
