计算使用天数，有交叉时间的不能重复计算

bearfrog

求助各位大虾，我这有个数据，每个计算机ID可能有多条使用记录，从注册时间到到期时间，而这些时间中可能存在交叉的区域，如何可以计算出该计算机ID使用的总时长，而不重复计算 计算时间.zip (36.14 KB, 下载次数: 18)

2013-6-24 16:13 上传

点击文件名下载附件
计算时间

【名臣】

1. Sub 时间计算()
   
2. Set dic = CreateObject("scripting.dictionary")
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Range("g1:h" & [g65536].End(3).Row) = ""
   
5. For x = 2 To [a65536].End(3).Row
   
6.    For y = 0 To Cells(x, 5) - Cells(x, 4)
   
7.        dic("'" & Cells(x, 2) & "|" & Cells(x, 4).Value + y) = ""
   
8.      Next
   
9. Next
   
10. arr = dic.keys
    
11.        For Z = 0 To dic.Count - 1
    
12.               ss = Split(arr(Z), "|")(0)
    
13.               d(ss) = d(ss) + 1
    
14.        Next
    
15. Range("g1").Resize(d.Count, 1) = Application.Transpose(d.keys)
    
16. Range("h1").Resize(d.Count, 1) = Application.Transpose(d.items)
    
17. Set dic = Nothing
    
18. Set d = Nothing
    
19. End Sub
    

复制代码

microyip

2楼的计算肯定有错误，因为这个时间重叠问题不是那么简单的，很可能数据一多的时候，同一个ID分了很多段，需要不同的比较以及合并的，比较麻烦

yjh_27

VBA  、自定义函数二种方法

修正：包含结束当天

yjh_27

参见
·   时间段组的矢量运算,自定义函数

yangyangzhifeng

试试看

1. Sub 时间计算()
   
2.     Dim d, i&, j&, arr, st$
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Range("a1").CurrentRegion
   
5.     Range("g:h").ClearContents: Range("g:h").NumberFormatLocal = "@"
   
6.     For i = 2 To UBound(arr)
   
7.         For j = arr(i, 4) To arr(i, 5)
   
8.             st = arr(i, 2) & "|" & j
   
9.             d(st) = ""
   
10.         Next
    
11.     Next
    
12.     arr = d.keys: d.RemoveAll
    
13.     For i = 0 To UBound(arr)
    
14.         st = Split(arr(i), "|")(0)
    
15.         d(st) = d(st) + 1
    
16.     Next
    
17.     Range("g1").Resize(d.Count, 1) = Application.Transpose(d.keys)
    
18.     Range("h1").Resize(d.Count, 1) = Application.Transpose(d.items)
    
19.     Set d = Nothing
    
20. End Sub

复制代码