库存成本计算

所谓的参与计算准确是什么意思?

我的做法:
昨天的库存+今天入库 计算出成本参考单价

其他的与库存(进出)有关的单据一律使用这个公式计算出来的单价作为参考

其实有朝一日,你会发现,你怎么计算的成本都不是100%正确的,只要数据不是按事件发生的顺序输入,所以成本只是一个参考,所以有好几种计算方法,在好几种里面又细分很多特殊情况,其实所谓的特殊情况又是最经常发生的(如库存出现负数)

在会计角度,成本真的是一个参考的东西,当然总量的金额不能有偏差,所以,前期把销售成本算大一点,库存成本就会偏小,反之易然,如果偏差太大,在会计角度就要进行库存金额的盘赢盘亏

如下代码可实现月加权平均,前一代码用于表内仅有单价和数量的,较复杂.后一代码用于表内有数量和结存价的.
代码1:
Private Sub Command1_Click()
Dim tj_bm(1, 4000) As Single
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\sql\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select 备件代码,进仓单价,进仓单价 * sum([进仓数量]) as h1j,sum([进仓数量]) as hj from jwl_jink where 进仓单价>0 " & _
" and 日期 between '" & Text2 & "' and '" & Text3 & "' group by 备件代码,进仓单价"
Adodc1.Refresh
DataGrid1.Refresh
zsl = Adodc1.Recordset.RecordCount
For i = 0 To zsl - 1
tj_bm(0, i + 1) = t