nicht angemeldet
Hallo Leute
Function Hochkommata(Zahl)
--------------------------------------------------------------------
Zahl = RTrim(Zahl)
If Len(Zahl) > 3 AND Len(Zahl) =< 6 Then
Hochkommata = Replace(Zahl, Right(Zahl, 3), "'" & Right(Zahl, 3))
End If
If Len(Zahl) > 6 Then
Hochkommata = Replace(Zahl, Right(Zahl, 6), "'" & Right(Zahl, 6))
Hochkommata = Replace(Zahl, Right(Zahl, 3), "'" & Right(Zahl, 3))
End If
End Function
--------------------------------------------------------------------
Diese Funktion soll nach den ersten drei und nach den ersten sechs Zeichen von rechts ein Hochkommata setzen. Das ganze funktioniert eigentlich. Hier einige Beispiele von Eingaben und Ausgaben
10000000 = 1'000'0000 <- Falsch
1123000 = 1123'000 <- Falsch
23000 = 23'000 <- Richtig
10000 = 1'0000 <- Falsch
123000 = 123'000 <- Richtig
Meine Frage: Warum diese Fehler ?
Andere Frage: Gibt es irgendeine Funktion im VB-Script um Zahlen zu separieren ?