Ada cara lain ? Bls: [belajar-access] Re: mohon bantuan function pecah angka

kang, dan para acceser,

just reminder ..kasus nya sbb :
aku mau split angka X menjadi Y kali tp hasil Y kali nya tidak boleh sama semua, contoh
split 1000 menjadi 4x ....... hasil nya tidak boleh 250 ,250 250 dan 250
harus angka random .......dan total angka random itu tetap 1000

karena nila pembagi bisa lebih dari 1 dan hasil random bisa menghasilkan nilai yang sama dengan nilai awal maka nilai awal saya bagi dulu dengan pembagi. function nya sbb

Function x(NilaiAwal As Double, pembagi As Double) As Double
Dim i As Integer
Dim NA As Integer
Dim Hasil
Randomize

NA = NilaiAwal
For i = 1 To pembagi - 1
    Hasil = Int(((NA / pembagi) * Rnd) + 1)
    NA = NA - Hasil
    Debug.Print Hasil
Next i
x = NA
End Function

 

kira2 ada cara lain ??????

Best regard
Erwin Sugiawan

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___