Excel计算间隔天数的函数
计算生产期的函数,特点如下:
1、自动剔除假期,即假期日可以手工添加,计算的时候自动排除。例如今天是2015/6/3到2015/6/12天数是12-3+1,结果是10天,但是如果我设定假期日是2015/6/7,则结果应该是9天。
2、表中有时间栏位,我们定义13点做为分界点,超过13点的订单,我们认为是第二日的订单,既生产期限应该减一天。
操作方法
- 01
打开excel,在sheet1绘制下图表格数据,其中生产期栏位留空,用来特写函数。在sheet2中填入假期,请注意单元格格式。
- 02
接着在excel开发工具中,打开visual basic编辑器,在vbaproject上面点右键,插入,模块。将下面代码复制到右侧的空白区域。 Function 生産期(r As range) As Double '建立函数 Dim a, b, c, sumb As Double Dim d, e, f, h As range sumb = 0 Set d = r.Offset(, 0) a = d.Value Set e = r.Offset(, -9) Set f = r.Offset(, -10) If e > 0.541666666666667 Then b = f.Value + 1 Else b = f.Value End If c = 0 For i = b To a For Each j In Sheet2.range("a1:a100") If i = j Then c = c + 1 Next Next sumb = a - b - c + 1 生産期 = sumb End Function
- 03
返回sheet1中,在L2单元格输入“=生産期(K2)”,如图,就可以计算出这条记录的生产期了。下拉到L6,就可以计算所有记录的生产期了。
- 04
搞定上面工作后,就到了保存改函数的时刻了,选择另存为-启用宏的excel工作簿,其他格式的不行哈。