For further information and to obtain a zipped copy of the databases related to the initials of the Quran you may refer to the following links:

 

Quran Sql server database :  http://www.sharemation.com/godistheone/gval_data.zip?uniq=-brsele

 

Quran Microsoft Access database : http://www.sharemation.com/godistheone/db.zip?uniq=-brsele

 

And For further information and to obtain a zipped copy of the excel files you may refer to the following links:

 

http://www.sharemation.com/godisone/Quran_initial.zip?uniq=-brsele

and

http://www.sharemation.com/godistheone/Quran_I_letter.zip?uniq=-brsele

Function number : 1

Input:Arabic verse

Ouput:return all Bismillah letter

output: return Bismillah letter of verse

 

 

CREATE    function retBisLetter(@st nvarchar(2000))

returns nvarchar(254)

as

begin

    declare @x nvarchar(254)

    declare @len int

    declare @s nvarchar(254)

    declare @g int

    declare @we nvarchar(50)

 

    set @s=''

    set @len=len(@st)

   

WHILE (@len <> 0)

BEGIN

    set @we=substring(@st,@len,1)

                                                      

    if @we in('ب' ,'س' ,'م' ,'ا' ,'ل' ,'ه' ,'ر' ,'ح' ,'م' ,'ن' ,'ي' ,'ئ' ,'آ' ,'إ' ,'أ')

    begin

      if charindex(@we,@s)=0 set @s=@s+' '+@we

    end

    set @len=@len-1

END

set @x=@s

    RETURN(isnull(@x,''))

end

Function number : 2

Input:Arabic verse

Ouput:return Bismillah letter Count

 

create     function retBisLettercnt(@st nvarchar(2000))

returns float

as

begin

    declare @x float

    declare @x2 nvarchar(254)

    set @x2=dbo.retBisletter(@st)

    set @x2=replace(@x2,' ','')

    set @x2=ltrim(rtrim((@x2)))

    set @x=len(@x2)

    RETURN(isnull(@x,0))

end

Function number : 3

Input:Arabic verse

Ouput:return GSV of verse

 

CREATE      function retGSV(@st nvarchar(2000))

returns float

as

begin

    declare @x int

    declare @len int

    declare @s int

    declare @g int

    declare @we nvarchar(50)

 

    set @s=0

    set @len=len(@st)

   

WHILE (@len <> 0)

BEGIN

   set @we=substring(@st,@len,1)

   set @g=dbo.retGSVforone(@we)

   set @s=@s+@g

   set @len=@len-1

END

set @x=@s

    RETURN(isnull(@x,0))

end

Function number : 4

Input:one Arabic letter

Ouput:return GSV of one letter

 

CREATE          function retGSVforone(@st nvarchar(50))

returns int

as

begin

    declare  @x int

    set  @x=0

    if @st='ا' set @x=1

    if @st='ب' set @x=2

    if @st='ج' set @x=3

    if @st='د' set @x=4

    if @st='ه' set @x=5

    if @st='و' set @x=6

    if @st='ز' set @x=7

    if @st='ح' set @x=8

    if @st='ط' set @x=9

    if @st='ي' set @x=10

    if @st='ك' set @x=11

    if @st='ل' set @x=12

    if @st='م' set @x=13

    if @st='ن' set @x=14

    if @st='س' set @x=15

    if @st='ع' set @x=16

    if @st='ف' set @x=17

    if @st='ص' set @x=18

    if @st='ق' set @x=19

    if @st='ر' set @x=20

    if @st='ش' set @x=21

    if @st='ت' set @x=22

    if @st='ث' set @x=23

    if @st='خ' set @x=24

    if @st='ذ' set @x=25

    if @st='ض' set @x=26

    if @st='ظ' set @x=27

    if @st='غ' set @x=28

    if @st='ئ' set @x=10

    if @st='ؤ' set @x=6

    if @st='آ' set @x=1

    if @st='ء' set @x=1

    if @st='إ' set @x=1

    if @st='أ' set @x=1

 

    RETURN(isnull(@x,0))

end

Function number : 5

Input:verse

Ouput:return GV of verse

 

 

 

CREATE        function retGV(@st nvarchar(2000))

returns float

as

begin

    declare @x int

    declare @len int

    declare @s int

    declare @g int

    declare @we nvarchar(50)

 

    set @s=0

    set @len=len(@st)

   

WHILE (@len <> 0)

BEGIN

   set @we=substring(@st,@len,1)

   set @g=dbo.retGvforone(@we)

   set @s=@s+@g

   set @len=@len-1

END

set @x=@s

    RETURN(isnull(@x,0))

Function number : 6

Input:one Arabic letter

Ouput:return GV of one letter

 

CREATE         function retGVforone(@st nvarchar(50))

returns int

as

begin

    declare  @x int

    set  @x=0

    if @st='ا' set @x=1

    if @st='ب' set @x=2

    if @st='ج' set @x=3

    if @st='د' set @x=4

    if @st='ه' set @x=5

    if @st='و' set @x=6

    if @st='ز' set @x=7

    if @st='ح' set @x=8

    if @st='ط' set @x=9

    if @st='ي' set @x=10

    if @st='ك' set @x=20

    if @st='ل' set @x=30

    if @st='م' set @x=40

    if @st='ن' set @x=50

    if @st='س' set @x=60

    if @st='ع' set @x=70

    if @st='ف' set @x=80

    if @st='ص' set @x=90

    if @st='ق' set @x=100

    if @st='ر' set @x=200

    if @st='ش' set @x=300

    if @st='ت' set @x=400

    if @st='ث' set @x=500

    if @st='خ' set @x=600

    if @st='ذ' set @x=700

    if @st='ض' set @x=800

    if @st='ظ' set @x=900

    if @st='غ' set @x=1000

    if @st='ئ' set @x=10

    if @st='ؤ' set @x=6

    if @st='آ' set @x=1

    if @st='ء' set @x=1

    if @st='إ' set @x=1

    if @st='أ' set @x=1

 

    RETURN(isnull(@x,0))

end

Function number : 7

Input:Arabic verse

Ouput:return GV of initial letter of verse

 

create         function retIGV(@st nvarchar(2000))

returns float

as

begin

    declare @x int

    declare @len int

    declare @s int

    declare @g int

    declare @we nvarchar(50)

 

    set @s=0

    set @len=len(@st)

   

WHILE (@len <> 0)

BEGIN

   set @we=substring(@st,@len,1)

   set @g=dbo.retiGvforone(@we)

   set @s=@s+@g

   set @len=@len-1

END

set @x=@s

    RETURN(isnull(@x,0))

end

Function number : 8

Input:one Arabic letter

Ouput:return GV of one initial letter

 

create        function retIGVforone(@st nvarchar(50))

returns int

as

begin

    declare  @x int

    set  @x=0

 

    if @st='ا' set @x=1

    if @st='ه' set @x=5

    if @st='ح' set @x=8

    if @st='ط' set @x=9

    if @st='ي' set @x=10

    if @st='ك' set @x=20

    if @st='ل' set @x=30

    if @st='م' set @x=40

    if @st='ن' set @x=50

    if @st='س' set @x=60

    if @st='ع' set @x=70

    if @st='ص' set @x=90

    if @st='ق' set @x=100

    if @st='ر' set @x=200

    if @st='ئ' set @x=10

    if @st='آ' set @x=1

    if @st='إ' set @x=1

    if @st='أ' set @x=1

 

    RETURN(isnull(@x,0))

end

Function number : 9

Input:Arabic verse

Ouput:return initial letter of verse

 

CREATE    function retILetter(@st nvarchar(2000))

returns nvarchar(254)

as

begin

    declare @x nvarchar(254)

    declare @len int

    declare @s nvarchar(254)

    declare @g int

    declare @we nvarchar(50)

 

    set @s=''

    set @len=len(@st)

   

WHILE (@len <> 0)

BEGIN

    set @we=substring(@st,@len,1)

    if @we in('ا' ,'ه' ,'ح' ,'ط' ,'ي' ,'ك' ,'ل' ,'م' ,'ن' ,'س' ,'ع' ,'ص' ,'ق' ,'ر' ,'ئ' ,'آ' ,'إ' ,'أ')

    begin

      if charindex(@we,@s)=0 set @s=@s+' '+@we

    end

    set @len=@len-1

END

set @x=@s

    RETURN(isnull(@x,''))

end

Function number : 10

Input:Arabic verse

Ouput:return count of initial letter in verse

 

CREATE    function retILettercnt(@st nvarchar(2000))

returns float

as

begin

    declare @x float

    declare @x2 nvarchar(254)

    set @x2=dbo.retIletter(@st)

    set @x2=replace(@x2,' ','')

    set @x2=ltrim(rtrim((@x2)))

    set @x=len(@x2)

    RETURN(isnull(@x,0))

end

Function number : 11

Input: Arabic verse

Ouput:return key letters of verse

 

 

 

CREATE   function retKeyLetter(@st nvarchar(2000))

returns nvarchar(254)

as

begin

    declare @x nvarchar(254)

    declare @len int

    declare @s nvarchar(254)

    declare @g int

    declare @we nvarchar(50)

 

    set @s=''

    set @len=len(@st)

   

WHILE (@len <> 0)

BEGIN

    set @we=substring(@st,@len,1)

                                                       

    if @we in('ا' ,'ه' ,'ح' ,'ط' ,'ي' ,'ك' ,'ل' ,'م' ,'ن' ,'س' ,'ع' ,'ص' ,'ق' ,'ر' ,'ئ' ,'آ' ,'إ' ,'أ','ب','د','و','ت','ذ','ض','غ')

    begin

      if charindex(@we,@s)=0 set @s=@s+' '+@we

    end

    set @len=@len-1

END

set @x=@s

    RETURN(isnull(@x,''))

end

Function number : 12

Input:Arabic verse

Ouput:return count of key letter in verse

 

 

 

create     function retKeyLettercnt(@st nvarchar(2000))

returns float

as

begin

    declare @x float

    declare @x2 nvarchar(254)

    set @x2=dbo.retKeyletter(@st)

    set @x2=replace(@x2,' ','')

    set @x2=ltrim(rtrim((@x2)))

    set @x=len(@x2)

    RETURN(isnull(@x,0))

end

Function number : 13

Input: Arabic verse

Ouput:return all letters of verse

 

CREATE    function retLetter(@st nvarchar(2000))

returns nvarchar(254)

as

begin

    declare @x nvarchar(254)

    declare @len int

    declare @s nvarchar(254)

    declare @g int

    declare @we nvarchar(50)

 

    set @s=''

    set @len=len(@st)

   

WHILE (@len <> 0)

BEGIN

    set @we=substring(@st,@len,1)

    if @we in('ا' ,'ه' ,'ح' ,'ط' ,'ي' ,'ك' ,'ل' ,'م' ,'ن' ,'س' ,'ع' ,'ص' ,'ق' ,'ر' ,'ئ' ,'آ' ,'إ' ,'أ' ,'ا','ب','ج','د','ه','و','ز','ح','ط','ي' ,'ك','ل','م','ن','س','ع','ف','ص','ق' ,'ر' ,'ش' ,'ت' ,'ث' ,'خ' ,'ذ' ,'ض' ,'ظ' ,'غ','ئ' ,'ؤ','آ' ,'ء','إ','أ' )

    begin

      if charindex(@we,@s)=0 set @s=@s+' '+@we

    end

    set @len=@len-1

END

set @x=@s

    RETURN(isnull(@x,''))

end

Function number : 14

Input:Arabic verse

Ouput:return count of letter in verse

 

 

CREATE    function retLettercnt(@st nvarchar(2000))

returns float

as

begin

    declare @x float

    declare @x2 nvarchar(254)

    set @x2=dbo.retletter(@st)

    set @x2=replace(@x2,' ','')

    set @x2=ltrim(rtrim((@x2)))

    set @x=len(@x2)

    RETURN(isnull(@x,0))

end

Function number : 15

Input: Arabic verse

Ouput:return TGV of verse

 

CREATE          function retTGV(@st nvarchar(2000))

returns float

as

begin

    declare @x int

    declare @len int

    declare @s int

    declare @g int

    declare @we nvarchar(50)

 

    set @s=0

    set @len=len(@st)

   

WHILE (@len <> 0)

BEGIN

   set @we=substring(@st,@len,1)

   set @g=dbo.retTGvforone(@we)

   set @s=@s+@g

   set @len=@len-1

END

set @x=@s

    RETURN(isnull(@x,0))

end

Function number : 16

Input:Arabic letter

Ouput:return TGV of one letter

 

CREATE       function retTGVforone(@st nvarchar(50))

returns int

as

begin

    declare  @x int

    set  @x=0

    if @st='ا' set @x=3

    if @st='ب' set @x=6

    if @st='ج' set @x=11

    if @st='د' set @x=16

    if @st='ه' set @x=36

    if @st='و' set @x=39

    if @st='ز' set @x=25

    if @st='ح' set @x=22

    if @st='ط' set @x=34

    if @st='ي' set @x=48

    if @st='ك' set @x=53

    if @st='ل' set @x=65

    if @st='م' set @x=77

    if @st='ن' set @x=89

    if @st='س' set @x=87

    if @st='ع' set @x=104

    if @st='ف' set @x=117

    if @st='ص' set @x=122

    if @st='ق' set @x=140

    if @st='ر' set @x=230

    if @st='ش' set @x=334

    if @st='ت' set @x=425

    if @st='ث' set @x=527

    if @st='خ' set @x=631

    if @st='ذ' set @x=734

    if @st='ض' set @x=841

    if @st='ظ' set @x=944

    if @st='غ' set @x=1047

    if @st='ئ' set @x=10

    if @st='ؤ' set @x=6

    if @st='آ' set @x=1

    if @st='ء' set @x=1

    if @st='إ' set @x=1

    if @st='أ' set @x=1

 

    RETURN(isnull(@x,0))

end

Function number : 17

Input:one Arabic letter

Ouput:return GV of one allah letter

 

 

CREATE        function retallahGVforone(@st nvarchar(50))

returns int

as

begin

    declare  @x int

    set  @x=0

 

    if @st='ا' set @x=1

    if @st='ه' set @x=5

    if @st='ل' set @x=30

    if @st='آ' set @x=1

    if @st='إ' set @x=1

    if @st='أ' set @x=1

    RETURN(isnull(@x,0))

end

Function number : 18

Input:Arabic verse

Ouput:return allah letter of verse

 

CREATE     function retallahLetter(@st nvarchar(2000))

returns nvarchar(254)

as

begin

    declare @x nvarchar(254)

    declare @len int

    declare @s nvarchar(254)

    declare @g int

    declare @we nvarchar(50)

 

    set @s=''

    set @len=len(@st)

   

WHILE (@len <> 0)

BEGIN

    set @we=substring(@st,@len,1)

    if @we in('ا' ,'ل' ,'ه' , 'آ' ,'إ' ,'أ')

    begin

      if charindex(@we,@s)=0 set @s=@s+' '+@we

    end

    set @len=@len-1

END

set @x=@s

    RETURN(isnull(@x,''))

end

Function number : 19

Input:Arabic verse

Ouput:return count of Allah letter

 

 

create function retallahLettercnt(@st nvarchar(2000))

returns float

as

begin

    declare @x float

    declare @x2 nvarchar(254)

    set @x2=dbo.retallahletter(@st)

    set @x2=replace(@x2,' ','')

    set @x2=ltrim(rtrim((@x2)))

    set @x=len(@x2)

    RETURN(isnull(@x,0))

end

 

Function number : 20

Input:Arabic verse

Ouput:return count of allah letter

 

create     function retallahcount(@st nvarchar(2000))

returns float

as

begin

    declare @x int

    declare @len int

    declare @s int

    declare @g int

    declare @we nvarchar(50)

 

    set @s=0

    set @len=len(@st)

   

WHILE (@len <> 0)

BEGIN

   set @we=substring(@st,@len,1)

   set @g=dbo.retallahGvforone(@we)

   if @g<>0 set @s=@s+1

   set @len=@len-1

END

set @x=@s

    RETURN(isnull(@x,0))

end

Function number : 21

Input:Arabic verse

Ouput:return count of letter in verse

 

CREATE    function retcount(@st nvarchar(2000))

returns float

as

begin

    declare @x int

    declare @len int

    declare @s int

    declare @g int

    declare @we nvarchar(50)

 

    set @s=0

    set @len=len(@st)

   

WHILE (@len <> 0)

BEGIN

   set @we=substring(@st,@len,1)

   set @g=dbo.retGvforone(@we)

   if @g<>0 set @s=@s+1

   set @len=@len-1

END

set @x=@s

    RETURN(isnull(@x,0))

end

Function number : 22

Input:index of verse

Ouput:return first letter of verse

 

CREATE    function retfirstletter(@indx float)

returns nvarchar(50)

as

begin

    declare @x nvarchar(500)

    set @x=(select fl from a666 where indx=@indx)

    RETURN(isnull(@x,''))

end

Function number : 23

Input:arabic verse

Ouput:return count of initial letter

 

 

CREATE     function reticount(@st nvarchar(2000))

returns float

as

begin

    declare @x int

    declare @len int

    declare @s int

    declare @g int

    declare @we nvarchar(50)

 

    set @s=0

    set @len=len(@st)

   

WHILE (@len <> 0)

BEGIN

   set @we=substring(@st,@len,1)

   set @g=dbo.retiGvforone(@we)

   if @g<>0 set @s=@s+1

   set @len=@len-1

END

set @x=@s

    RETURN(isnull(@x,0))

end

Function number : 24

Input:index of verse

Ouput:return index of next verse

 

CREATE  function retnextindx(@indx float)

returns nvarchar(50)

as

begin

    declare @next float

    set @next=(select verseno from a666 where @indx+1=indx)

    if @next=0 set @next=@indx+2

    if @next<>0 set @next=@indx+1

    RETURN(isnull(@next,0))

end

Function number : 25

Input:arabic verse

Ouput:return Those initial letter that doesn't exists in verse

 

CREATE    function retnonILetter(@st nvarchar(2000))

returns nvarchar(254)

as

begin

    declare @x nvarchar(254)

    declare @len int

    declare @s nvarchar(254)

    declare @s2 nvarchar(254)

    declare @g int

    declare @we nvarchar(50)

 

    set @s=''

    set @len=len(@st)

   

WHILE (@len <> 0)

BEGIN

    set @we=substring(@st,@len,1)

    if @we in('ا' ,'ه' ,'ح' ,'ط' ,'ي' ,'ك' ,'ل' ,'م' ,'ن' ,'س' ,'ع' ,'ص' ,'ق' ,'ر' ,'ئ' ,'آ' ,'إ' ,'أ')

    begin

      if charindex(@we,@s)=0 set @s=@s+''+@we

    end

    set @len=@len-1

END

    set @s2=''

    set @x='المصركهيعطسحقن'

    set @len=len(@s)

WHILE (@len <> 0)

BEGIN

    set @we=substring(@s,@len,1)

    set @x=replace (@x,@we,'')

    set @len=@len-1

END

    RETURN(isnull(@x,''))

end

Function number : 26

Input:Sura number

Ouput:return number of verses in that suras

 

create        function retnoverse(@surano float)

returns float

as

begin

    declare @x int

    set @x=(select max(verseno) from a666 where surano=@surano)

    RETURN(isnull(@x,0))

end

Function number : 27

Input:number

Ouput:return 0 if is prime and return 1 if isn't prime

 

 

CREATE function retprime(@num float)

returns float

as

begin

    declare @x float

    declare @i float

 

    set @i=@num-1

   

WHILE (@i <> 1)

BEGIN

   if (@num/@i)=ceiling(@num/@i)

   begin

     goto end1

   end

   set @i=@i-1

END

goto end2

end1:

    RETURN(0)

end2:

    RETURN(1)

 

end

Function number : 28

Input:index of verse

Ouput:return sum of it's digit for example for 21:88 is 2+1+8+8=19

 

create       function retsumdigit(@id nvarchar(50))

returns float

as

begin

    declare @x int

    declare @len int

    declare @s int

    declare @g int

    declare @we nvarchar(50)

 

    set @s=0

    set @id=ltrim(rtrim(replace(@id,':','')))

    set @len=len(@id)

   

WHILE (@len <> 0)

BEGIN

   set @we=substring(@id,@len,1)

   set @g=CONVERT(int, @we)

   set @s=@s+@g

   set @len=@len-1

END

set @x=@s

    RETURN(isnull(@x,0))

end

Function number : 29

Input:index of verse

Ouput:return Arabic verse

 

CREATE         function retverse(@indx float)

returns nvarchar(1000)

as

begin

    declare @we nvarchar(1000)

    set @we=(select top 1 verse from a666 where indx=@indx )

    RETURN(isnull(@we,''))

end