Pembulatan nilai transaksi Lima ratusan dalam digital printing, retail dan lainnya

-
Mata uang rupiah yang terkecil saat ini, tahun 2018, adalah rp 50 ( lima puluh rupiah ). Uang senilai itu, umumnya, untuk anak SD pun sudah tidak mau lagi menerima. Dengan uang ini, tidak ada  pilihan yang didapatkan, bahlan untuk permen satu buah.

Dalam transaksi keuangan secara langsung, uang senilai 500 akan menjadi patokan untuk menghilangkan atau membulatkan nilai “pecahan ratusan” transaksi tersebut. Misalnya, jumlah total belanjaan adalah 135.250.  oleh karena nilai 250 rupiah susah diperoleh dan atau orang yang menerima juga akan mengikhlaskan jika tidak diberikan. Sehingga secara nyata akan membulatkan ke bawah menjadi 135.000.
Jika ada aturan bahwa nilai uang pecahan ratusan yang lebih dari 550, maka akan dibulatkan ke ribuan; pecahan ratusan antara 501 s.d 549 akan dibukatkan menjadi 500 dan pecahan ratusan kurang dari 500 akan dibulatkan ke bawah (dihilangkan).

Secara algoritma di atas, apabila diterjemahkan menjadi barisan kode , seperti berikut:


Dim vRatusan As Single, vRibuan As Single, vRibuanUp As Single
Dim vTotalBaru As Single

Function TotalBulatNew(pTotal)
Dim vBilangan As Single, vHasilBulat As Single, vHasilPecahan As Single
Dim VHasilBulatan As Single

'jika ratusan 551 - up, bulatkan ke ribuan
'jika ratusan 501 - 549 ke 500
'jika ratusan  dibawah 500, buang 500 nya

vBilangan = pTotal
vRatusan = Val(Right(vBilangan, 3))
vRibuan = Left(pTotal, (Len(pTotal) - 3))                  ‘
If vRatusan >= 550 Then
vRatusan = 0                                                               ' Int(vRatusan / 100) * 100
vRibuanUp = (vRibuan * 1000) + 1000
ElseIf (vRatusan >= 501) And (vRatusan <= 549) Then
vRatusan = Int(vRatusan / 100) * 100                        ' Round(vRatusan, 2)
vRibuanUp = (vRibuan * 1000) '+ 1000
ElseIf vRatusan <= 500 Then
vRatusan = 0
vRibuanUp = (vRibuan * 1000)
End If

vTotalBaru = vRibuanUp + vRatusan
End Function

Call TotalBulatNew(TxtHasil.Text)
  TxtHasil.Text= vTotalBaru

Penjelasan code di atas:
Fungsi TotalBulatNew, mempunyai 1 parameter masukan pTotal, yaitu suatu hasil yang ditampung di dalam objek TxtHasil.Text

vBilangan mempunyai variabel deklarasi single (angka), yang menampung parameter pTotal
vRatusan, suatu variabel yang menKonversi string menjadi angka (Val) yaitu 3 string dihitung dari kanan vBilangan
vRibuan, suatu variabel single, yang diperoleh dengan mengambil nilai angka dari kiri, sebanyak jumlah seluruh string dikurangi 3 ( 3 adalah pecahan ratusan)

If vRatusan >= 550 Then
vRatusan = 0                                                               '
vRibuanUp = (vRibuan * 1000) + 1000
ElseIf (vRatusan >= 501) And (vRatusan <= 549) Then
vRatusan = Int(vRatusan / 100) * 100                        '
vRibuanUp = (vRibuan * 1000) '+ 1000
ElseIf vRatusan <= 500 Then
vRatusan = 0
vRibuanUp = (vRibuan * 1000)
End If

vTotalBaru = vRibuanUp + vRatusan

misal ada angka 235668
vBilangan        = 235668
vRibuan           = 235
vRatusan         = 668 ; masuk ke kondisi lebih besr dari 550..... If vRatusan >= 550 Then
vRatusan         = 0                                                                   '
vRibuanUp      = (vRibuan * 1000) + 1000
                        = (235 x 1000) +1000
                        = 236000        
vTotalBaru      = vRibuanUp + vRatusan
                        = 236000 + 0

Paham kah?    

Komentar

Posting Komentar

Postingan populer dari blog ini

Surat Perintah Kerja dalam Usaha Digital Printing

-
Gambar
Usaha digital printing, mempunyai prinsip yang sama dengan usaha retail lainnya. Akan tetapi mempunyai perbedaan, yaitu (umunya) tidak ada barang yang dijual secara langsung, melainkan diproses terlebih dahulu. Di usaha digital printing, setiap order yang diterima, mempunyai alur untuk didelegasikan kepada staf. Artinya, ada staf yang bertugas untuk mengerjakan order tersebut. Pada sistem kasir digital printing, perlu adanya cetak Surat Perintah Kerja (SPK). SPK ini sebagai acuan untuk karyawan mengerjakan order tersebut. Adapun informasi yang ada di dalam SPK ini antara lain: no order, tanggal, nama staf, customer dan detail item order. Data detail item order sama dengan data saat order akan tetapi tidak ada nilai harga dan total rupiah nya.
Baca selengkapnya

Monitoring Progress Proses dalam Digital Printing Advertising – Multi User (Sistem Titip)

-
Gambar
Untuk usaha Digital Printing yang sudah mempunyai setidaknya 2 staf desain/produksi. Maka perlu kiranya menggunakan aplikasi ini, untuk memudahkan monitoring progress prosesnya. Dalam sistem ini, tidak ada suatu SPK ( surat perintah kerja ), yang dibuat oleh admin kepada staf tertentu. Pertimbangan antara lain: 1. Tidak ada pilih kasih terkait penunjukan pengerjaan order ( asas keadilan ) 2. Memacu kerja efektif dan produktifitas. Dalam modul order akan ditentukan bahwa item order yang masuk, membutuhkan desain dan atau produksi atau tidak.
Baca selengkapnya

Stok Toko dan Gudang, dalam Sistem Informasi Usaha Dagang

-
Gambar
Pencatatan stok, adalah hal sangat penting dalam sistem informasi usaha dagang/bisnis. Stok merupakan objek utama yang dikelola, baek dicatat mulai dari pembelian, penjualan dan mutasi. Rusak dan hilangnya suatu stok, merupakan kerugian bagi pemilik usaha. Dalam suatu sistem informasi manajemen data, suatu stok akan berada di tabel STOK, dengan kolom antara lain kode, nama, jml_terkini, harga_jual, harga_beli, satuan dan lokasi. Pada kali ini, akan dibahas mengenai LOKASI. Keterangan mengenai lokasi adalah suatu petunjuk keberadaan barang disimpan. Di beberapa tempat selama saya membangun sistem informasi, saya menyarankan untuk memberi singkatan pada lokasi ini. Misal, GD R1, adalah kepanjangan dari gudang rak 1. tulisan GD R1 ditempel di rak atau dinding tempat penyimpanan barang. Dan seterusnya Permasalahan akan timbul jika suatu barang dengan jenis sama, tersimpan di toko dan gudang, padahal di aplikasi hanya tersedia informasi jml_terkini yang merupakan gabungan jumlah toko dan...
Baca selengkapnya