/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
KOMBIN i excel til vb
Fra : PETER BOM


Dato : 24-10-01 17:58

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



 
 
Mikkel Bundgaard (24-10-2001)
Kommentar
Fra : Mikkel Bundgaard


Dato : 24-10-01 22:18

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



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408928
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste