Rakamlari Yaziya Çeviren Fonksiyon Hk.

CREATE FUNCTION [dbo].[RakamOku] (@Sayi decimal(10,2))

AS

BEGIN

DECLARE @N int,@i int,@UCHANE int,@YED nvarchar(300),@UCLUHANE nvarchar(300), @Kurus int,

@HangiBasamak int,@Negatif bit,@BasamakYaz bit,@SONUC nvarchar(300),@SONUCKR nvarchar(300)

SET @Kurus=RIGHT(@Sayi,len(@Sayi)-CHARINDEX('.',@Sayi,1))

SET @Sayi=LEFT(@Sayi,CHARINDEX('.',@Sayi,1)-1)

SET @N=9

SET @SONUC=NULL

BEGIN

SET @SONUC=''

IF (@Sayi=0) SET @SONUC='SIFIR' ELSE BEGIN

IF (@Sayi<0) BEGIN

SET @Negatif=1

SET @Sayi=-@Sayi

END ELSE SET @Negatif=0

SET @HangiBasamak=0;

WHILE (@Sayi>0) BEGIN

SET @UCHANE=@Sayi % 1000

SET @Sayi=@Sayi / 1000

IF (@UCHANE>0) SET @BasamakYaz=1 ELSE SET @BasamakYaz=0

IF ((@HangiBasamak=1) and (@UCHANE=1)) SET @UCLUHANE=''

ELSE BEGIN

SET @UCLUHANE=''

SET @i=@UCHANE%10 SET @UCHANE=@UCHANE/10

SET @UCLUHANE=CASE @i

WHEN 1 THEN 'BIR'

WHEN 2 THEN 'IKI'

WHEN 3 THEN 'UC'

WHEN 4 THEN 'DORT'

WHEN 5 THEN 'BES'

WHEN 6 THEN 'ALTI'

WHEN 7 THEN 'YEDI'

WHEN 8 THEN 'SEKIZ'

WHEN 9 THEN 'DOKUZ'

ELSE '' END

SET @i=@UCHANE%10 SET @UCHANE=@UCHANE/10

SET @UCLUHANE=CASE @i

WHEN 1 THEN 'ON'

WHEN 2 THEN 'YIRMI'

WHEN 3 THEN 'OTUZ'

WHEN 4 THEN 'KIRK'

WHEN 5 THEN 'ELLI'

WHEN 6 THEN 'ALTMIS'

WHEN 7 THEN 'YETMIS'

WHEN 8 THEN 'SEKSEN'

WHEN 9 THEN 'DOKSAN'

ELSE '' END+@UCLUHANE

SET @i=@UCHANE%10

IF (@i>0) SET @YED='YUZ' ELSE SET @YED=''

IF (@i>1) SET @YED=CASE @i

WHEN 1 THEN 'BIR'

WHEN 2 THEN 'IKI'

WHEN 3 THEN 'UC'

WHEN 4 THEN 'DORT'

WHEN 5 THEN 'BES'

WHEN 6 THEN 'ALTI'

WHEN 7 THEN 'YEDI'

WHEN 8 THEN 'SEKIZ'

WHEN 9 THEN 'DOKUZ'

ELSE '' END+@YED

SET @UCLUHANE=@YED+@UCLUHANE;

END

IF (@BasamakYaz=1) SET @SONUC=@UCLUHANE+CASE @HangiBasamak

WHEN 1 THEN 'BIN'

WHEN 2 THEN 'MILYON'

WHEN 3 THEN 'MILYAR'

WHEN 4 THEN 'TRILYON'

WHEN 5 THEN 'KATRILYON'

WHEN 6 THEN 'KENTRILYON'

WHEN 7 THEN 'SEKSTILYON'

WHEN 8 THEN 'SEPTILYON'

WHEN 9 THEN 'OKTILYON'

ELSE '' END+@SONUC

SET @HangiBasamak=@HangiBasamak+1

END

IF (@Negatif=1) SET @SONUC='EKSI'+@SONUC

END

SET @SONUC=@SONUC +' TL'

END

SET @N=9

SET @SONUCKR=NULL

BEGIN

SET @SONUCKR=''

IF (@Kurus=0) SET @SONUCKR='' ELSE BEGIN

IF (@Kurus<0) BEGIN

SET @Negatif=1

SET @Kurus=-@Kurus

END ELSE SET @Negatif=0

SET @HangiBasamak=0;

WHILE (@Kurus>0) BEGIN

SET @UCHANE=@Kurus % 1000

SET @Kurus=@Kurus / 1000

IF (@UCHANE>0) SET @BasamakYaz=1 ELSE SET @BasamakYaz=0

IF ((@HangiBasamak=1) and (@UCHANE=1)) SET @UCLUHANE=''

ELSE BEGIN

SET @UCLUHANE=''

SET @i=@UCHANE%10 SET @UCHANE=@UCHANE/10

SET @UCLUHANE=CASE @i

WHEN 1 THEN 'BIR'

WHEN 2 THEN 'IKI'

WHEN 3 THEN 'UC'

WHEN 4 THEN 'DORT'

WHEN 5 THEN 'BES'

WHEN 6 THEN 'ALTI'

WHEN 7 THEN 'YEDI'

WHEN 8 THEN 'SEKIZ'

WHEN 9 THEN 'DOKUZ'

ELSE '' END

SET @i=@UCHANE%10 SET @UCHANE=@UCHANE/10

SET @UCLUHANE=CASE @i

WHEN 1 THEN 'ON'

WHEN 2 THEN 'YIRMI'

WHEN 3 THEN 'OTUZ'

WHEN 4 THEN 'KIRK'

WHEN 5 THEN 'ELLI'

WHEN 6 THEN 'ALTMIS'

WHEN 7 THEN 'YETMIS'

WHEN 8 THEN 'SEKSEN'

WHEN 9 THEN 'DOKSAN'

ELSE '' END+@UCLUHANE

SET @i=@UCHANE%10

IF (@i>0) SET @YED='YUZ' ELSE SET @YED=''

IF (@i>1) SET @YED=CASE @i

WHEN 1 THEN 'BIR'

WHEN 2 THEN 'IKI'

WHEN 3 THEN 'UC'

WHEN 4 THEN 'DORT'

WHEN 5 THEN 'BES'

WHEN 6 THEN 'ALTI'

WHEN 7 THEN 'YEDI'

WHEN 8 THEN 'SEKIZ'

WHEN 9 THEN 'DOKUZ'

ELSE '' END+@YED

SET @UCLUHANE=@YED+@UCLUHANE;

END

IF (@BasamakYaz=1) SET @SONUCKR=@UCLUHANE+CASE @HangiBasamak

WHEN 1 THEN 'BIN'

WHEN 2 THEN 'MILYON'

WHEN 3 THEN 'MILYAR'

WHEN 4 THEN 'TRILYON'

WHEN 5 THEN 'KATRILYON'

WHEN 6 THEN 'KENTRILYON'

WHEN 7 THEN 'SEKSTILYON'

WHEN 8 THEN 'SEPTILYON'

WHEN 9 THEN 'OKTILYON'

ELSE '' END+@SONUCKR

SET @HangiBasamak=@HangiBasamak+1

END

IF (@Negatif=1) SET @SONUCKR='EKSI'+@SONUCKR

END

SET @SONUCKR=CASE WHEN LEN(@SONUCKR)>0 THEN ', ' + @SONUCKR + ' Kr' ELSE '' END

END

RETURN @SONUC+@SONUCKR

END