kleine Frage noch...
30.06.2009 12:12:28
Jan
Hallo Jogy
Vielen Dank für deine Funktion.
Habe doch noch eine Frage:
wenn ich "16000 über 1000" gleich wieder durch eine ähnlich grosse Zahl teilen würde, würde das irgendwie gehen? Resultat liegt dann zwischen 0 und 1....
Mein Ziel ist es wie oben schon erwähnt eine Wahrscheinlichkeit auszurechnen..
Vielen Dank für deine Unterstützung..
Gruss Jan
Übrigends, das gestern war auch ich..habe deine Funktion also schon ausprobiert, sie ist aber nicht exakt die seibe wie die andere.
Die andere, in meinem geposteten Dokument sieht so aus:
Option Explicit
Function mult_text(m1 As String, m2 As String) As String
Dim erg() As String
Dim rest() As Integer
Dim ii%, jj%, summ%
Application.Volatile
ReDim erg(Len(m2))
ReDim rest(Len(m2) + Len(m1) + 1)
For ii = 0 To Len(m2)
For jj = 1 To Len(m1) + Len(m2)
erg(ii) = erg(ii) & " "
Next jj
Next ii
For ii = 1 To Len(m2)
rest(0) = 0
For jj = Len(m1) To 1 Step -1
Mid(erg(ii), jj + ii, 1) = (Mid(m1, jj, 1) * Mid(m2, ii, 1) + rest(0)) Mod 10
rest(0) = Int((Mid(m1, jj, 1) * Mid(m2, ii, 1) + rest(0)) / 10)
Next jj
Mid(erg(ii), ii, 1) = rest(0)
Next ii
rest(0) = 0
For jj = Len(m1) + Len(m2) To 1 Step -1
summ = 0
For ii = 1 To UBound(erg)
summ = (IIf(Mid(erg(ii), jj, 1) = " ", 0, Mid(erg(ii), jj, 1)) * 1 + summ)
rest(jj) = IIf(Mid(erg(ii), jj, 1) = " ", 0, Mid(erg(ii), jj, 1)) * 1 + rest(jj)
Next ii
Mid(erg(0), jj, 1) = (summ + rest(jj + 1)) Mod 10
rest(jj) = Int((rest(jj) + rest(jj + 1)) / 10)
Next jj
While Left(erg(0), 1) = "0"
erg(0) = Right(erg(0), Len(erg(0)) - 1)
Wend
mult_text = erg(0)
End Function
Function fak_text(mm As String) As String
If mm > 1 Then
fak_text = mult_text(fak_text(mm - 1), mm)
Else
fak_text = 1
End If
End Function
Function koeff_Text(mm As String, nn As String) As String
Dim Zaehler() As Integer
Dim Nenner() As Integer
Dim ii%, jj%, kk%
Dim text As String, zz As String
ReDim Zaehler(nn)
ReDim Nenner(nn)
koeff_Text = "Nicht möglich!!!"
If nn * 1 > mm * 1 Then Exit Function
For ii = 1 To nn
Zaehler(ii) = mm - ii + 1
Nenner(ii) = ii
Next ii
For ii = nn To 1 Step -1
For kk = Nenner(ii) To 2 Step -1
For jj = 1 To nn
If Zaehler(jj) Mod kk = 0 And Nenner(ii) Mod kk = 0 Then
Zaehler(jj) = Zaehler(jj) / kk
Nenner(ii) = Nenner(ii) / kk
End If
Next jj
Next kk
Next ii
text = "1"
For ii = 1 To nn
zz = Zaehler(ii)
text = mult_text(zz, text)
Next
koeff_Text = text
End Function