Decimal To Roman Numeral in Microsoft Access

A program that I wrote using Microsoft Access to accept a number from your user and then it will convert the given number into it's roman numeral equivalent. I am using Microsoft Access 2000 in writing this application. I hope you will find my work useful.

I am currently accepting programming and web development work kindly contact me in the following email address for further details. Thank you.

My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental is (034) 4335675.

Sample Program Output

Program Listing

' Written By Mr. Jake R. Pomperada, MAED-IT

' January 1, 2018 Monday

' Microsoft Access 2000

Option Compare Database

Public Function RomanNumeral(ByVal aValue As Long) As String

  Dim i&

  Dim varArabic As Variant, varRoman As Variant

  Dim strResult As String

  varArabic = Array(1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000)

  varRoman = Array("I", "IV", "V", "IX", "X", "XL", "L", "XC", "C", "CD", "D", "CM", "M")

  For i = UBound(varArabic) To LBound(varArabic) Step -1

    Do While aValue >= varArabic(i)

      aValue = aValue - varArabic(i)

      strResult = strResult & varRoman(i)

    Loop

  Next i

  RomanNumeral = strResult

End Function

Private Sub Command5_Click()

Dim val_number, display As Double

If Len(Trim(Me.Text2) & vbNullString) = 0 Then

     MsgBox "Enter the a Number", vbInformation

     Me.Text2.SetFocus

     Exit Sub

End If

val_number = RomanNumeral(Me.Text2)

  

 Label8.Caption = "The roman numeral equivalent of " + Trim(Me.Text2) + _

 " is " + Trim(val_number) + "."

End Sub

Private Sub Command6_Click()

Me.Label8.Caption = ""

Me.Text2 = ""

Me.Text2.SetFocus

End Sub

Private Sub Command7_Enter()

  MsgBox ("This program was written by Mr. Jake R. Pomperada")

End Sub