Sorry for this ugly message. We are searching for some translators.
Please send me an eMail or jabber: t4c@im.digital-bit.ch
Got: de, en, pl, ro, lu, ru, es - Need: everything else
Userdata
Name
sollniss
Scriptlanguage
VB
Tabwidth
4
Date
03/19/2008 02:18:09 pm
IP
217.88.188.34
Description
blubb0r
Code (Hide rownumbers )
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
xx = Split(x, ",")
Dim t As String
Dim v As String
Dim i As Integer
If Left(x, 1, 1) = "-" Then
v = "Minus "
i = 0
End If
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