Zeichen in arabisch-indischer Druckschri
04.12.2020 12:05:46
reiner
Excel bietet die Möglichkeit arabische Ziffernfolgen in römische Ziffernfolgen zu konvertie-ren:
Public Function fktRoman(ByVal Arab As Long) As String
Dim Arabisch As Variant, Roemisch As Variant, Roem As String, i As Long
Arabisch = Array(1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000)
Roemisch = Array("I", "IV", "V", "IX", "X", "XL", "L", "XC", "C", "CD", "D", "CM", "M")
For i = UBound(Arabisch) To LBound(Arabisch) Step -1
Do While Arab >= Arabisch(i)
Arab = Arab - Arabisch(i)
Roem = Roem + Roemisch(i)
Loop
Next i
fktRoman = Roem
End Function
https://de.wikipedia.org/wiki/Unicodeblock_Arabisch
Beispiel: Alt+u+1635 = ٣
In WORD lassen sich die Ziffernkonvertieren, es ist mir bisher aber nicht gelungen mit z.B.: Alt+u+1635 = ٣ die Zeichen in den VBA-Editor zu schreiben. Meine Vorstellung war, die indo-arabischen Ziffern ähnlich wie die römischen Ziffern (sh.o.) in den Programmcode zu schreiben.
Kennt jemand eine andere Möglichkeit die Vorstellung zu realisieren?
mfg
reiner