Convert Arabic numbers in SQL 2005

The following function converts arabic numbers (nvarchar) to digital numbers

Alter Function [dbo].[Convert_Arabic_To_Decimal]

(

@String nvarchar(100)

)

Returns numeric(20,6)

as

BEGIN

declare @String2 nvarchar(100)

declare @rtrn as numeric(20,6)

declare @iMode as smallint

declare @bMode as smallint

declare @Digit as numeric(18,6)

set @String2 = @String

set @rtrn = 0

set @iMode = 1

set @bMode = 1

while @String2 <> ''

Begin

if (unicode(left(@string2,1)) >=1632 and unicode(left(@string2,1)) <=1641)

or (unicode(left(@string2,1))=1776)

begin

set @Digit = unicode(left(@string2,1))-1632

if unicode(left(@string2,1))=1776

set @Digit = 0

if @bMode =1

set @rtrn = (@rtrn * power(10,@iMode)) + ( @Digit)

else

begin

set @rtrn = @rtrn + ( @Digit / power(10,@iMode))

set @iMode = @iMode + 1

end

end

else if unicode(left(@string2,1)) = 46

set @bMode = 0

set @String2 = right(@string2,len(@string2)-1)

End

return @rtrn

END

Example:

declare @String as nvarchar(100) set @String = N'٧.۰٧٨٠٧' select [dbo].[Convert_Arabic_To_Decimal](@String)

returns 7.078070