|
|
Roman Numeral Converting Formatting Function
This is a function that will convert a number into Roman numerals.
It takes a look at each place value then converts it into the appropriate roman mumeral value.
This function also includes proper formatting of values of 4,999 up to 3,999,999,999.
Roman numerals only consist of I, V, X, L, C, D and M.
A line over a letter value means that base value times 1000.
A double line over a letter value means that base value times 100,000.
Here are the place values of roman numerals.
|
I = 1
V = 5
X = 10
L = 50
C = 100
D = 500
M = 1,000
|
V = 5,000
X = 10,000
L = 50,000
C = 100,000
D = 500,000
M = 1,000,000
|
V = 5,000,000
X = 10,000,000
L = 50,000,000
C = 100,000,000
D = 500,000,000
M = 1,000,000,000
|
Here is the ASP code for this script:
<div class="breg" style="text-align:left;padding-left:20px;">
<form name="GenRomNum" method="post" action="<%=Request.ServerVariables("URL")%>">
Input a number: <input type="text" name="TheNum" size="6">
<input type="submit" value="Convert">
</form>
</div>
<div class="breg" style="text-align:left;padding-left:20px;">
<%
TheNum = Request("TheNum")
RomNum = ""
Function RomanNumeral(TheNum)
If IsNumeric(TheNum) = False Then
RomanNumeral = "<b>Please Enter a Number</b>"
Else
TheNum = Round(TheNum,0)
SLine = "<span style=" & chr(34) & "text-decoration:overline;" & chr(34) & ">"
DLine = "<span style=" & chr(34) & "border-top-style:double;" & chr(34) & ">"
R1 = "|I|II|III|IV|V|VI|VII|VIII|IX"
R10 = "|X|XX|XXX|XL|L|LX|LXX|LXXX|XC"
R100 = "|C|CC|CCC|CD|D|DC|DCC|DCCC|CM"
R1K = "|" & _
"M|" & _
"MM|" & _
"MMM|" & _
"M" & SLine & "V</span>|" & _
SLine & "V</span>|" & _
SLine & "V</span>M|" & _
SLine & "V</span>MM|" & _
SLine & "V</span>MMM|" & _
"M" & SLine & "X</span>"
R10K = "|" & _
SLine & "X</span>|" & _
SLine & "XX</span>|" & _
SLine & "XXX</span>|" & _
SLine & "XL</span>|" & _
SLine & "L</span>|" & _
SLine & "LX</span>|" & _
SLine & "LXX</span>|" & _
SLine & "LXXX</span>|" & _
SLine & "XC</span>"
R100K = "|" & _
SLine & "C</span>|" & _
SLine & "CC</span>|" & _
SLine & "CCC</span>|" & _
SLine & "CD</span>|" & _
SLine & "D</span>|" & _
SLine & "DC</span>|" & _
SLine & "DCC</span>|" & _
SLine & "DCCC</span>|" & _
SLine & "CM</span>"
R1M = "|" & _
SLine & "M</span>|" & _
SLine & "MM</span>|" & _
SLine & "MMM</span>|" & _
SLine & "M</span>" & DLine & "V</span>|" & _
DLine & "V</span>|" & _
DLine & "V</span>" & SLine & "M</span>|" & _
DLine & "V</span>" & SLine & "MM</span>|" & _
DLine & "V</span>" & SLine & "MMM</span>|" & _
DLine & "X</span>" & SLine & "M</span>"
R10M = "|" & _
DLine & "X</span>|" & _
DLine & "XX</span>|" & _
DLine & "XXX</span>|" & _
DLine & "XL</span>|" & _
DLine & "L</span>|" & _
DLine & "LX</span>|" & _
DLine & "LXX</span>|" & _
DLine & "LXXX</span>|" & _
DLine & "XC</span>"
R100M = "|" & _
DLine & "C</span>|" & _
DLine & "CC</span>|" & _
DLine & "CCC</span>|" & _
DLine & "CD</span>|" & _
DLine & "D</span>|" & _
DLine & "DC</span>|" & _
DLine & "DCC</span>|" & _
DLine & "DCCC</span>|" & _
DLine & "CM</span>"
R1B = DLine & "M</span>"
PlaceVals = Array(R1,R10,R100,R1K,R10K,R100K,R1M,R10M,R100M)
For x = 1 To Len(TheNum)
IntNum = Cint(Mid(TheNum,Len(TheNum)-(x-1),1))
If x < 10 Then
RNumArr = Split(PlaceVals(x-1),"|")
RomNum = RNumArr(IntNum) & RomNum
Else
For y = 1 to IntNum
RomNum = R1B & RomNum
Next
End If
Next
RomanNumeral = TheNum & " = " & RomNum
End If
End Function
If Len(Trim(TheNum)) > 0 Then
Response.Write RomanNumeral(TheNum)
End If
%>
</div>