gnopaste

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

Name
sollniss
Scriptlanguage
VB
Tabwidth
4
Date
03/19/2008 02:18:09 pm
IP
217.88.188.34

blubb0r

  1. Private Function floor(Zahl As Long) As Integer
  2.   If Zahl = Int(Zahl) Then
  3.     floor = Zahl
  4.   Else
  5.     floor = Int(Zahl)
  6.   End If
  7. End Function
  8.  
  9. Private Function getTillion(i As String) As String
  10.   Dim WW
  11.   Dim WWW
  12.   Dim WWWW
  13.   Dim WWWWW
  14.   Dim WWWWWW
  15.   Dim e As Long
  16.   Dim z As Long
  17.   Dim h As Long
  18.   Dim t As Long
  19.   Dim zt As Long
  20.   Dim ht As Long
  21.   Dim a As String
  22.  
  23.   WW = Array("M", "B", "Tr", "Quadr", "Quint", "Sext", "Sept", "Okt", "Non", "Dez", "Undez", "Duodez", "Tredez", "Quadradez", "Quintadez", "Sextadez")
  24.   WWW = Array("", "Un", "Duo", "Tre", "Quattuor", "Quin", "Sex", "Septen", "Okto", "Novem")
  25.   WWWW = Array("", "Dez", "Vigint", "Trigint", "Quadragint", "Quinquagint", "Sexagint", "Septuagint", "Oktogint", "Nonagint")
  26.   WWWWW = Array("", "Cent", "Ducent", "Trecent", "Quadringent", "Quingent", "Sescent", "Septingent", "Octingent", "Nongent")
  27.   WWWWWW = Array("", "Millia", "Domillia", "Tremillia", "Quattuormillia", "Quinmillia", "Sexmillia", "Septenmillia", "Oktomillia")
  28.  
  29.   If i = 0 Then
  30.     getTillion = ""
  31.     Exit Function
  32.   ElseIf i < 10 Then
  33.     getTillion = WW(i - 1)
  34.     Exit Function
  35.   End If
  36.  
  37.   e = i Mod 10
  38.   z = floor(i / 10) Mod 10
  39.   h = floor(i / 100) Mod 10
  40.   t = floor(i / 1000) Mod 10
  41.   zt = floor(i / 10000) Mod 10
  42.   ht = floor(i / 100000) Mod 10
  43.  
  44.   a = WWW(e) & WWWW(z)
  45.   If i < 100 Then
  46.     getTillion = UCase(Left(a, 1, 1)) & LCase(Left(a, 2, Len(a) - 1))
  47.     Exit Function
  48.   End If
  49.   a = WWWWW(h) & a
  50.  
  51.   If i < 4000 Then
  52.     a = WWWWWW(t) & a
  53.   Else
  54.     a = WWWWW(ht) & WWW(t) & WWWW(zt) & "millia" & a
  55.   End If
  56.  
  57.   Dim aa As String
  58.   aa = Mid(a, Len(a - 2), 1)
  59.  
  60.   If aa <> "t" And aa <> "z" Then a = a + t
  61.  
  62.   getTillion = UCase(Left(a, 1, 1)) & LCase(Left(a, 2, Len(a) - 1))
  63. End Function
  64.  
  65. Private Function getZahlwort(x As String, tr As String) As String
  66.   Dim xx As String
  67.  
  68.   If InStr(1, x, "/") > 0 Then getBruchZahlwort (x)
  69.   If x = 0 Then getZahlwort = "Null"
  70.  
  71.   x = bla ' x.replace(/ /g,"").replace(/\./g,",")
  72.   xx = Split(x, ",")
  73.  
  74.   'if( (x.replace(/\D/g,"")x.replace(/\D/g,"")=="")return ""
  75.  
  76.   Dim t As String
  77.   Dim v As String
  78.   Dim i As Integer
  79.  
  80.   If Left(x, 1, 1) = "-" Then
  81.     v = "Minus "
  82.     i = 0
  83.   End If
  84.  
  85.   'x=x.replace(/-/,"").replace(/ /g,"");
  86.   'x=xx[0].replace(/\D/g,"");
  87.  
  88.   If Len(x) > 999999 * 6 Then
  89.     getZahlwort = "Diese Zahl ist zu groß!"
  90.     Exit Function
  91.   End If
  92.  
  93.   Dim ZZ
  94.   Dim ZZZ
  95.   Dim ZZig
  96.  
  97.   ZZ = Array("null", "eins", "zwei", "drei", "vier", "fünf", "sechs", "sieben", "acht", "neun")
  98.   ZZZ = Array("zehn", "elf", "zwölf")
  99.   ZZig = Array("", "zehn", "zwanzig", "dreißig", "vierzig", "fünfzig", "sechzig", "siebzig", "achtzig", "neunzig")
  100.  
  101.   If tr = "null" Or tr = "False" Or x < 1000000 Then
  102.    
  103. End Function
submitter » gnopaster | imprint « imprint     
» Terms of use «
» digital bit dot ch - t4c's new home «