Sisa hasil bagi (Modulus ) angka desimal

[Heru Safrudin]

Dear member milis Belajar-Excel,

Kenapa di vba sisa hasil bagi dari nilai desimal kok nol ?

Contoh :

10.4 mod 10  hasilnya 0
Bukankah harusnya hasilnya 0.4 ?

Mohon pencerahannya

Wassalam,

Heru Safrudin

[Mr. Kid]

Lihat term n cond dari VB function Mod disini.

Jika ingin mod yang menggunakan tipe data float, pakailah function Mod milik Excel.

Di Excel cells : =Mod(10.4,10)

Di VBA : evaluate("=Mod(10.4,10)")

Regards,

Kid

--
You received this message because you are subscribed to the Google Groups "milis Belajar-Excel" group.
To unsubscribe from this group and stop receiving emails from it, send an email to milis-belajar-e...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/3349b81e-4799-4213-9b29-cc627b117c92n%40googlegroups.com.

[Heru Safrudin]

Oh baru tau yang kayak gini, terima kasih banyak Mr. Kid

[Mr. Kid]

beberapa excel function bisa digunakan di VBA melalui object worksheetfunction, misal RoundUp

debug.print worksheetfunction.roundup( 10.4 , 0 ) 'hasilnya 11

setara dengan :
debug.print evaluate("=roundup( 10.4 , 0 )")

atau jika dijalankan langsung di VBE immediate window (tekan CTRL G untuk menampilkannya) 

? worksheetfunction.roundup( 10.4 , 0 )

? evaluate("=roundup( 10.4 , 0 )")

Regards,

Kid

To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/ca1c0c41-8b71-4425-8295-738157ff4d71n%40googlegroups.com.

[Heru Safrudin]

Wah... seandainya fungsi mod juga bisa pakai worksheetfunction tentu lebih mantep, soalnya kita mau aplikasikan fungsi mod menggunakan variabel, jadi ribet ya

Wassalam,

Heru Safrudin

[NangAgus]

Bagaimana jika desimalnya dihilangkan dahulu, kemudian dipakai fungsi modulo, dan desimalnya dikembalikan lagi.
(dikalikan dahulu, dan dibagi lagi)
Kira-kira bisa apa tidak Ya .............?

[Mr. Kid]

Public Sub xlMODdiVBA()
    Dim dblNilai As Double, dblPembagi As Double, dblHasil As Double
    dblNilai = 19.75
    dblPembagi = 5.5
    dblHasil = dblNilai - Fix(dblNilai / dblPembagi) * dblPembagi
    dblHasil = Evaluate("=Mod(" & dblNilai & "," & dblPembagi & ")")
End Sub

To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/fb6776cb-2e40-49e2-970e-05e2d3ae3a76n%40googlegroups.com.

[Heru Safrudin]

Dear Mr. Kid,

Kenapa di kompi saya musti minta ganti koma ke titik, sbb

    dblHasil = Evaluate("=Mod(" & Replace(dblNilai, ",", ".") & "," & Replace(dblPembagi, ",", ".") & ")")

[Mr. Kid]

oh karena komputernya menggunakan regional setting Indonesian atau Excel Options Advanced nya di set paksa pakai , sebagai decimal separator

To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/ac3fa2c5-1f32-4bfa-877a-d8803c17ab45n%40googlegroups.com.

[Heru Safrudin]

Iya bener Mr, sistem saya set regional Indonesia. Ternyata vba gak mentolerir

[Mr. Kid]

Jika akan menggunakan function Evaluate di Excel yang bekerja pada regional setting selain EN, maka :

1. set dulu supaya Excel bekerja dengan separator yang sama dengan EN

2. eksekusi baris script evaluate

3. set balik supaya excel bekerja dengan separator sesuai regional setting komputer.

kira-kira contohnya begini :

with application

     'no 1

     .UseSystemSeparators=false

     .DecimalSeparator="."

     .ThousandsSeparator=","

     'no 2

     debug.print evaluate("=mod(10.4,10)")

     'no 3

     .UseSystemSeparators=true

end with

Regards,

Kid

To view this discussion on the web visit https://groups.google.com/d/msgid/milis-belajar-excel/2f16cb4b-5188-480b-ad88-cd12ae0487d9n%40googlegroups.com.

[Heru Safrudin]

Masya Allah.. Alhamdulillah..... terima kasih Om Kid

Jazakallahu khoir,

Heru Safrudin