Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Zahlen Umwandeln in Römische Zahlen
Autor: reycer
Datum: 01.03.04 21:47
hallo, habe ein kleines Problem bei meinem Programm.... Ich habe aus einem Buch den Quelltext für das umwandeln von normalen Zahlen in römische Zahlen gefunden. Da ich hier aber noch nicht ganz durchsteige wollte ich euch bitten mir zu helfen. Der Quelltext ist folgender: Const romanErrOutOfRange = 1 Const romanErrInvalidRomanDigit = 2 Public Function NumToRoman(ByVal Number As Integer) As String Dim i As Integer Dim nDigitValue As Integer Dim nRoman As String Dim nDigits(1 To 7) Select Case Number Case 1 To 3999 Case Else Err.Raise romanErrOutOfRange, _ "modRomanNumbers.NumToRoman", _ "Wert außerhalb des Bereichs 1 bis 3999" Exit Function End Select nDigits(1) = "I" nDigits(2) = "V" nDigits(3) = "X" nDigits(4) = "L" nDigits(5) = "C" nDigits(6) = "D" nDigits(7) = "M" i = 1 Do While Number > 0 nDigitValue = Number Mod 10 Select Case nDigitValue Case 1 nRoman = nDigits(i) & nRoman Case 2 nRoman = nDigits(i) & nDigits(i) & nRoman Case 3 nRoman = nDigits(i) & nDigits(i) & nDigits(i) & nRoman Case 4 nRoman = nDigits(i) & nDigits(i + 1) & nRoman Case 5 nRoman = nDigits(i + 1) & nRoman Case 6 nRoman = nDigits(i + 1) & nDigits(i) & nRoman Case 7 nRoman = nDigits(i + 1) & nDigits(i) & nDigits(i) & nDigits(i) & nRoman Case 8 nRoman = nDigits(i + 1) & nDigits(i) & nDigits(i) & nDigits(i) & nRoman Case 9 nRoman = nDigits(i) & nDigits(i + 2) & nRoman End Select i = i + 2 Number = Number \ 10 Loop NumToRoman = nRoman End Function End Function könnt ihr mir vielleicht sagen, wie ich den Quelltext so umschreiben kann, das ich per userform zahlen eingeben kann und in ein textfeld die römischen zahlen ausgegeben bekomme? Danke

Zahlen Umwandeln in Römische Zahlen	3.220	reycer	01.03.04 21:47
Re: Zahlen Umwandeln in Römische Zahlen	1.434	Thoro	01.03.04 22:52
Re: Zahlen Umwandeln in Römische Zahlen	1.212	reycer	02.03.04 16:46

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen