Exponent

[HKindler]

Hi,

nun ja, das liegt daran, dass die "kleinen" Zahlen halt bereits im ASCII-Code vorhanden waren...

Übrigens hier zwei kleine Funktionen, die alle Buchstaben (soweit in Unicode vorhanden) hoch bzw. tief stellen:

Code:

Function Tief(Text As String) As String
'stellt einen Text  tiefgestellt dar (über entsprechenden UniCode)
Dim Buchstabe As String
Dim i As Long
For i = 1 To Len(Text)
    Buchstabe = Mid(Text, i, 1)
    Select Case Buchstabe
        Case 0 To 9: Tief = Tief & ChrW(&H2080 + Buchstabe)
        Case "+": Tief = Tief & ChrW(&H208A)
        Case "-": Tief = Tief & ChrW(&H208B)
        Case "=": Tief = Tief & ChrW(&H208C)
        Case "(": Tief = Tief & ChrW(&H208D)
        Case ")": Tief = Tief & ChrW(&H208E)
        Case "a": Tief = Tief & ChrW(&H2090)
        Case "e": Tief = Tief & ChrW(&H2091)
        Case "h": Tief = Tief & ChrW(&H2095)
        Case "i": Tief = Tief & ChrW(&H1D62)
        Case "j": Tief = Tief & ChrW(&H2C7C)
        Case "k": Tief = Tief & ChrW(&H2096)
        Case "l": Tief = Tief & ChrW(&H2097)
        Case "m": Tief = Tief & ChrW(&H2098)
        Case "n": Tief = Tief & ChrW(&H2099)
        Case "o": Tief = Tief & ChrW(&H2092)
        Case "p": Tief = Tief & ChrW(&H209A)
        Case "r": Tief = Tief & ChrW(&H1D63)
        Case "s": Tief = Tief & ChrW(&H209B)
        Case "t": Tief = Tief & ChrW(&H209C)
        Case "u": Tief = Tief & ChrW(&H1D64)
        Case "v": Tief = Tief & ChrW(&H1D65)
        Case "x": Tief = Tief & ChrW(&H2093)
        Case Else: Tief = Tief & Buchstabe
    End Select
Next i
End Function

Code:

Function Hoch(Text As String) As String
'stellt einen Text hochgestellt dar (über entsprechenden UniCode)
Dim Buchstabe As String
Dim i As Long
For i = 1 To Len(Text)
    Buchstabe = Mid(Text, i, 1)
    Select Case Buchstabe
       Case 1: Hoch = Hoch & ChrW(&HB9)
       Case 2, 3: Hoch = Hoch & ChrW(&HB0 + CInt(Buchstabe))
       Case 0, 4 To 9: Hoch = Hoch & ChrW(&H2070 + CInt(Buchstabe))
       Case "A": Hoch = Hoch & ChrW(&H1D2C)
       Case "B": Hoch = Hoch & ChrW(&H1D2E)
       Case "D": Hoch = Hoch & ChrW(&H1D30)
       Case "E": Hoch = Hoch & ChrW(&H1D31)
       Case "G": Hoch = Hoch & ChrW(&H1D33)
       Case "H": Hoch = Hoch & ChrW(&H1D34)
       Case "I": Hoch = Hoch & ChrW(&H1D35)
       Case "J": Hoch = Hoch & ChrW(&H1D36)
       Case "K": Hoch = Hoch & ChrW(&H1D37)
       Case "L": Hoch = Hoch & ChrW(&H1D38)
       Case "M": Hoch = Hoch & ChrW(&H1D39)
       Case "N": Hoch = Hoch & ChrW(&H1D3A)
       Case "O": Hoch = Hoch & ChrW(&H1D3C)
       Case "P": Hoch = Hoch & ChrW(&H1D3E)
       Case "R": Hoch = Hoch & ChrW(&H1D3F)
       Case "T": Hoch = Hoch & ChrW(&H1D40)
       Case "U": Hoch = Hoch & ChrW(&H1D41)
       Case "V": Hoch = Hoch & ChrW(&H2C7D)
       Case "W": Hoch = Hoch & ChrW(&H1D42)
       Case "a": Hoch = Hoch & ChrW(&H1D43)
       Case "b": Hoch = Hoch & ChrW(&H1D47)
       Case "c": Hoch = Hoch & ChrW(&H1D9C)
       Case "d": Hoch = Hoch & ChrW(&H1D48)
       Case "e": Hoch = Hoch & ChrW(&H1D49)
       Case "f": Hoch = Hoch & ChrW(&H1DA0)
       Case "g": Hoch = Hoch & ChrW(&H1D4D)
       Case "h": Hoch = Hoch & ChrW(&H2B0)
       Case "i": Hoch = Hoch & ChrW(&H2071)
       Case "j": Hoch = Hoch & ChrW(&H2B2)
       Case "k": Hoch = Hoch & ChrW(&H1D4F)
       Case "l": Hoch = Hoch & ChrW(&H2E1)
       Case "m": Hoch = Hoch & ChrW(&H1D50)
       Case "n": Hoch = Hoch & ChrW(&H207F)
       Case "o": Hoch = Hoch & ChrW(&H1D52)
       Case "p": Hoch = Hoch & ChrW(&H1D56)
       Case "r": Hoch = Hoch & ChrW(&H2B3)
       Case "s": Hoch = Hoch & ChrW(&H2E2)
       Case "t": Hoch = Hoch & ChrW(&H1D57)
       Case "u": Hoch = Hoch & ChrW(&H1D58)
       Case "v": Hoch = Hoch & ChrW(&H1D5B)
       Case "w": Hoch = Hoch & ChrW(&H2B7)
       Case "x": Hoch = Hoch & ChrW(&H2E3)
       Case "y": Hoch = Hoch & ChrW(&H2B8)
       Case "z": Hoch = Hoch & ChrW(&H1DBB)
       Case "+": Hoch = Hoch & ChrW(&H207A)
       Case "-": Hoch = Hoch & ChrW(&H207B)
       Case "=": Hoch = Hoch & ChrW(&H207C)
       Case "(": Hoch = Hoch & ChrW(&H207D)
       Case ")": Hoch = Hoch & ChrW(&H207E)
       Case Else: Hoch = Hoch & Buchstabe
    End Select
Next i
End Function