تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
هذه الداله للتفقيط لرقميين عشريين اريدها الي 3 ارقام عشرية
#1
هذه الداله  للتفقيط   لرقميين عشريين     50.75  فقط   خمسون وخمسة وسبعون فلس

اريدها           50.750   فقط  خمسون وسبعمائة وخمسون فلس  لاغير
 اى تفقيط بالدينار الكويتي
الرد }}}
تم الشكر بواسطة:
#2
تابع هذه المشاركة http://vb4arb.com/vb/showthread.php?tid=21872
واعبد ربك حتى يأتيك اليقين
الرد }}}
تم الشكر بواسطة:
#3
(22-10-17, 12:41 AM)khodor1985 كتب : تابع هذه المشاركة http://vb4arb.com/vb/showthread.php?tid=21872

شكرا  جزيلا 
لم تفي بالغرض المطلوب
وهذة الدالة التي اريد التعديل عليها

 CREATE FUNCTION [dbo].[FNTafkeet] (@TheNo  numeric(18,2),@guidcurrency uniqueidentifier )
returns varchar(1000) as 
begin


declare @name_CURRENCY nvarchar(MAX) 
set @name_CURRENCY=(select NAME from CURRENCY where guid= @guidcurrency)
declare @PARENT_CURRENCY nvarchar(MAX) 
set @PARENT_CURRENCY=(select PART_NAME from CURRENCY where guid= @guidcurrency)


if @TheNo <= 0   return 'zero'
declare @TheNoAfterReplicate varchar(15)
set @TheNoAfterReplicate = right(replicate('0',15)+cast(floor(@TheNo) as varchar(15)),15)
declare @ComWithWord varchar(1000),@TheNoWithDecimal as varchar(400),@ThreeWords as int
set @ThreeWords=0
set @ComWithWord  = ' فقط '
declare   @Tafket TABLE (num int,  NoName varchar(100))
INSERT INTO @Tafket VALUES (0,'')  
INSERT INTO @Tafket VALUES (1,'واحد')
INSERT INTO @Tafket VALUES (2,'اثنان')
INSERT INTO @Tafket VALUES (3,'ثلاثة')
INSERT INTO @Tafket VALUES (4,'اربعة')
INSERT INTO @Tafket VALUES (5,'خمسة')
INSERT INTO @Tafket VALUES (6,'ستة')
INSERT INTO @Tafket VALUES (7,'سبعة')
INSERT INTO @Tafket VALUES (8,'ثمانية')
INSERT INTO @Tafket VALUES (9,'تسعة')
INSERT INTO @Tafket VALUES (10,'عشرة')
INSERT INTO @Tafket VALUES (11,'احدى عشر')
INSERT INTO @Tafket VALUES (12,'اثنى عشر')
INSERT INTO @Tafket VALUES (13,'ثلاثة عشر')
INSERT INTO @Tafket VALUES (14,'اربعة عشر')
INSERT INTO @Tafket VALUES (15,'خمسة عشر')
INSERT INTO @Tafket VALUES (16,'ستة عشر')
INSERT INTO @Tafket VALUES (17,'سبعة عشر')
INSERT INTO @Tafket VALUES (18,'ثمانية عشر')
INSERT INTO @Tafket VALUES (19,'تسعة عشر')
INSERT INTO @Tafket VALUES (20,'عشرون')
INSERT INTO @Tafket VALUES (30,'ثلاثون')
INSERT INTO @Tafket VALUES (40,'اربعون')
INSERT INTO @Tafket VALUES (50,'خمسون')
INSERT INTO @Tafket VALUES (60,'ستون')
INSERT INTO @Tafket VALUES (70,'سبعون')
INSERT INTO @Tafket VALUES (80,'ثمانون')
INSERT INTO @Tafket VALUES (90,'تسعون')
INSERT INTO @Tafket VALUES (100,'مائة')
INSERT INTO @Tafket VALUES (200,'مائتان')
INSERT INTO @Tafket VALUES (300,'ثلاثمائة')
INSERT INTO @Tafket VALUES (400,'أربعمائة')
INSERT INTO @Tafket VALUES (500,'خمسمائة')
INSERT INTO @Tafket VALUES (600,'ستمائة')
INSERT INTO @Tafket VALUES (700,'سبعمائة')
INSERT INTO @Tafket VALUES (800,'ثمانمائة')
INSERT INTO @Tafket VALUES (900,'تسعمائة')
INSERT INTO @Tafket  SELECT FirstN.num+LasteN.num,LasteN.NoName+' و '+FirstN.NoName
FROM (SELECT * FROM @Tafket WHERE num BETWEEN 20 AND 90) FirstN CROSS JOIN (SELECT * FROM @Tafket WHERE num BETWEEN 1 AND 9) LasteN
INSERT INTO @Tafket  SELECT FirstN.num+LasteN.num,FirstN.NoName+' و '+LasteN.NoName
FROM (SELECT * FROM @Tafket WHERE num BETWEEN 100 AND 900) FirstN CROSS JOIN (SELECT * FROM @Tafket WHERE num BETWEEN 1 AND 99) LasteN
 if left(@TheNoAfterReplicate,3) > 0
    set @ComWithWord = @ComWithWord + ISNULL((select NoName  from  @Tafket where num=left(@TheNoAfterReplicate,3)),'')+  ' ترليون' 
 if left(right(@TheNoAfterReplicate,12),3) > 0 and  left(@TheNoAfterReplicate,3) > 0
    set @ComWithWord=@ComWithWord+ ' و '
 if left(right(@TheNoAfterReplicate,12),3) > 0
    set @ComWithWord = @ComWithWord +ISNULL((select NoName from @Tafket where num=left(right(@TheNoAfterReplicate,12),3)),'') +  ' بليون'
 if left(right(@TheNoAfterReplicate,9),3) > 0
begin
    set @ComWithWord=@ComWithWord + case  when @TheNo>999000000  then ' و'  else '' end 
 set @ThreeWords=left(right(@TheNoAfterReplicate,9),3)
       set @ComWithWord = @ComWithWord + ISNULL((select case when   @ThreeWords>2 then NoName end  from @Tafket  where num=left(right(@TheNoAfterReplicate,9),3)),'')  + case when  @ThreeWords=2 then ' مليونان' when   @ThreeWords between 3 and 10 then ' ملايين' else ' مليون' end
end
if left(right(@TheNoAfterReplicate,6),3) > 0
begin
    set @ComWithWord=@ComWithWord + case  when @TheNo>999000  then ' و'  else '' end 
    set @ThreeWords=left(right(@TheNoAfterReplicate,6),3)
    set @ComWithWord = @ComWithWord + ISNULL((select case when  @ThreeWords>2 then NoName  end from @Tafket where num=left(right(@TheNoAfterReplicate,6),3)),'')+ case when  @ThreeWords=2 then ' الفان' when @ThreeWords between 3 and 10 then ' الاف'  else ' الف' end 
end
  if right(@TheNoAfterReplicate,3) > 0
  begin
    if round(@TheNo,0)>999 
    begin
    set @ComWithWord=@ComWithWord + ' و'
    end
  end
 set @ThreeWords=right(@TheNoAfterReplicate,2)
 set @ComWithWord =  @ComWithWord  +   ISNULL((select  NoName  from @Tafket where  num=right(@TheNoAfterReplicate,3)),'')
 -- set @ComWithWord =  @ComWithWord  +   ISNULL((select  NoName  from @Tafket where @ThreeWords>2 AND num=right(@TheNoAfterReplicate,3)),'')
--set @ComWithWord = @ComWithWord +' '+ case when  @ThreeWords=2 then ' جنيهان' when @ThreeWords between 3 and 10 then ' جنيهات'  else ' جنيه' end 
set @ComWithWord = @ComWithWord +' '+ case when  @ThreeWords=2 then '' when @ThreeWords between 3 and 10 then ''  else '' end 
if right(rtrim(@ComWithWord),1)=',' set @ComWithWord = substring(@ComWithWord,1,len(@ComWithWord)-1)
 if  right(@TheNo,len(@TheNo)-charindex('.',@TheNo)) >0 and charindex('.',@TheNo)<>0
    begin
        set @ThreeWords=left(right(round(@TheNo,2),2),2)
        SELECT @TheNoWithDecimal=  ' و' + ISNULL((SELECT NoName from @Tafket where num=left(right(round(@TheNo,2),2),2)  AND @ThreeWords >2),'')
        --set @TheNoWithDecimal = @TheNoWithDecimal+  case when  @ThreeWords=2 then ' قرشان' when @ThreeWords between 3 and 10 then ' قروش'  else '  قرش' end 
                set @TheNoWithDecimal = @TheNoWithDecimal+  case when  @ThreeWords=2 then ' '+@PARENT_CURRENCY when @ThreeWords between 3 and 10 then ' '+@PARENT_CURRENCY  else ' '+@PARENT_CURRENCY end 
set @ComWithWord = @ComWithWord +'  '+ @TheNoWithDecimal 
END
set @ComWithWord =    @ComWithWord + '  لا غير'+ ' (' +@name_CURRENCY+')'
return  rtrim(@ComWithWord)
end
الرد }}}
تم الشكر بواسطة:
#4
كيف يتم تحويل هذا الجزء من الدلة  من رقمين عشريين
الي ثلاث ارقام  عشرية
كود :
begin
       set @ThreeWords=left(right(round(@TheNo,2),2),2)
       SELECT @TheNoWithDecimal=  ' و' + ISNULL((SELECT NoName from @Tafket where num=left(right(round(@TheNo,2),2),2)  AND @ThreeWords >2),'')
       --set @TheNoWithDecimal = @TheNoWithDecimal+  case when  @ThreeWords=2 then ' قرشان' when @ThreeWords between 3 and 10 then ' قروش'  else '  قرش' end
               set @TheNoWithDecimal = @TheNoWithDecimal+  case when  @ThreeWords=2 then ' '+@PARENT_CURRENCY when @ThreeWords between 3 and 10 then ' '+@PARENT_CURRENCY  else ' '+@PARENT_CURRENCY end
set @ComWithWord = @ComWithWord +'  '+ @TheNoWithDecimal
END
set @ComWithWord =    @ComWithWord + '  لا غير'+ ' (' +@name_CURRENCY+')'
return  rtrim(@ComWithWord)
end
الرد }}}
تم الشكر بواسطة:
#5
تم التوصل الي الحل حيث تم استبدال round بـــــ ISNULL

حيث أن round تقوم بتقريب الارقام الي رقميين عشريين
الرد }}}
تم الشكر بواسطة: sendbad100
#6
(26-10-17, 09:30 AM)السيد الجوهري كتب : تم التوصل الي الحل حيث تم استبدال   round    بـــــ    ISNULL

حيث أن round     تقوم بتقريب الارقام الي رقميين عشريين

انا لا اعلم  ما المطلوب تعديله كي تضبط معك ولكن  نتكلم عن Round

Round   تقرب  حسب طلبك  لرقمين او 3   او غيره    انت تحدد  ما تريد 
مثال 
(10.3333,2)Round  
= 10.33

مثال2 
(10.33333,3)Round  
= 10.333


استبدال   round    بـــــ    ISNULL   الذي قمت به قد يحث اخطأ
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#7
(26-10-17, 02:42 PM)sendbad100 كتب :
(26-10-17, 09:30 AM)السيد الجوهري كتب : تم التوصل الي الحل حيث تم استبدال   round    بـــــ    ISNULL

حيث أن round     تقوم بتقريب الارقام الي رقميين عشريين

انا لا اعلم  ما المطلوب تعديله كي تضبط معك ولكن  نتكلم عن Round

Round   تقرب  حسب طلبك  لرقمين او 3   او غيره    انت تحدد  ما تريد 
مثال 
(10.3333,2)Round  
= 10.33

مثال2 
(10.33333,3)Round  
= 10.333


استبدال   round    بـــــ    ISNULL   الذي قمت به قد يحث اخطأ

شكرا جزيلا سيت تجربة الكود
الرد }}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم