PETER BOM <pb-consult@get2net.dk> wrote in message
> news:3bd6fe5a$0$305$edfadb0f@dspool01.news.tele.dk...
> Hej
>
> Hvordan laver jeg eller anvender flg. funktion i vb
> =KOMBIN(36;7), findes der en standard funktion i vb
> som svare til kombin i excel.
>
> Med venlig hilsen
>
> Peter
Hej Peter
Jeg ved ikke om der er findes en funktion i VB, som du kan
bruge, men ellers er her noget gammelt kode (omskrevet fra
Pascal) som burde klare problemerne.
Public Function NCOMB(N As Long, K As Long) As Long
Dim Nom As Long
Dim j As Long
If K < 0 Or N < K Then
NCOMB = 0
Exit Function
End If
If K = N Then
NCOMB = 1
Exit Function
End If
If K > N - K Then K = N - K
Nom = 1
For j = N - K + 1 To N
Nom = Nom * j
Next j
NCOMB = Nom / Factorial(K)
End Function
Function Factorial(N)
If N <= 1 Then ' Har nået slutningen på rekursive kald.
Factorial = 1 ' (N = 0), så gå ud af kaldene.
Else ' Kald Factorial igen, hvis N > 0.
Factorial = Factorial(N - 1) * N
End If
End Function
--
Mikkel Bundgaard
IT University of Copenhagen
http://officehelp.gone.dk
ICQ# 116946261
Se SpaceCommunicator - en peer-to-peer chat-applikation i Java