×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
• Talk With Other Members
• Be Notified Of Responses
• Keyword Search
Favorite Forums
• Automated Signatures
• Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

#### Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

# Microsoft: Access Other topics FAQ

## Module Stuff

 Ever needed to convert a Number into a Roman Numeral by rhicks faq181-111 Posted: 6 Jul 00 This function will convert any number between 1 and 3999 to a Roman Numeral.Public Function dhRoman(ByVal intValue As Integer) As StringDim varDigits As VariantDim intPos As IntegerDim IntDigit As IntegerDim strTemp As String' Build up the array of roman digitsvarDigits = Array("I", "V", "X", "L", "C", "D", "M")intPos = LBound(varDigits)strTemp = ""Do While intValue > 0    IntDigit = intValue Mod 10    intValue = intValue \ 10        Select Case IntDigit            Case 1                strTemp = varDigits(intPos) & strTemp            Case 2                strTemp = varDigits(intPos) & varDigits(intPos) _                & strTemp            Case 3                strTemp = varDigits(intPos) & varDigits(intPos) _                & varDigits(intPos) & strTemp            Case 4                strTemp = varDigits(intPos) & varDigits(intPos + 1) _                & strTemp            Case 5                strTemp = varDigits(intPos + 1) & strTemp            Case 6                strTemp = varDigits(intPos + 1) & varDigits(intPos) _                & strTemp            Case 7                strTemp = varDigits(intPos + 1) & varDigits(intPos) _                & varDigits(intPos) & strTemp            Case 8                strTemp = varDigits(intPos + 1) & varDigits(intPos) _                & varDigits(intPos) & varDigits(intPos) & strTemp            Case 9                strTemp = varDigits(intPos) & varDigits(intPos + 2) _                & strTemp        End Select        intPos = intPos + 2LoopdhRoman = strTempEnd FunctionHTHRDH Back to Microsoft: Access Other topics FAQ Index Back to Microsoft: Access Other topics Forum

Close Box

# Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

• Talk To Other Members
• Notification Of Responses To Questions
• Favorite Forums One Click Access
• Keyword Search Of All Posts, And More...

Register now while it's still free!