We are Just Computer Freaker
 
IndeksPencarianPendaftaranLogin
Login
Username:
Password:
Login otomatis: 
:: Lupa password?

Share | 
 

 Math - Konversi Nilai pecahan untuk Nilai Dua Desimal-Place Mata Uang

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Qrembiezs
Security Team
Security Team


Jumlah posting : 93
Join date : 05.04.11
Lokasi : %windir%regedit.exe

PostSubyek: Math - Konversi Nilai pecahan untuk Nilai Dua Desimal-Place Mata Uang   Sat 8 Feb 2014 - 14:55

Visual Basic ® menawarkan banyak fungsi yang dapat mengkonversi nilai dari satu jenis yang lain. Salah satu fungsi ini adalah CCur. Fungsi ini akan mengambil variabel string yang berisi nilai dengan empat digit setelah desimal dan mengkonversi bagian pecahan dari nilai yang tertinggi (dibulatkan) dua digit nilai desimal berikutnya.

Pembulatan Nilai pecahan untuk Dua Tempat Desimal
Mari kita asumsikan bahwa program Visual Basic ® Anda memiliki variabel string yang berisi hasil dari beberapa jenis perhitungan persentase dan nilai yang mewakili jumlah dolar. Setelah perhitungan yang telah dilakukan, nilai yang dikembalikan sebagai 14,2399. Namun, Anda perlu melengkapi jumlah dolar ini hanya dua tempat desimal sehingga nilai akhir Anda adalah 14.24.

Fungsi CCur mengkonversi nomor ke tipe Currency nomor yaitu nomor yang dapat berisi, maksimal, empat digit setelah desimal. Variabel dilewatkan ke fungsi CCur harus tidak lebih besar dari 8 byte panjang dan harus berisi titik desimal tetap.

Dengan menggabungkan Format dan CCur fungsi, Anda dapat dengan mudah mengkonversi nomor untuk jumlah dolar yang bulat dengan hanya dua digit setelah titik desimal.

kode di bawah ini menunjukkan bagaimana menggunakan fungsi CCur dalam program Visual Basic. Ketika dijalankan, program ini menampilkan nilai 14,2399 pada Text Box pertama dan nilai mata uang yang diformat dengan benar, 14.24, di kotak teks kedua.

Code:
Dim Amount As Currency
Dim Total As String

Add the following code to the Form_Load event for Form1:
Sub Form_Load()
Amount = 14.2399
Text1.Text = Str$(Amount)
Total = CCur(Format(Amount, "#,##0.00"))
Text2.Text = Total
End Sub
Kembali Ke Atas Go down
 
Math - Konversi Nilai pecahan untuk Nilai Dua Desimal-Place Mata Uang
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Saat Ujian
» Tips - tips untuk menghindari kecelakaan
» ::::(ASK) Ban Yang Cocok Untuk Ninin::::
» [WTS] Knalpot Yoshimura R-77 Carbon Full System untuk ZX-10R, Salah beli gan..
» Ninja untuk harian? Cocok gak?

Permissions in this forum:Anda tidak dapat menjawab topik
Cry Ant Crew :: Information Technology :: Programming :: Visual Basic-
Navigasi: