Arabic To Roman

				
--**************************************
-- Name: Arabic To Roman
-- Description:The purpose of this short function snippets is to convert the arabic numerals into Roman Numerals in SQL Server Database Management System.
-- By: barkýn ünüulu
--
-- Inputs:In the code snippet you are going to recognize 5 user defined functions. The functions which are called One_To_Nine,Tens,Hundreds and Thousands convert the arabic decimals into roman numerals respectively. And at the end the ToRoman function calls the functions according to the length of the arabic numeral entered by the user.
--
-- Returns:The ToRoman function will return a text value, in the terms of database types varchar(20).
--
-- Side Effects:The ToRoman function will only return numbers which are smaller or equal to 4999. As I can not define the character V that has a line on top of it, I have to limit the function.
--
--This code is copyrighted and has-- limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=1147&lngWId=5--for details.--**************************************

CREATE function [dbo].[ToRoman](@Number varchar(10)) returns varchar(20)
 begin
declare @Result varchar(20)
 
 if len(@number)=1
begin
set @Result=dbo.One_To_Nine(@number)
end
 if len(@number)=2
begin
set @Result=dbo.Tens(@number)
end
 if len(@number)=3
begin
set @Result=dbo.Hundreds(@number)
end
if len(@number)=4
begin
set @Result=dbo.Thousands(@number)
end
 
 return @Result
end
CREATE function [dbo].[One_To_Nine](@number varchar(10)) 
returns varchar(10)
begin
 declare @Result varchar(20)
 declare @Ones varchar(1) 
 /*set @KidemNo=left(@KidemNo,dbo.Çizgi_Bul(@KidemNo))*/
 set @Ones=right(@number,1)
if @Ones='1' 
begin
 set @Result='I'
end 
 else if @Ones='2' 
 begin
 set @Result='II'
end 
 else if @Ones='3' 
 begin
 set @Result='III'
end 
 else if @Ones='4' 
 begin
 set @Result='IV'
end 
 else if @Ones='5' 
 begin
 set @Result='V'
end 
else if @Ones='6' 
 begin
 set @Result='VI'
end 
			 else if @Ones='6' 
 begin
 set @Result='VI'
end 
				else if @Ones='7' 
 begin
set@Result='VII'
end 
 else if @Ones='8' 
 begin
 set @Result='VIII'
end 
else if @Ones='9' 
 begin
 set @Result='IX'
end 
 else if @Ones='0' 
 begin
 set @Result=''
end 
 return @Result
 end
CREATE function [dbo].[Tens](@number varchar(10)) returns varchar(10)
begin
 declare @Result varchar(20)
 declare @Tens varchar(10)
 declare @number1 varchar(10)
 /*set @number1=left(@number,dbo.Çizgi_Bul(@number))*/
 set @Tens=left(right(@number,2),1)
if @Tens='1'
 begin
 set @Result='X' +dbo.One_To_Nine(@number)
 end
 else if @Tens='2'
 begin
 set @Result='XX' +dbo.One_To_Nine(@number)
 end
 else if @Tens='3'
 begin
 set @Result='XXX' +dbo.One_To_Nine(@number)
 end
 else if @Tens='4'
 begin
 set @Result='XL' +dbo.One_To_Nine(@number)
 end
else if @Tens='2'
 begin
 set @Result='XX' +dbo.One_To_Nine(@number)
 end
 else if @Tens='5'
 begin
 set @Result='L' +dbo.One_To_Nine(@number)
 end
 else if @Tens='6'
 begin
 set @Result='LX' +dbo.One_To_Nine(@number)
 end
			else if @Tens='7'
 begin
 set @Result='LXX' +dbo.One_To_Nine(@number)
 end
else if @Tens='8'
 begin
 set @Result='LXXX' +dbo.One_To_Nine(@number)
 end
else if @Tens='9'
 begin
 set @Result='XC' +dbo.One_To_Nine(@number)
 end 
ELSE if @Tens='0'
begin
 set @Result=''+ dbo.One_To_Nine(@number)
end 
 return @Result
end
CREATE function [dbo].[Hundreds](@number varchar(10)) returns varchar(10)
 begin
declare @Result varchar(20)
declare @Hundreds varchar(10)
declare @number1 varchar(10)
/*set @number1=left(@number,dbo.Çizgi_Bul(@number))*/
set @Hundreds=left(right(@number,3),1)
 if @Hundreds='1'
begin
set @Result='C'+ dbo.Tens(@number)
end
if @Hundreds='2'
begin
set @Result='CC'+ dbo.Tens(@number)
end
 if @Hundreds='3'
begin
set @Result='CCC'+ dbo.Tens(@number)
end
if @Hundreds='4'
begin
set @Result='CD'+ dbo.Tens(@number)
end
if @Hundreds='5'
begin
set @Result='D'+ dbo.Tens(@number)
end
if @Hundreds='6'
begin
set @Result='CD'+ dbo.Tens(@number)
end
if @Hundreds='7'
begin
set @Result='DCC'+ dbo.Tens(@number)
end
 if @Hundreds='8'
begin
set @Result='DCCC'+ dbo.Tens(@number)
end
if @Hundreds='9'
begin
set @Result='CM'+ dbo.Tens(@number)
end
if @Hundreds='0'
 begin
set @Result=''+dbo.Tens(@number)
 end 
Return @Result
end 
CREATE function [dbo].[Thousands] (@number varchar(10)) returns varchar(10)
begin 
 declare @Result varchar(20)
 declare @number1 varchar(10)
 declare @Thousands varchar(10)
 /*set @number1=left(@number,dbo.Çizgi_Bul(@number))*/
		 set @Thousands =left(@number,1)
if @Thousands='1'
begin
 set @Result='M' + dbo.Hundreds(@number)
end
 else if @Thousands ='2'
begin
 set @Result='MM'+dbo.Hundreds(@number)
end
else if @Thousands ='3'
begin
 set @Result='MMM'+dbo.Hundreds(@number)
end
else if @Thousands ='4'
begin
 set @Result='MMMM'+dbo.Hundreds(@number)
end
 return @Result
end