材料库存天数的计算方法

 

每个企业都希望能够合理控制材料库存,在不影响生产的前提下,尽量减少材料库存占用过多资金。大家都在学丰田做精益生 产,渴望实现零库存管理。想法很好,目标也很明确,然而,离现实太远,一些基础问题都没有解决,丰田经验很好,但难以落实。我一直感叹我们公司天天学丰 田,学精益生产,却连物料计划员都没有,采购多少全凭采购员经验,当然,经验有时也不是那么可靠,仓库积压的材料也是越来越多,消化积压材料此刻又成为公 司头等大事。明白人还是有的,他们希望我们IT能够提供积压材料的相关信息,例如积压天数和库存成本,然后按照60天、90天、180天、1年以上积压以 报表形式输出。

你可能会问,公司不是上了ERP吗?难道系统不提供这些信息?的确,ERP是上了,但它确实提供 不了我们需要的信息。例如,我公司的ERP提供的库存天数查询,库存天数的计算依据是最后一次收料或发料的事务日期,这样的库存天数没有参考价值,真不能 算是库存天数,很容易造假,某个物料可能已经积压了好几年,假如现在公司要进行检查,仓管员临时发一个出去,这样账上的库存天数就成当天了。能够出现这样 的库存天数计算方法只能说明当初这个程序设计者考虑太少。这样的问题上ERP的时候为什么发现不了呢?企业里懂ERP的人太少,他们只会被动接收,当项目 调研收集问题时,他们什么有价值的问题也提不出,等ERP上线正式使用了,他们又开始喊这个不合理哪个不实用,可惜为时已晚。


这里,我们讨论三种材料库存天数的计算方法。

1最小库存天数

最小库存天数= 当天日期 - 最后一次采购入库的日期,这个比较好理解,也是比较常用的,但不够谨慎。

 

2一般库存天数

一 般库存天数= 当天日期 - (最近几次入库数量大于等于当天库存数量的那个事务日期),先进先出原则,查找入库记录,往前倒退,累加入库数量,直到入库数量大于等于当前库存数量,这 条入库记录的事务日期就是我们要找的日期。一般库存天数,经过统计而来,比较准确,这也是被考核部门容易接收的计算依据。

 

3 最大库存天数

最 大库存天数 = 当天日期 - (最近几次出入库数量大于等于当天库存数量的那个事务日期),后进先出、谨慎性原则,查找出入库记录,往前倒退,累加出入库数量,直到出入库数量大于等于 当前库存数量,这条出入库记录的事务日期就是我们要找的日期。最大库存天数,统计时间更长,不易造假,最能反映问题,对被考核部门来说很具杀伤力和争议, 我比较常推荐这种算法。例如,轮胎的管理,轮胎本应该摆放在仓库里,可我们还是将轮胎放在露天的水泥地上,风吹日晒,存上两三年不用的轮胎就废掉了。轮胎 虽然使用率非常高,但确实存在积压很久的轮胎。水泥地上的轮胎用栏杆围起来,只留一个出口,生产领料时总喜欢拿门口的轮胎,既方便又省力,入库也是一样, 长此以往,最里边的轮胎只能等着慢慢腐烂直至报废。不只是轮胎,很多容易生锈、腐蚀、变质的材料都或多或少因此种方式被浪费。

下面,演示一下库存天数的计算方法。假设ERP中有一张物料收发事务表,共有物品编码,事务类型、事务日期、事务数量等四个字段,即时库存是根据事务数量计算得到的当日库存数量,累计数量是通过倒退的方式得到的出入库数量。

物品编码

事务类型

事务日期

事务数量

即时库存

累计数量

10001001

IN

2010-01-01

10

10

37

10001001

OUT

2010-01-02

-2

8

27

10001001

OUT

2010-01-03

-2

6

29

10001001

OUT

2010-01-04

-2

4

31

10001001

OUT

2010-01-05

-2

2

33

10001001

IN

2010-01-06

20

22

35

10001001

OUT

2010-01-07

-5

17

15

10001001

OUT

2010-01-08

-5

12

20

10001001

OUT

2010-01-09

-5

7

25

10001001

IN

2010-01-10

25

32

30

10001001

OUT

2010-01-11

-6

26

5

10001001

OUT

2010-01-12

-8

18

11

10001001

OUT

2010-01-13

-5

13

19

10001001

OUT

2010-01-14

-6

7

24

10001001

IN

2010-01-15

30

37

30

10001001

OUT

2010-01-16

-6

31

0

10001001

OUT

2010-01-17

-8

23

6

10001001

OUT

2010-01-18

-8

15

14

10001001

OUT

2010-01-19

-6

9

22

10001001

OUT

2010-01-20

-4

5

28

10001001

IN

2010-01-21

30

35

32

10001001

OUT

2010-01-22

-6

29

2

10001001

OUT

2010-01-23

-4

25

8

10001001

OUT

2010-01-24

-4

21

12

10001001

OUT

2010-01-25

-6

15

16

10001001

IN

2010-01-26

30

45

22

10001001

OUT

2010-01-27

-4

41

-8

10001001

OUT

2010-01-28

-2

39

-4

10001001

OUT

2010-01-29

-2

37

-2

 

依 据上面这样表,假设物品10001001的月初数量为0,2010-01-29为当天日期,当天的库存数量是37,那么最小库存天 数=2010-01-29减2010-01-26=3天,一般库存天数=2010-01-29减2010-01-21=8天,最大库存天 数=2010-01-29减2010-01-01=28天。我注意到,29日库存数量37中只有2个的库存天数是28天,根据谨慎性原则,我们仍认为这个 物品的最大库存天数是28天。正常来说,材料采购应该有规律可言,遵循这样的规律,最大库存天数才不会奇高,账上这样处理,实物管理上也需要遵循。

我讲这个问题,不涉及程序编写,重点是强调对实际问题认识的重要性,我们不仅要会编写程序,更要会利用IT工具解决业务问题。
  • 1
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
### 回答1: Sub CalculateStockDays() Dim StockDays As Integer StockDays = (7 * 预测量) / 平均每日销量 MsgBox "基于每周预测的库存天数为:" & StockDays End Sub ### 回答2: 下面是一段计算基于每周预测的库存天数的VBA代码: Sub CalculateInventoryDays() Dim openingStock As Double ' 初始库存 Dim closingStock As Double ' 期末库存 Dim inventoryDays As Double ' 库存天数 Dim forecast As Double ' 每周预测销售量 openingStock = InputBox("请输入初始库存数量:") ' 接收用户输入的初始库存数量 closingStock = InputBox("请输入期末库存数量:") ' 接收用户输入的期末库存数量 forecast = InputBox("请输入每周预测销售量:") ' 接收用户输入的每周预测销售量 inventoryDays = (openingStock + closingStock) / (2 * forecast) ' 计算库存天数 MsgBox "根据每周预测的库存天数计算结果为:" & inventoryDays ' 弹出消息框显示计算结果 End Sub 在这段代码中,我们首先声明了几个变量,包括初始库存、期末库存、每周预测销售量和库存天数。然后通过InputBox函数分别接收用户输入的初始库存数量、期末库存数量和每周预测销售量。接下来,通过计算公式`(初始库存 + 期末库存) / (2 * 每周预测销售量)`,计算出库存天数。最后,通过MsgBox函数弹出一个消息框,显示计算结果。 你可以将这段代码添加到VBA编辑器中,并执行该宏。输入相应的数值后,你将会得到基于每周预测的库存天数的计算结果。 ### 回答3: 以下是基于每周预测的库存天数计算的VBA代码: Sub CalculateInventoryDays() ' 定义变量 Dim i As Integer Dim totalInventory As Double Dim totalForecast As Double Dim weeklyForecast As Double Dim inventoryDays As Double ' 初始化变量 totalInventory = 0 totalForecast = 0 ' 循环输入每周预测和库存量 For i = 1 To 4 weeklyForecast = InputBox("请输入第 " & i & " 周的预测量:") totalForecast = totalForecast + weeklyForecast inventory = InputBox("请输入第 " & i & " 周的库存量:") totalInventory = totalInventory + inventory Next i ' 计算库存天数 inventoryDays = totalInventory / (totalForecast / 7) ' 显示结果 MsgBox "基于每周预测的库存天数为:" & inventoryDays, vbInformation End Sub 在代码中,我们使用了一个For循环来输入每周的预测量和库存量,并计算了总预测量和总库存量。然后,我们根据公式“库存天数 = 总库存量 / (总预测量 / 7)”计算了基于每周预测的库存天数。最后,我们通过一个消息框来显示计算结果。 注:这段代码假设每个月有4个周。如果有不确定的周数,可以根据实际情况修改代码。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值