gnopaste

Private Function floor(Zahl As Long) As Integer
  If Zahl = Int(Zahl) Then
    floor = Zahl
  Else
    floor = Int(Zahl)
  End If
End Function

Private Function getTillion(i As String) As String
  Dim WW
  Dim WWW
  Dim WWWW
  Dim WWWWW
  Dim WWWWWW
  Dim e As Long
  Dim z As Long
  Dim h As Long
  Dim t As Long
  Dim zt As Long
  Dim ht As Long
  Dim a As String
 
  WW = Array("M", "B", "Tr", "Quadr", "Quint", "Sext", "Sept", "Okt", "Non", "Dez", "Undez", "Duodez", "Tredez", "Quadradez", "Quintadez", "Sextadez")
  WWW = Array("", "Un", "Duo", "Tre", "Quattuor", "Quin", "Sex", "Septen", "Okto", "Novem")
  WWWW = Array("", "Dez", "Vigint", "Trigint", "Quadragint", "Quinquagint", "Sexagint", "Septuagint", "Oktogint", "Nonagint")
  WWWWW = Array("", "Cent", "Ducent", "Trecent", "Quadringent", "Quingent", "Sescent", "Septingent", "Octingent", "Nongent")
  WWWWWW = Array("", "Millia", "Domillia", "Tremillia", "Quattuormillia", "Quinmillia", "Sexmillia", "Septenmillia", "Oktomillia")
 
  If i = 0 Then
    getTillion = ""
    Exit Function
  ElseIf i < 10 Then
    getTillion = WW(i - 1)
    Exit Function
  End If

  e = i Mod 10
  z = floor(i / 10) Mod 10
  h = floor(i / 100) Mod 10
  t = floor(i / 1000) Mod 10
  zt = floor(i / 10000) Mod 10
  ht = floor(i / 100000) Mod 10

  a = WWW(e) & WWWW(z)
  If i < 100 Then
    getTillion = UCase(Left(a, 1, 1)) & LCase(Left(a, 2, Len(a) - 1))
    Exit Function
  End If
  a = WWWWW(h) & a
 
  If i < 4000 Then
    a = WWWWWW(t) & a
  Else
    a = WWWWW(ht) & WWW(t) & WWWW(zt) & "millia" & a
  End If
 
  Dim aa As String
  aa = Mid(a, Len(a - 2), 1)
 
  If aa <> "t" And aa <> "z" Then a = a + t
 
  getTillion = UCase(Left(a, 1, 1)) & LCase(Left(a, 2, Len(a) - 1))
End Function

Private Function getZahlwort(x As String, tr As String) As String
  Dim xx As String
 
  If InStr(1, x, "/") > 0 Then getBruchZahlwort (x)
  If x = 0 Then getZahlwort = "Null"
 
  x = bla ' x.replace(/ /g,"").replace(/\./g,",")
  xx = Split(x, ",")
 
  'if( (x.replace(/\D/g,"")x.replace(/\D/g,"")=="")return ""
 
  Dim t As String
  Dim v As String
  Dim i As Integer
 
  If Left(x, 1, 1) = "-" Then
    v = "Minus "
    i = 0
  End If
 
  'x=x.replace(/-/,"").replace(/ /g,"");
  'x=xx[0].replace(/\D/g,"");
 
  If Len(x) > 999999 * 6 Then
    getZahlwort = "Diese Zahl ist zu groß!"
    Exit Function
  End If
 
  Dim ZZ
  Dim ZZZ
  Dim ZZig
 
  ZZ = Array("null", "eins", "zwei", "drei", "vier", "fünf", "sechs", "sieben", "acht", "neun")
  ZZZ = Array("zehn", "elf", "zwölf")
  ZZig = Array("", "zehn", "zwanzig", "dreißig", "vierzig", "fünfzig", "sechzig", "siebzig", "achtzig", "neunzig")
 
  If tr = "null" Or tr = "False" Or x < 1000000 Then
   
End Function