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 DesimalMari 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
