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工作簿，其他格式的不行哈。

赞 (0)

相关推荐

  • Excel日期运算，开始、结束日期计算间隔天数

    Excel日期运算,由开始日期和结束日期计算间隔天数,是根据Excel的日期格式特性展开的运算. Excel日期运算,由开始日期和结束日期计算间隔天数 01 准备日期运算的单元格结构. 首先在Exce ...

  • excel怎么计算计算工作日天数?networkdays函数计算工作日天数的教程

    你还在为Excel计算工作日天数怎么做而苦恼吗,今天小编教你Excel计算工作日天数怎么做,让你告别Excel计算工作日天数怎么做的烦恼. 一.networkdays的介绍 1.Networkdays ...

  • 在Excel表格中如何输入日期格式并计算间隔天数

    在Excel表格中如何输入日期格式并计算间隔天数

    我们在使用Excel表格处理数据的时候,总会遇到这样那样的问题,今天就跟大家介绍一下在Excel表格中如何输入日期格式并计算间隔天数的具体操作步骤.1. 首先打开电脑上的WPS软件,进入页面后,选择新 ...

  • Excel计算工作日天数怎么做

    Excel计算工作日天数怎么做

  • excel计算本月天数

    excel2007计算当前日期月份的天数,通过day与EOMONTH函数计算天数. 操作方法 01 如图表格,计算出日期对应的天数. 02 函数EOMONTH(start_date,months),返 ...

  • 如何使用excel进行间隔时间的计算

    如何使用excel进行间隔时间的计算

    excel作为常用的办公工具,我们可以用它进行数据的整理计算等工作.除此之外,可能大家不知道可以利用excel来计算间隔时间.接下来就由小编来告诉大家吧.计算间隔天数1. 如何计算间隔时间呢?只需要输 ...

  • Excel日期运算，开始日期+间隔天数计算结束日期

    Excel日期运算,由开始日期和间隔天数计算出结束日期,是根据Excel的日期格式特性展开的运算. Excel日期运算,由开始日期和间隔天数计算出结束日期 01 准备日期运算的单元格结构. 首先在Ex ...

  • Excel计算日期间隔天数

    我们经常在手机和电脑上面接触到一些计算两个日期间隔天数的的软件和工具,今天,我们就用EXcel自己来制作一个计算工具. 操作步骤: 01 打开Excel软件,知足如图所示表格. 02 把光标移动到D2 ...

  • excel计算两日期相隔天数

    excel有函数days(),计算两日期间相隔天数.但不能直接使用,要用DATEVALUE()函数转换日期为数值. 操作方法 01 先用DATEVALUE()函数转换日期为数值,如: =DATEVAL ...