Pak, kalo ada kode barangnya mungkin sperti ini:
Table1 = Select * From ..... Where [Kode_Barang] = KodeBarang And [Tanggal]
<= 23/02/2009
Selanjutanya:
A = 0
Do While Not Table1.Eof
A = A + Harga Jual - Harga Pembelian
Table1.MoveNext
Loop
? A
Saya hanya memperkirakan kasus bapak, kalo salah saya mohon maaf
--- Pada Sab, 24/10/09, Frangky Bunga <franklin...@gmail.com> menulis:
Dari: Frangky Bunga <franklin...@gmail.com>
Judul: RE: [Programmer-VB] Cara ngambil laba secara FIFO
Kepada: programmer-VB@yahoogroups.com
Tanggal: Sabtu, 24 Oktober, 2009, 3:26 PM
Pak, aku ngga ngerti kasusnya Pak Toni. From: Toni R
[mailto:toni. rah...@gmail. com]
Sent: 07 Oktober 2009 11:59
To: Programmer-VB@ yahoogroups. com
Subject: [Programmer- VB] Cara ngambil laba secara FIFO
Dear all
ada yang tahu logika cara menghitung selisih harga pembelian - penjualan secara
fifo ? contoh... pembelian 1
tanggal : 20/2/2009
jumlah : 10
harga : 10.000 pembelian 2
tanggal : 22/2/2009
jumlah : 5
harga : 11.000 pembelian 3
tanggal : 23/2/2009
jumlah : 8
harga : 9.000 Jika ada penjualan pada tanggal 23/2/2009 sebanyak 17 dengan
harga jual 13.000
maka perhitungannya : laba = penjualan - pembelian
laba = (10 x 13.000 - 10 x 10.000) + (5 x 13.000 - 5 x 11.000) + (2 x 13.000 -
2 x 9.000)
laba = 30.000 + 10.000 + 8.000
laba = 48.000 ada yang tahu perhitungan secara coding atau querry nya ? Thanks
sebelumnya
Terhubung langsung dengan banyak teman di blog dan situs pribadi Anda?
Buat Pingbox terbaru Anda sekarang! http://id.messenger.yahoo.com/pingbox/
