تحويل كود فجول الى تي اس كيو ال

اكيد السؤال صعب ولكن ساعدوني حتى ولو جزء من هذه الدالة

فكرة الطلب حلو . . . . ولكن على الرغم من ان الكود اللى انت طلبه غير مفهوم هدفة وعليه منى كثير من الاستفهام . . .؟؟؟؟؟؟

فكرة الكود بالـ Sql

Declare @FirstDate Datetime, @SecondDate Datetime
Declare @FirstDay Int,@SecondDay Int

IF Day(@FirstDate)=31  
	Set @FirstDay = 30
Else if Day(@FirstDate)=28 or  Day(@FirstDate)=29 begin
           If Month(@FirstDate) = 2 begin
               Set @FirstDay = 30
           End Else begin
               Set @FirstDay = Day(@FirstDate)
           End
End Else begin
	Set @FirstDay = Day(@FirstDate)
End


If Day(@SecondDate)=31 
	Set @SecondDay = 30
Else if Day(@SecondDate)=28 OR Day(@SecondDate)=29 begin
            If Month(@SecondDate) = 2 begin
                Set @SecondDay = 30
            End Else begin
                Set @SecondDay = Day(@SecondDate)
            End
end Else begin
	Set @SecondDay = Day(@SecondDate)
End

Select  ((DateDiff("m", @FirstDate, @SecondDate) - 1) * 30) + (30 - @FirstDay) + @SecondDay

والدالة بالـSql

CREATE FUNCTION test_function (@FirstDate Datetime, @SecondDate Datetime)
RETURNS int
AS
BEGIN
	Declare @sum Int,@FirstDay Int,@SecondDay Int

	IF Day(@FirstDate)=31  
		Set @FirstDay = 30
	Else if Day(@FirstDate)=28 or  Day(@FirstDate)=29 begin
	           If Month(@FirstDate) = 2 begin
	               Set @FirstDay = 30
	           End Else begin
	               Set @FirstDay = Day(@FirstDate)
	           End
	End Else begin
		Set @FirstDay = Day(@FirstDate)
	End


	If Day(@SecondDate)=31 
		Set @SecondDay = 30
	Else if Day(@SecondDate)=28 OR Day(@SecondDate)=29 begin
	            If Month(@SecondDate) = 2 begin
	                Set @SecondDay = 30
	            End Else begin
	                Set @SecondDay = Day(@SecondDate)
	            End
	end Else begin
		Set @SecondDay = Day(@SecondDate)
	End

	Select  @sum=((DateDiff("m", @FirstDate, @SecondDate) - 1) * 30) + (30 - @FirstDay) + @SecondDay

	RETURN @sum
END

من الجيد . . . ان تكون لدينا القدرة ان نكتب باكثر من لغة نفس الكود

وهى اول الطريق للوصول الى الاحتراف . . . .

هذا الكود ماذا يعمل بالضبط ؟ حيث يمكن ان يكون هنالك اختصار له او يمكن كتابته بشكل ابسط

TareqVB كتب:

هذا الكود ماذا يعمل بالضبط ؟ حيث يمكن ان يكون هنالك اختصار له او يمكن كتابته بشكل ابسط

انت بتتكلم عن اى كود

addsoso كتب:

اكيد السؤال صعب ولكن ساعدوني حتى ولو جزء من هذه الدالة

اولا شكرا جزيلا جزيلا على من ساعدني على سؤالي هذا

ثانيا هذه الدالة ترجع عدد الايام بين تاريخين استناد الى سنة التي فيها 360 يوم (كل شهر ينتهي ب 30 يوم) وهيا موجودة اصلا في الاكسل days360

addsoso كتب:

اولا شكرا جزيلا جزيلا على من ساعدني على سؤالي هذا

ثانيا هذه الدالة ترجع عدد الايام بين تاريخين استناد الى سنة التي فيها 360 يوم (كل شهر ينتهي ب 30 يوم) وهيا موجودة اصلا في الاكسل days360

لا شكر على واجب انا اللى المفروض اشكرك على فكرة السوال . . .

لان اول خطوة فى احتراف البرمجة من رائى انى الواحد يقدر يكتب نفس الكود باكتر من لغة

السلام عليكم

ارجو ان نحتفظ بمشاركات ثابت عن تحويل الكود من لغة البرمجة الى الـT-SQL انه مهما اختلفت اللغات وطريقة كتابة اكوادها فهي ستشترك عند تحويلها الى لغة تي_سيكوال

ومامن احد يطور برامج قواعد بيانات والا سيحتاج الى مثل هذه الاكواد في تطبيقاته

احييك بشدة اخي لهذه الفكرة الجميلة وارجوا ان تستمر فيها وكلنا سنستفيد منها باذن الله

جوزيتم

اشكركم جدا على تفاعلكم بهذا الموضوع

طبعا هذه الفكره جاءت عندما كنت ابرمج قاعدة البيانات عن طريق الاكسس وكنت استخدم لغة ال vba لانشاء الدوال لما فيها مرونة بمعالجة البيانات

ولكن الاكسس غير فعال من ناحية ربطها على السرفر وعليه اخترت ان تكون الغة التالية tsql برنامج sqlserver 2008

والان كل مافي الامر ان احول كل الدالات التي هيا عل vba وتحول الي tsql

وأكرر شكري لكم.....والله الموفق

يمكن استخدام DATEDIFF موجوده في السكول

نعم ولكن DATEDIFF تعطي الفرق بين تاريخين وهي تعتمد على السنة التي تكون فيها عدد ايامها (365) بعكس دالة day360 تعتمد على دالة التي تكون فيها عدد ايامها (360)