title image


Smiley Re: Aufklärungsunterricht
Mit diesem Makro gehts in Winword, habs bloß noch nicht für OpenOffice umgeschrieben. Ist aber nicht das Problem.

Moritz



Sub ZinWort()

Dim A As Double

A = Selection.Text

Selection.TypeText Text:=ZWort(A, True)

End Sub



Function ZWort(dZahl As Double, Optional bnl As Boolean)

Dim dRest As Double

dRest = (dZahl - Fix(dZahl)) * 100

dZahl = Fix(dZahl)

BisNeunzehn = Array("", "ein", "zwei", "drei", "vier", "fünf", "sechs", "sieben", "acht", "neun", "zehn", "elf", "zwölf", "dreizehn", "vierzehn", "fünfzehn", "sechszehn", "siebzehn", "achtzehn", "neunzehn")

Zehner = Array("", "zehn", "zwanzig", "dreißig", "vierzig", "fünfzig", "sechzig", "siebzig", "achtzig", "neunzig")

tausender = Array("", "tausend", "millionen", "milliarden")

If dRest = 0 Then

ZWort = Textz(dZahl)

Else

If bnl Then

ZWort = Textz(dZahl) & " € " & Format(dRest, "##") & "/00"

Else

ZWort = Textz(dZahl)

End If

End If

End Function



Private Function Wort(wert As Integer) As String

Dim h As Integer

h = wert Mod 100

If h < 20 Then

Wort = BisNeunzehn(h)

Else

Wort = BisNeunzehn(h Mod 10) & IIf(h Mod 10 > 0, "und", "") & Zehner(Int(h / 10))

End If

h = (wert Mod 1000 - h) / 100

If h > 0 Then Wort = BisNeunzehn(h) & "hundert" & Wort

End Function



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: